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Lors de cette premiere journee, nous allons vous presenter les caracteristiques de Delphi 3. 
Nous tracerons un historique succinct des outils de developpement, et nous verrons les ele- 
ments qui ont preside a la creation de cet outil puissant et sans equivalent qu'est Delphi. Apres 
une breve initiation a Delphi, nous ecrirons une courte application pour nous entrainer. 
Delphi 3 est une sorte de "Visual Pascal", et bien plus. Delphi 3 vous permet de tirer partie a 
la fois des solides fondations du Pascal Objet de Borland et des fonctionnalites de construction 
duplications visuelles que proposent des produits tels que Visual Basic. Delphi presente de 
nombreux avantages par rapport a ses concurrents, et peut simplifier grandement le travail du 
programmeur. Nous terminerons cette journee en passant en revue l'EDI (Environnement de 
Developpement Integre). 



Delphi pour une programmaMon RRDieuse 

(0311 ^® signifie Developpement rapide d 'application (Rapid Application Development,). Ce 
(CUU terme d'ecrit la nouvelle generation d'environnements de developpement logiciel. Dans un 
environnement RAD, les programmeurs utilisent des outils plus intuitifs et visuels. II est diffi- 
cile de regarder un bout de code qui cree une fenetre et de la visualiser, mais le RAD permet 
de creer la fenetre en quelques dies. 

Parmi ces nouvelles interfaces, plus simples et plus visuelles, la premiere a faire son apparition 
fut Visual Basic (ou VB). VB a mis la programmation — qui etait jusque-la une pratique mys- 
tique reservee a quelques gourous — a la portee des simples mortels. Cette nouvelle interface 
permit, comme illustre dans la Figure 1.1, au developpeur de logiciel de construire "visuelle- 
ment" l'interface utilisateur a l'aide de la souris, au lieu de le faire en codant, puis en compliant 
pour verifier le resultat. L'ancienne methode revenait a creer les moules pour un nouvelle voi- 
ture avant meme de creer une maquette reproduisant les formes du bolide.... 

Avant de poursuivre, il convient de preciser que rien ne remplace de solides bases en program- 
mation. C'est dans cette optique que vous trouverez dans cet ouvrage des sections consacrees 
a la programmation orientee objet (Jour 7), et a la conception d'une GUI (Interface graphique 
utilisateur) et de bases de donnees (Jour 6), qui represented de bonnes bases pour devenir un 
developpeur de logiciel chevronne. 

Si VB rencontra un grand succes et permit d'ouvrir au grand public les portes de la program- 
mation, il n'etait pas sans defaut. Le langage lui-meme n'encourageait pas de bonnes methodes 
de programmation. VB ne contenait pas les mecanismes qui favorisent un code clair, compact 
et tres structure. Enfin, VB n'avait pas la rigueur d'un langage oriente objet (nous reviendrons 
en detail a ce sujet au Jour 4). Pire encore, VB encourageait la "mauvaise" programmation, en 
permettant au developpeur de bricoler une solution rapide, contournant les techniques, parfois 
contraignantes, mais qui permettent de construire efficacement un programme. Les trois 
auteurs de ce livre sont de bons programmeurs VB (entre autres), et nous avons pu experimen- 
ter les deux manieres de faire (VB et programmation objet Delphi), et c'est en connaissance de 
cause que nous avons choisi Delphi. 
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Figure 1.1 

L'ancienne 
approche et 
la nouvelle. 



Ancienne 




Nouvelle 
maniere 












OK 


ANNULER 



Delphi marque une evolution dans les environnements de developpement RAD. II corrige 
grand nombre des defauts de VB, sans en ajouter trop. Nous allons decrire les points forts et 
les points faibles — qui ne sont pas si nombreux — de Delphi. 



Delphi, un Visual Basic sous steroides 

Pour lire ce livre, il n'est pas necessaire d'avoir l'experience d'un langage de programmation, 
mais si vous avez deja programme en VB, vous aurez l'impression que Delphi est un VB dope. 
Les developpeurs de Delphi ont cree un outil qui peut, de prime abord, rappeler l'environne- 
ment de VB 4, mais Delphi est en fait bien different (et bien meilleur). L'EDI (Environnement 
de Developpement Integre) est appele en double-cliquant sur l'icone Delphi. Meme si visuel- 
lement, Delphi 3 peut rappeler VB, la difference majeure se cache "derriere" l'EDI. 

En termes de developpement, VB favorise la rapidite au detriment de la qualite structurelle. En 
revanche, Delphi utilise comme fondation le Pascal objet. Le compilateur Pascal de Borland 
(apparu pour la premiere fois avec Turbo Pascal 1 .0) fut des l'origine l'un des compilateurs les 
plus rapides du marche. Borland a ajoute des extensions objet au langage pour faciliter les bonnes 
habitudes de programmation et augmenter l'efficacite du code (afin d'obtenir plus en moins de 
lignes). Le Pascal Objet est un vrai langage objet, assiste d'un compilateur qui a fait ses preuves. 
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flvantoges de Delphi 

Delphi apporte une grande souplesse au developpeur. Lorsque Delphi genere un fichier .exe, il 
s'agit d'un vrai executable. Aucun autre fichier n'est necessaire pour l'execution. Vous obtenez 
done une application plus propre, et plus facile a distribuer et a maintenir. Vous n'avez a dis- 
tribuer qu'un seul fichier, sans dependre de DLL ou d'autres fichiers. 

Pour les entreprises soucieuses de l'etablissement de normes et de standards, Delphi est egale- 
ment utile. Supposons que vous ecriviez des applications Delphi dans une entreprise de 5000 
employes. Chaque fois que vous devez deployer une nouvelle application, vous devez envoyer 
un fichier de IMo a tous les utilisateurs. Ceci peut vite encombrer le reseau. Fort heureuse- 
ment, Delphi vous permet de regrouper les composants standard dans un paquet. Une fois ce 
paquet installe sur les machines, vous pouvez l'utiliser pour toutes les nouvelles applications 
que vous deploierez. Des lors, il vous suffit d'envoyer un fichier executable de 200 ko au lieu 
de 1 Mo. 

Cette technique est l'une des nouvelles fonctionnalites de Delphi 3, et permet de minimiser la 
taille des applicatifs transmis a chaque machine des lors qu'un paquet standard a ete installe. 
Vous en apprendrez plus a ce sujet dans le Jour 5, "Applications, Fichiers et Gestionnaire de 
Projets". 

Delphi vous offre done un compilateur optimise qui vous donnera une application rapide sans 
qu'il soit necessaire de fournir plus d'efforts pour optimiser le programme qu'il n'en avait fallu 
pour l'ecrire. 

Les differences enfre Delphi 3 et Delphi 2 

Bien que l'EDI de Delphi 3 semble inchange, on compte de nombreuses differences cachees 
sous le capot. Les principales ameliorations sont les suivantes : 

• Architecture des bases de donnees et connectivity. L'architecture des bases de donnees a 
ete completement revue afin de suivre une approche multi-liaison plutot que la tradition- 
nelle conception Client/Serveur. Vous pouvez ainsi creer des applications client extreme- 
ment legeres. Le support natif des bases de donnees Access a enfin ete integre, afin de 
permettre une transition aisee des applications VB sous Delphi 3 . Nous aborderons ce sujet 
plus longuement au onzieme jour. 

• Controles ActiveX. Vous pouvez creer vos propres controles ActiveX, ou utiliser des 
controles deja ecrits, dans vos applications Delphi. Vous apprendrez au Jour 13 a ecrire des 
composants VCL et ActiveX. 

• Applications Web. Vous pouvez creer des applications client ou serveur, dans un environ- 
nement Web. Ceci donne a Delphi 3 de nombreux atouts dans la course a Intranet. Ce sujet 
est aborde lors de la quatorzieme journee. 
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• Paquets. Vous pouvez choisir d'inclure les librairies d'execution, soit dans l'executable, soit 
dans une DLL exteme (liaison statique ou dynamique). Les developpeurs independants 
prefereront sans doute la premiere solution, la seconde etant plus adaptee au developpe- 
ments en interne. 

• ActiveForm. Vous pouvez executer une application Delphi 3 complete sous la forme d'un 
controle ActiveX. Vous pouvez litteralement executer votre application dans une page 
Web. Vous en apprendrez plus a ce sujet lors des Jours 13 et 14. 

• Ameliorations du debogueur et de l'EDI. La plupart des routines graphiques, ainsi que le 
travail sur les canvas, sont maintenant isoles des problemes de threads. 

En plus de la technologie ActiveX, Delphi 3 vous permet de cr'eer des composants Delphi 
natifs que vous pouvez reutiliser dans tous vos projets. Alors qu'avec les contrbles ActiveX, il 
faut fournir le composant ActiveX avec votre application, il n'en va pas de meme pour les 
composants natifs. Vous apprendrez a ecrire vos propres composants visuels au Jour 13. 



esf-ce que Delphi Clienf/Serveur ? 

II existe trois versions de Delphi : Delphi Desktop, Delphi Developpeur et Delphi Client/Ser- 
veur (que nous appellerons CS). A chacune de ces versions correspondent differents niveaux 
de connectivite avec le monde exterieur. Delphi Desktop permet de se connecter a dBASE, 
Paradox et Access au moyen du Borland Database Engine (Moteur de base de donnees Bor- 
land). La version Developpeur permet la connectivite ODBC (pour connecter toute source de 
donnees au moyen d'un pilote ODBC), et la version CS propose des liens SQL, vous offrant 
ainsi des pilotes 32 bits ultra-rapides permettant de se connecter a des bases de donnees SQL 
server telles que SyBase et Oracle, comme indique dans la Figure 1 .2. 



Figure 1.2 
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La version CS a ete concue comme un concurrent des outils de developpement d'application 
client/serveur, dont PowerBuilder est le chef de file. Ce genre d'outils est utilise dans un cadre 
professionnel pour developper des applications Windows permettant d'acceder a des bases de 
donnees en reseau. 



Composanf Visuel 

Delphi possede en outre sa propre version native d'un controle ActiveX, appelee Visual Com- 
ponent (Composant Visuel). Un VC est ecrit en Delphi et s'ajoute a la Visual Component 
Library (Bibliotheque de Composants Visuels ou VCL). Cette VCL est un catalogue de VC qui 
peuvent etre utilises par le developpeur pour creer des applications Delphi. Tous les compo- 
sants de la VCL sont affiches sur la barre d'outils, permettant ainsi un acces facile. Vous en 
apprendrez plus a ce sujet au Jour 8. 

Variables et constantes 

Pour ceux d'entre vous qui n'ont jamais programme, certains concepts peuvent vous etre etran- 
gers. En programmation, une constante est... constante. Si vous avez besoin d'utiliser le taux 
de TVA dans votre programme, vous pouvez entrer 0.206 (20,6 %) dans tous les formulaires 
de votre application. Si le taux de TVA change, il vous faudra alors revenir a vos formulaires 
et modifier chacun des 0.206 pour les transformer en 0.226, par exemple. Ceci constitue une 
monstrueuse perte de temps, avec le risque de commettre une faute de frappe en recopiant qua- 
rante fois le meme taux. 

Cest ici que les constantes interviennent. Vous pouvez definir une constante, TauxTVA par 
exemple, egale a 0.206 et utiliser ce TauxTVA la ou c'est necessaire. II est important de noter 
que les constantes ne peuvent etre modifiees au cours de l'execution du programme. II ne serait 
done pas possible de demander a l'utilisateur le nouveau taux de TVA, puis de placer la nou- 
velle valeur dans TauxTVA. TauxTVA doit etre defini dans le code, et ne peut etre modifie en 
cours d'execution. 

B Const 
TauxTVA = 0.206; 

Le principe d'une constante est que le nom (TauxTVA) est un substitut direct de 0.206. Ainsi, 
chaque fois que vous devez utiliser 0.206 dans votre application, vous pouvez utiliser a la place 
le nom de la constante. La formule PrixTTC := PrixHT * TauxTVA; peut sembler etrange mais 
elle marche. 
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Cette ligne de code, PrixTTC : = PrixHT * TauxTVA; nous amene au sujet suivant, les varia- 
bles. Vous vous souvenez peut-etre de vos cours de maths au college, et de ces demoniaques 
formules du type y=mx+b. Souvenez-vous de votre prof disant : "C'est facile, il suffit de resou- 
dre l'equation en y". Eh bien, sans le savoir vous utilisiez des variables. Une variable est un 
emplacement contenant une valeur. Alors que les constantes restent immuables lors de l'exe- 
cution du programme, une variable peut etre modifiee a tout moment. 

Si nous avions defini une variable TVA sous forme d'un nombre Single, cette variable TVA peut 
maintenant contenir un nombre Single. Le type de donnees Single est un nombre reel repre- 

sentant un nombre entre 1 .5 x 1 0" 45 et 3 .4 x 1 03 8 . Ce type est tout a fait adapte a nos besoins . 

BVar 
TVA : Single; 

La declaration precedente indique que vous venez de creer une variable appelee TVA, variable 
de type Single. Maintenant, dans votre programme, vous pouvez demander le taux a l'utilisa- 
teur et placer ce taux dans la variable TVA. 

TVA := {Placez ici le taux donne par 1 ' utilisateur} ; 

Le grand avantage d'une variable est qu'il est maintenant possible de modifier la valeur de TVA 
en cours d'execution du programme. Les variables sont reutilisables, et bien plus souples a 
l'usage que les constantes. 

II existe une difference fonciere entre une constante et une variable, dans leur fonction bien sflr, 
mais aussi dans la facon dont elles sont utilisees dans le compilateur. Comme une constante est 
un substitut pour une valeur, lorsque vous compilez votre application, Delphi se contente de 
remplacer tous les TauxTVA qu'il trouve par la valeur explicite 0.206. Ceci n'a lieu que dans 
l'executable genere par Delphi, et votre source n'est pas modifiee. Une variable est geree d'une 
maniere bien differente. Comme la valeur d'une variable peut etre modifiee au cours de l'exe- 
cution d'un programme, l'application doit allouer un espace memoire pour y stacker TVA, afin 
de se souvenir de sa valeur et de modifier eventuellement cette derniere en cas de changement 
en cours de programme. Nous reviendrons plus en detail sur les constantes et les variables lors 
de la deuxieme journee. 

Procedures etfonctions 

Lorsque vous commencez a ecrire des programmes, vous risquez d'etre victime du syndrome 
de Von Neumann. John Von Neumann est le pere de l'informatique sequentielle ou, du debut 
a la fin, tout se passe sequentiellement, de maniere lineaire. Voyons comment il est possible de 
se demarquer de cette technique. 

Vous avez ecrit un programme qui affiche un message de bienvenue trois fois de suite a l'ecran. 
Pour ecrire ce programme, vous ecrirez quelque chose qui ressemble au Listing 1 .1 . II s'agit ici 
de pseudo-code, destine principalement a vous donner une idee de ce qui se passe. 



LE PR*)GRAMMEUR 



resenraNon de Delphi 3 



Le pseudo-code est une interpretation enfrancais d'evenements, qui simule ou imite le code. 
intO Nous Vutilisons dans le listing pour montrer la forme generale d'un programme sans pour 
autant employer le code Pascal objet veritable. 

Listing 1.1 : Un message simple apparent h Vecran 
programme Hello; 
debut 

{creation de la fenetre} 
{on ecrit "HELLO" dans la fenetre} 
{destruction de la fenetre} 

{creation de la fenetre} 
{on ecrit "HELLO" dans la fenetre} 
{destruction de la fenetre} 

{creation de la fenetre} 
{on ecrit "HELLO" dans la fenetre} 
{destruction de la fenetre} 

fin. 

Ce programme ecrit "HELLO" a l'ecran trois fois de suite. Au cas ou vous n'auriez pas remar- 
que, le programme s'est un peu repete, en effet il comporte trois fois la meme portion de code, 
ce qui fait trois fois plus de chances de se tromper en ecrivant la meme chose. II doit surement 
y avoir une meilleure solution. 

Procedures 

Une procedure n'est rien d'autre qu'un groupement logique de declarations de programme au 
sein d'un unique bloc de programme. Ce bloc de code peut etre ensuite active au moyen d'un 
appel de procedure. Autrement dit : vous prenez ces trois lignes de code et les mettez dans un 
paquet, puis vous donnez un nom a ce paquet et chaque fois que vous souhaitez appeler ces 
lignes de code, il vous suffit d'appeler ce bloc de code en utilisant le nom que vous lui avez 
donne. C'est ce que montre le Listing 1 .2 : 
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Listing 1.2 : Procedure simple 



procedure DitBonj our; 
debut 

{creation de la fenetre} 
{on ecrit "HELLO" dans la fenetre} 
{destruction de la fenetre} 
fin ; 

Les lignes de code sont maintenant regroupees dans la procedure DitBonj our (notre paquet). 
Maintenant, lorsque vous souhaitez ouvrir une fenetre, afficher "Hello" a l'ecran, puis detruire 
la fenetre, il vous suffit d'appeler DitBonj our. Regardez notre nouveau programme qui figure 
dans le Listing 1 .3 : 

Listing 1.3 : Programme final (utilisant une procedure) 
programme Hello; 

procedure DitBonjour; 
debut 

{creation de la fenetre} 
{on ecrit "HELLO" dans la fenetre} 
{destruction de la fenetre} 
fin ; 
debut 

DitBonjour; 
DitBonjour; 
DitBonjour 

fin. 

Comme vous pouvez le voir, vous pouvez creer la procedure DitBonj our une fois pour toutes 
et l'appeler trois fois. Les occasions de commettre des erreurs dans cette procedure sont moins 
nombreuses, puisque vous n'avez ecrit le bloc de code qu'une seule fois. Vous pouvez egale- 
ment reutiliser ce code en copiant-collant la procedure dans une autre application. Ce concept 
est illustre dans la Figure 1 .3 
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Figure 13 

Reutiliser des procedures 
et du code. 
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FoncNons 

Les fonctions, c'est un peu different. Ce sont des procedures qui renvoient une valeur unique. 
Prenons un exemple. Soit l'equation y=cos(6). La fonction cos (cosinus) prend 6 comme ope- 
rande, calcule le cosinus de 6, puis renvoie cette valeur a l'equation. La valeur renvoyee est 
alors placee dans la variable y . Vous retrouvez la ce que vous avez pu rencontrer dans vos cours 
d'algebre. Le concept de la resolution en y est fondamental. Vous pouvez remarquer que la 
fonction cosinus est appelee au sein meme de l'expression mathematique. Nous touchons la le 
principe : l'appel de fonction lui-meme devient la reponse une fois le retour de l'appel a la fonc- 
tion. Ainsi, dans votre expression, les choses se deroulent comme suit : 

Equation initiale : y=cos(6) 

1. cos(6). 

2. La fonction cos(6) calcule le cosinus de 6 et renvoie .99. 

3. L'equation devient alors y=cos (avec cos=.99). 

4. y=.99. 

Les fonctions sont pratiques car vous ne pouvez pas appeler une procedure au milieu d'une 
expression. La raison en est qu'une procedure peut etre definie de fagon a renvoyer plusieurs 
valeurs a la suite de l'appel de procedure. Cette multiplication de valeurs dans une expression 
mathematique n'est pas faite pour arranger les choses. Les fonctions constituent done une alter- 
native elegante, puisqu'elles sont elles concues pour ne renvoyer qu'une unique valeur. 
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Les unites : du code realisable 



Les unites sont en fait un groupement de fonctions et de procedures qui s'appliquent a un meme 
domaine. De meme que vous pouvez regrouper des declarations Pascal au sein d'une procedure 
ou d'une fonction, vous pouvez regrouper ces fonctions et procedures dans un niveau superieur 
d'emballage, ce qui correspond a l'unite. 

Examinons ensemble un exemple d'unite qui comporte trois fonctions : DitBon j our, DitAure - 
voir et DitRien . Le code de cette unite se trouve dans le Listing 1 .4. 

Listing 1.4 : Un exemple simple d'unite 

unite DitKekChose; 
debut 

procedure DitBonjour; 
debut 

{creation de la fenetre} 
{on ecrit "HELLO" dans la fenetre} 
{destruction de la fenetre} 
fin ; 

procedure DitAurevoir; 
debut 

{creation de la fenetre} 
{on ecrit "BYE" dans la fenetre} 
{destruction de la fenetre} 
fin ; 

procedure DitRien; 
debut 

{creation de la fenetre} 
{on ecrit "RIEN" dans la fenetre} 
{destruction de la fenetre} 
fin 

fin; {de l'unite DitKekChose} 

La seule difference entre ce programme et celui du Listing 1.3 a consiste a regrouper trois pro- 
cedures dans une unite appelee DitKekChose. Lorsque vous voudrez reutiliser ce code, il vous 
suffira de dire a votre programme Use KekChose. Si cette unite se trouve dans votre chemin 
d'acces (c'est-a-dire, si Delphi peut trouver l'unite DitKekChose), vous pourrez alors appeler 
ces trois procedures. Vous n'etes pas oblige de rein venter la roue a chaque nouveau program- 
me, comme c'etait la regie autrefois dans le domaine de la programmation. En cela aussi, Del- 
phi (et le Pascal objet) facilite la reutilisation du logiciel. 
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Lo Fictie 

Au cceur de toute application Delphi pour Windows se trouve la fiche (form en anglais). Vous 
connaissez peut-etre la fiche sous le nom de "fenetre" . La fenetre est cet objet de base sur lequel 
est construit l'ensemble de l'environnement Windows. Si vous ne modifiez pas les parametres 
par defaut, Delphi suppose que vous disposez d'une fiche dans chaque projet et affiche une 
fiche vierge chaque fois que vous lancez Delphi. Vous pouvez cependant choisir des options 
differentes dans Outils/Options. Vous pouvez enregistrer la position de vos fenetres, ainsi que 
celles des fenetres de code que vous avez ouvertes lors de la session precedente. Ces options 
sont propres a chacun de vos projets. 

Vous avez peut-etre deja rencontre la fiche sous ses deux formes. Les fiches peuvent exister en 
etat modal ou non modal. La fenetre modale est celle qui se trouve au-dessus de toutes les 
autres fenetres et qui doit etre fermee pour acceder a une autre fenetre. Une fenetre non modale 
peut etre mise de cote, et vous pouvez travailler dans d'autres fenetres pendant ce temps. Nous 
traiterons tout au long de ce livre de la creation des fiches sous toutes leurs formes. Ce sont les 
fondations de toute application Windows. 



Proprietes de composant et de fiche 



Les proprietes, dans l'acception Delphienne, sont les attributs d'un objet particulier, comme 
illustre Figure 1 .4. Ainsi, un individu a pour attributs (entre autres) sa taille, son poids, la cou- 
leur de ses yeux et son numero de Securite Sociale. 

En Delphi, toutes les fiches et tous les Composants Visuels (ainsi que tous les controles ActiveX) 
ont des proprietes. Une fiche (ou une fenetre) a une taille (hauteur et largeur), une couleur de 
fond, une bordure et d'autres attributs moins "visuels" tels qu'un nom. Nous pouvons controler 
l'aspect et le comportement de ces objets en modifiant ou manipulant leurs attributs ou proprietes. 



Figure 1.4 
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Fin 



Un exemple interessant de composant visuel serait celui controlant un viseur de realite virtuel- 
le. Ce viseur ressemblerait a ceux que Ton peut trouver couramment. Les proprietes de ce 
viseur seraient des plus interessantes. Un taux de rafraichissement (comme celui d'un moniteur 
d'ordinateur), une resolution d'ecran (eventuellement distincte pour chaque ceil pour compen- 
ser d'eventuels defauts d'acuite visuelle), etc. Pendant l'execution de votre programme Doom 
VI, il vous serait possible d'ajuster constamment le viseur aux nouvelles conditions du jeu en 
modifiant les proprietes de l'objet viseur. Nous traiterons en detail de la question des proprietes 
dans cet ouvrage, et vous ne tarderez pas a apprecier toute leur utilite. 

Application Delphi simple 

Pour debuter votre carriere de developpeur Delphi, nous allons voir dans cette partie comment 
construire votre premiere application Delphi. Nous allons supposer que vous avez deja installe 
Delphi dans votre systeme Windows 95 . II vous suffit de suivre ces etapes : 

1 . Lancez Delphi en selectionnant l'icone Delphi 3 .0 dans le menu Demarrer/Programmes/ 
Delphi 3.0. 

2. Une fois Delphi lance, vous voyez apparaitre une fiche vierge intitulee FORM1 . Si la fi- 
che n'apparait pas, selectionnez Fichier/Nouvelle application dans la barre de menus prin- 
cipale de Delphi. 

3. Choisissez l'onglet Standard dans la Palette des composants, a savoir la barre d'outils flot- 
tante situee en haut a droite de l'ecran. 

4. Cliquez sur le controle Button. 

5 . Cliquez au milieu de la fiche. Un bouton devrait apparaitre a cet endroit. 

6. Double-cliquez sur le bouton. Une fenetre de code devrait maintenant apparaitre, com- 
portant un curseur situe sur une ligne vide entre une ligne Begin et une ligne End. 

7. Saisissez la ligne de code suivante dans la ligne vide : 

Canvas .TextOut (20, 20, 'Avec Delphi 3, la programmation Windows 
n'a jamais ete aussi facile'); 

8. Vous venez de creer votre premiere application Delphi. Appuyez sur la touche F9 ou se- 
lectionnez Executer/Executer dans le menu de Delphi pour compiler et executer votre ap- 
plication. 

Vous devriez voir apparaitre une fenetre (il s'agit de la fiche omnipresente dont nous avons par- 
le plus haut). Le bouton que vous avez place sur la fiche devrait se trouver la. Cliquez dessus. 
Vous pouvez remarquer que la phrase que vous avez entree dans Canvas .Textout s'affiche 
dans la fenetre. Voila, la creation d'une application Delphi n'est pas plus difficile que ca. Lors- 
que vous en avez fini avec votre nouvelle application, appuyez sur le bouton Fermer de la fene- 
tre (il s'agit du bouton comportant un X). 
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Vous pouvez maintenant selectionner Fichier/Quitter, puis repondre Non lorsque Delphi vous 
demande si vous souhaitez enregistrer les modifications apportees a votre projet. 



flperqu de I'EDI de Delphi 3 

II est temps de s'attaquer a l'environnement de programmation de Delphi 3. Le but de cette sec- 
tion est de vous permettre de vous familiariser avec l'EDI de Delphi. Vous apprendrez egale- 
ment a personnaliser l'EDI en fonction de vos gouts. 

L'EDI, c'est-a-dire l'environnement de developpement integre (IDE en anglais), est un envi- 
ronnement dans lequel tous les outils necessaires a la conception, a V execution et au test 
d'une application sont presents et fonctionnent harmonieusement afin de faciliter le develop- 
pement de programmes. Dans Delphi 3, l'EDI consiste en un editeur de code, un debogueur, 
une barre d 'outils, un editeur d'images et des outils de base de donnees, tous integres. Cette 
integration met a la disposition du d'eveloppeur un ensemble d'outils qui operent en harmonie 
et se completent les uns les autres. Le resultat est un gain de temps et une diminution des 
erreurs dans le developpement d' applications complexes. 



Bases 

Tout d'abord, il convient de lancer Delphi. Une fois Delphi charge, votre bureau doit ressem- 
bler a la Figure 1 .5 . 



Figure 1.5 

L'EDI de Delphi. 
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Si vous ne voyez pas de fenetre intitulee Forml au milieu de votre ecran, selectionnez Fichier/ 
Nouveau dans le menu principal de Delphi. L'EDI est compose de plusieurs parties principales, 
et la barre de menus de Delphi est elle-meme constitute de deux parties principales. 

Barre dicones 

La barre d'icdnes (voir Figure 1 .6) permet un acces rapide et facile aux fonctions les plus uti- 
lisees. La configuration par defaut vous propose les 14 elements que Borland considere comme 
les plus usuels. Ces elements sont egalement accessibles a partir du menu de Delphi et ne figu- 
rent dans la barre d'icones que pour en accelerer l'acces. Nous reviendrons en detail sur chacun 
de ces elements une fois decrite la structure du menu de Delphi. 



Figure 1.6 

La barre d'icdnes de Delphi. 




Palette des composants 

La palette des composants est le "catalogue visuel" de votre Bibliotheque de composants 
visuels (VCL). Elle vous permet de classer vos composants visuels dans des categories appro- 
priees. Par defaut, les composants sont regroupes en lignes fonctionnelles, c'est-a-dire, avec les 
composants d'acces aux donnees regroupes ensemble, et ainsi de suite. Ces regroupements ou 
pages sont distingues par des onglets. Les onze pages par defaut sont : 

• Standard 

• Supplement 

• Win95 

• AccesBD 

• ControleBD 

• Win3.1 

• Dialogues 

• Systeme 

• QReport 

• ActiveX 

• Exemples 
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Nous ne decrirons le bouton pointeur qu'une seule fois car on le retrouve sur chaque page de 
composants. II est generalement enfonce. Ce bouton vous permet de vous deplacer au sein des 
fiches et des fenetres pour manipuler l'environnement Delphi. Lorsque vous selectionnez un 
element dans une des pages de composants, le bouton pointeur n'est plus enfonce. Cela signifie 
que vous venez de passer dans un etat ou Delphi attend que vous placiez un composant sur une 
fiche. Une fois qu'un composant a ete selectionne, il suffit pour le placer sur une fiche de cli- 
quer sur celle-ci. 

Pour placer le composant sur la fiche, vous pouvez egalement double-cliquer sur le composant, 
et celui-ci sera automatiquement place sur la fiche. Si vous selectionnez un composant puis 
changez d'avis, il vous suffit pour vous retrouver en mode Normal d'appuyer sur le bouton 
pointeur, qui est une sorte de bouton "Annuler" a utiliser pour le placement des composants. 
Le bouton pointeur se trouve toujours place a l'extremite gauche de la palette de composants, 
quelle que soit la page de composants selectionnee. 

Tous les composants seront decrits plus en detail lors du Jour 8, qui leur est consacre. 

Fiche 

La base de la quasi-totalite des applications Delphi est la fiche. Vous connaissez peut-etre la 
fiche sous le nom de fenetre, ce genre de fenetre que vous pouvez rencontrer dans Word, Para- 
dox ou d'autres applications Windows. En Delphi, la fiche est la fondation sur laquelle vous 
placez les autres composants Delphi. C'est la toile de fond de votre application Windows. Une 
fiche vierge Delphi type est representee Figure 1 .7. 

Figure 1.7 na^^^^^^^^^^HZD 



Une fiche Delphi. 




Une fiche Delphi possede les memes proprietes que toute autre fenetre Windows 95. Elle com- 
porte un menu de controle (situe dans le coin superieur droit de la fiche), une barre de titre au 
sommet et, dans le coin superieur gauche, les boutons Reduction, Agrandissement et Fermer. 
Vous pouvez masquer ces attributs de fiche si necessaire, ou encore limiter leur utilisation. 
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Bien que pratiquement toutes les applications Delphi soient basees sur la fiche, vous pouvez 
utiliser Delphi pour ecrire des DLL Win32 dans lesquelles lesfiches peuvent ne pas exister du 
tout. Delphi peut egalement etre utilise pour ecrire des composants visuels ne comportant 
aucune fiche. 



Fenefre d'ediNon 

Un des elements les plus importants de l'environnement Delphi est constitue par la fenetre 
d'edition. Elle permet au developpeur d'entrer le code Delphi. L'editeur de code Delphi est un 
excellent editeur aux fonctions tres completes (voir Figure 1.8). On y trouve notamment la 
mise en evidence coloree de la syntaxe (permettant de detecter plus rapidement d'eventuelles 
erreurs), des commandes d'edition de style Brief et la possibilite d'Annuler sans limitation. 



Figure 1.8 

La fenetre d'edition. 
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Le nom du fichier actuellement en cours d'edition s'affiche dans la barre de titre de la fenetre. 
Les onglets situes en haut de l'ecran indiquent les pages utilisables. Les applications Delphi 
peuvent comprendre un grand nombre de fichiers source, et les onglets vous permettent de pas- 
ser de l'un a l'autre. 

Au bas de la fenetre d'edition figurent trois elements dignes d'interet. Le premier d'entre eux 
indique la ligne et la colonne du curseur dans le fichier en cours d'edition. Lorsque vous com- 
mencez un nouveau projet, le code que Delphi cree pour vous n'est pas sauvegarde. Vous devez 
l'enregistrer vous-meme. Comme ce code a ete modifie depuis la derniere sauvegarde (dans 
notre cas, il n'a jamais ete enregistre), le mot Modifie apparait a droite de l'indicateur de posi- 
tion. Modifie apparait chaque fois que le code que vous voyez dans l'editeur n'a pas encore ete 
enregistre sur le disque dur. Dans notre cas, il n'y a pas de code enregistre sur disque, e'est pour- 
quoi vous voyez apparaitre cet indicateur. Le troisieme element indique si vous etes en mode 
insertion ou refrappe. Cet indicateur est un grand classique de tous les outils d'edition. 



Inspecteur d'objets 

L'inspecteur d'objets s'averera indispensable pour votre travail en Delphi. II propose une inter- 
face facile d'utilisation permettant de modifier les proprietes d'un element Delphi, et de decider 
des evenements auxquels reagira un objet. 
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LongleT ProprieTes 

La partie Proprietes de l'lnspecteur d'objets (voir Figure 1 .9) permet de consulter et de modifier 
les proprietes d'un objet. Cliquez sur la fenetre de fiche vierge et regardez les attributs qui figu- 
rent dans l'onglet Proprietes de l'inspecteur d'objets. Petite remarque au passage : lorsqu'une 
propriete est precedee d'un signe plus, celle-ci comporte des sous-proprietes imbriquees. 



Figure 1.9 

L'onglet Proprietes 
de Vinspecteur d'objets. 
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Ainsi, vous pouvez remarquer qu'une fois la fiche selectionnee, l'inspecteur d'objets comporte 
une propriete Font (Police) precedee d'un signe plus. Si vous double-cliquez sur cette propriete 
Font, elle s'ouvre pour reveler d'autres proprietes telles que Color (Couleur), Height (Hau- 
teur), Name (Nom) et d'autres encore. Ce format offre un moyen clair, simple et pratique de 
modifier les attributs d'un objet. 

l/onglef Evenements 

L'onglet Evenements est l'autre facette de l'inspecteur d'objets (voir Figure 2.17). II concerne 
le programmeur et les differents evenements auxquels cet objet peut repondre. Ainsi, par exem- 
ple, si vous souhaitez que votre application fasse quelque chose de particulier au moment de la 
fermeture de la fenetre, vous pouvez utiliser l'evenement OnClose de la fiche a cet effet. Les 
evenements et la programmation pilotee par evenements seront traites en detail dans une pro- 
chaine section. 



Figure 1.10 

L'onglet Evenements 
de l'inspecteur d'objets. 
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Structure de menus de Delphi 3 

La structure de menus de Delphi vous permet d'acceder a un ensemble complet d'outils. Jetez 
un ceil a chacun des elements de menu de Delphi et regardez leur fonction. Nous nous conten- 
terons de passer rapidement en revue ces elements et les parties suivantes rentreront plus dans 
les details. Reportez-vous a la Figure 2.18 pour voir la barre de menus de base. 

| n r_ Les elements de menu que vous pouvez voir dependent en fait de votre version de Delphi. La 
lll|U version CS comporte certains ajouts que nous decrirons ici. Si vous souhaitez connaitre 

pr'ecis'ement les differences entre les trois versions de Delphi 3, consultez votre manuel ou 

contactez Borland. 



Figure 1.11 

La barre de menus 
principale. 
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Fichier 

Le menu Fichier est le menu contenant les elements decrits ci-apres (voir Figure 1.12). 



Figure 1.12 

Le menu Fichier. 
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Utiliser unite... 
Ajouter au projet... 
Supprimer du projet. 




Nouveau 

En selectionnant cet element de menu, vous indiquez a Delphi que vous souhaitez creer un 
nouvel objet. Celui-ci peut etre un membre quelconque du catalogue d'objets, comme un 
nouveau projet. La boite de dialogue Nouveaux elements apparait lorsque vous selectionnez 



LE PR*)GRAMMEUR 




resenraNon de Delphi 3 



Nouveau, et vous permet de creer aussi facilement une nouvelle fiche qu'un nouveau serveur 
Web. Nous decrirons plus en detail certaines des options de cette boite de dialogue par la suite. 

Nouvelle application 

En selectionnant cet element de menu, vous indiquez a Delphi que vous souhaitez creer un nou- 
veau projet. Si aucun projet n'est actuellement ouvert, ou si le projet ouvert est a jour (s'il a ete 
enregistre sur disque en son etat actuel), Delphi referme le projet courant et en cree un entiere- 
ment nouveau. II cree ainsi une nouvelle fenetre d'edition de code (avec un nouveau fichier 
Unitl .PAS) et un nouvel objet Fiche (Forml), et fait apparaitre l'inspecteur d'objets. 

Nouvelle fiche 

En selectionnant cet element de menu, vous indiquez a Delphi que vous souhaitez creer une 
nouvelle fiche. Par defaut, la fiche est une fiche vierge (et non pas une des fiches speciales du 
catalogue d'objets). 

Nouveau module de donnees 

En selectionnant cet element de menu, vous indiquez a Delphi que vous souhaitez creer un nou- 
veau module de donnees. Un module de donnees est une fiche non visuelle qui peut abriter tous 
vos controles de donnees. C'est un element important car vous avez besoin d'une fiche dans 
laquelle toutes les fiches visuelles viendront prendre leurs donnees, et ce role est tenu par ce 
module de donnees. 

Ouvrir 

En selectionnant cet element de menu, vous indiquez a Delphi que vous souhaitez ouvrir un objet. 
Cet objet peut etre un module de code ou un projet complet. Le premier repertoire dans lequel 
Delphi cherchera le projet est le repertoire de travail specifie lors de l'installation de Delphi. 

Re ouvrir 

Cet element affiche a droite du menu une liste des derniers projets ou fichiers que vous avez 
ouverts. Son role est de vous faire gagner du temps. 

Enregisfrer 

En selectionnant cet element de menu, vous demandez a Delphi d'enregistrer le module sur 
lequel vous etes en train de travailler. 

Enregislrer sous 

Lorsque vous selectionnez cet element de menu, vous demandez a Delphi d'enregistrer le 
module courant sous un nouveau nom. Ceci est utile si vous avez l'intention de modifier radi- 
calement une portion de code (si vous utilisez la version client/serveur de Delphi, vous pouvez 
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egalement utiliser le logiciel de controle de version PVCS). Vous pouvez ainsi conserver dif- 
ferentes revisions et revenir a un code plus ancien en cas d'erreur. 

Enregislrer projef sous 

En selectionnant cet element de menu, vous demandez a Delphi d'enregistrer le projet courant 
sous un nouveau nom. Vous pouvez ainsi enregistrer la totalite d 'un projet et le remiser pour 
un usage ulterieur. 

Enregislrer rour 

Cet element de menu enregistre tout ce qui est ouvert : fichiers de projets et le reste. 

Fermer 

Cet element de menu ferme le module de code ou la fiche associee actuellement selectionnee. 
Si vous n'avez pas enregistre votre module dans son etat actuel, Delphi vous demande si vous 
souhaitez enregistrer vos modifications . 

Fermer rour 

Cet element de menu ferme le projet Delphi courant. Si vous n'avez pas enregistre votre projet 
dans son etat actuel, Delphi vous demande si vous souhaitez enregistrer les modifications. 

UNIiser unire 

Cet element de menu place une declaration uses dans votre module de code courant, pour l'uni- 
te que vous souhaitez utiliser. C'est une maniere pratique d'inclure des unites dans votre code 
sans etre oblige de le faire manuellement. 

fljourer ou projer 

Selectionnez cet element de menu pour ajouter au projet Delphi une unite existante et sa fiche 
associee. Lorsque vous ajoutez une unite a un projet, Delphi ajoute automatiquement cette uni- 
te a la clause uses du fichier de projet. 

Supprimer du projer 

Selectionnez cet element de menu pour supprimer une unite existante et sa fiche associee du 
projet Delphi. Lorsque vous supprimez une unite d'un projet, Delphi supprime automatique- 
ment cette unite de la clause uses du fichier de projet. 
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Imprimer 

Selectionnez cette option dans la boite de dialogue de la Figure 1.13 pour imprimer l'element 
actuellement selectionne. Si cet element est une fiche, Delphi vous propose diverses options 
d'impression. Cliquez sur OK pour lancer l'impression. 




Si l'element que vous avez selectionne est une fenetre de code, plusieurs options vous seront 
alors proposees, parmi lesquelles l'impression des numeros de ligne, l'impression du texte 
selectionne seul (si vous avez selectionne du texte) et d'autres encore (voir Figure 1.14). 



Figure 1.14 

La boite de dialogue 
Impression de selection. 




Quitter 

Selectionnez cet element de menu pour sortir de l'EDI de Delphi. Si votre projet n'a pas ete 
enregistre dans son etat actuel, Delphi vous demande si vous souhaitez l'enregistrer avant de 
quitter. 

Edition 

Vous utiliserez les commandes du menu Edition pour manipuler le texte et les composants lors 
de la phase de conception . II contient plusieurs elements , comme indique Figure 1 . 1 5 . Ces ele- 
ments sont passes en revue dans les sections qui suivent. 
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Defaire/Recuperer 

Cet element de menu apparait sous le nom Defaire ou Recuperer selon la derniere action effec- 
tuee. Si vous venez de supprimer un objet ou du code a l'aide de la touche Suppr, ou de l'option 
Supprimer dans le menu Edition, l'element de menu s'appellera Recuperer. Si vous venez 
d'ajouter a votre projet du code ou des composants, l'element de menu aura pour nom Defaire. 
Cette commande vous permet d'annuler vos derniers ajouts (ideal pour les remords de derniere 
minute). 

Refaire 

Refaire est l'inverse de Defaire. Refaire annule les Defaire que vous avez pu effectuer. 

Couper 

Selectionnez cet element de menu pour couper l'element actuellement selectionne (composant 
sur une fiche ou texte) et le placer dans le Presse-papiers. Les elements selectionnes sont enle- 
ves de la fiche ou de l'unite de code courantes. 

Copier 

Selectionnez cet element de menu pour copier l'element actuellement selectionne (composant 
sur une fiche ou texte) dans le Presse-papiers. Les elements selectionnes ne sont pas enleves 
de la fiche ou de l'unite de code courantes. 

Coller 

Selectionnez cet element de menu pour placer le contenu du Presse-papiers dans la fiche ou 
l'unite de code courante. 
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Supprimer 

Selectionnez cet element de menu pour supprimer l'element actuellement selectionne. Cette 
suppression n'a rien de definitif , la commande Recuperer vous permet de corriger le tir en cas 
de suppression non desiree. 

Selecrionner rour 

Selectionnez cet element de menu pour selectionner tous les composants de la fiche courante, 
ou tout le code de l'unite courante, selon celle des deux qui a le focus. 

Aligner sur la grille 

Cette option permet d'aligner sur la grille le composant selectionne. 

Inffl ^ ^°P tlon Aligner sur la grille est s'electionnee dans Vonglet Options/Environnement/Prefe- 
III | U rences, cet element de menu n'est pas necessaire. Tous les composants places sur la page 
s'aligneront automatiquement avec la grille de la fiche. 

Meffre en avanf-plan 

Cela revient un peu a placer votre chouchou au premier rang de la classe. Lorsque vous placez 
de nombreux composants sur une fiche, il arrive qu'ils se recouvrent les uns les autres. Dans ce 
cas, il se peut qu'un composant soit recouvert par un autre alors qu'il devrait se trouver au-des- 
sus. En selectionnant ce composant puis cet element de menu, vous placez le composant au- 
dessus de tous les autres. 

Merrre en arriere-plan 

Ici l'effet est l'inverse de celui de l'element Mettre en avant-plan. En selectionnant cet element, 
vous deplacez les composants selectionnes derriere tous les autres composants. 

| n r_ Les contrbles fenetres et non fenetres ne sont pas traites de la meme facon. Tous les contrbles 
1 1 1 1 U non fenetres sont places "derriere " les contrbles fenetres . 

Aligner 

Selectionnez cet element de menu pour faire apparaitre la boite de dialogue Alignement (voir 
Figure 1.16). II vous est alors propose differentes manieres d'aligner vos composants vertica- 
lement et horizontalement sur votre fiche. Vous devez selectionnez les elements a aligner avant 
de selectionner cet element de menu. 
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Taille 

Selectionnez cet element de menu pour specifier la hauteur et la largeur d'un composant (voir 
Figure 1 .17). Si vous selectionnez plusieurs composants, cet element de menu vous permet de 
donner a tous les composants les dimensions (horizontales et/ou verticales) du plus grand com- 
posant selectionne, ou du plus petit. 

Figure 1.17 m^^^^^^^^^^^^^^MM 



La boite de 

dialogue 

Taille. 




Echelle 

II arrive que Ton cree une fiche pour se rendre compte trop tard que tous les composants qu'elle 
contient sont trop grands ou trop petits. Grace a l'option Echelle, vous pouvez mettre a l'echelle 
tous les composants de la fiche. En choisissant un nombre superieur a 100 vous augmentez la 
taille, et vous la diminuez en choisissant un nombre inferieur a 100. 

Ordre de Tabulation 

Delphi vous permet d'ajuster l'ordre de tabulation des elements de la fiche selectionnee. Cet 
ordre est celui dans lequel les objets recuperent le focus lorsque l'utilisateur appuie sur la lou- 
che Tab pour passer d'un element a l'autre. Vous pouvez ainsi imposer l'ordre de parcours des 
elements afin de guider l'utilisateur dans ses saisies. 
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Lorsque vous selectionnez cette option, Delphi place les noms de tous les composants de la 
fiche dans une zone de liste pour que vous les classiez visuellement (voir Figure 1.18). Cette 
facon de faire est bien plus simple que de devoir definir manuellement une propriete pour cha- 
que controle. 



Figure 1.18 

La boite de dialogue 
Ordre de tabulation. 




Ordre de creaNon 

Selectionnez cet element de menu pour definir l'ordre dans lequel les composants non visuels 
sont crees. Quel en est l'interet ? Certains de vos composants non visuels peuvent dependre 
d'autres composants non visuels qui sont presents et initialises. Si les composants ne sont pas 
crees dans l'ordre adequat, vous risquez de mettre la charrue avant les boeufs. 

Verrouiller consoles 

Une fois votre ecran concu et vos controles places, vous souhaiterez sans doute ajuster les pro- 
prietes et les evenements. II est tres facile alors de laisser trainer la souris la ou elle ne devrait 
pas et de deplacer involontairement un controle place au millimetre pres. Si vous selectionnez 
l'element Verrouiller controles, tous les controles sont verrouilles sur la fiche. Vous pouvez cli- 
quer dessus pour modifier les proprietes et les evenements sans risquer de les deplacer. 

Ajoufer a I'interface 

Reportez-vous aux manuels ou a l'aide en ligne pour en savoir plus sur cette option de menu. 

Chercher 

Le menu Chercher est utilise pour rechercher du texte, des erreurs, des objets, des unites, des 
variables et des symboles dans l'editeur de code. II contient plusieurs elements, comme illustre 
Figure 1.19. Ces elements sont decrits dans les sections suivantes. 
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Figure 1.19 

Le menu Chercher. 




Chercher 

Delphi comprend un outil de recherche de grande qualite. Lorsque vous selectionnez cette 
option, la boite de dialogue qui apparait vous propose de nombreuses options concernant la 
casse, la direction de recherche, etc. (voir Figure 1 .20). 



Figure 1.20 

La boite de dialogue 
Chercher texte. 
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Chercher dans lesfichiers 

Cette option vous permet de rechercher un texte specifique et d'afficher chaque occurrence 
dans une fenetre situee au bas de l'editeur de code. Les options de la boite de dialogue vous 
permettent d'effectuer la recherche dans tous les fichiers ouverts, tous les fichiers du projet en 
cours, ou tous les fichiers a partir d'un repertoire particulier et dans les sous-repertoires. 

Remplacer 

La boite de dialogue Remplacer complete la boite de dialogue Recherche que nous venons 
d'evoquer. La difference entre les deux reside dans le fait que la boite de dialogue Remplacer 
comporte une boite d'edition Remplacer par, pour, justement, remplacer un morceau de texte 
par un autre. 

Occurrence suivanre 

Cette option reprend la derniere recherche effectuee. 
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Recherche incremenrale 

II s'agit la d'une des plus seduisantes fonctions dont beneficient les editeurs Borland. Selection- 
nez cet element de menu, puis commencez a entrer un mot. A mesure que vous entrez les let- 
tres, Delphi vous amene a la premiere occurrence de la chaine de caracteres tapee. Cet outil est 
tres utile si vous savez a peu pres ce que vous recherchez. 

filler a ligne 

En selectionnant cet element de menu, puis en entrant un numero de ligne (a hauteur du nombre 
de lignes de votre application), vous vous retrouverez a cette ligne. 

Erreur d'execuNon 

A l'aide de cet element de menu, vous pouvez entrer l'emplacement de votre derniere erreur 
d'execution. Delphi compile alors votre application, puis s'arrete sur la ligne de code corres- 
pondant a cet emplacement. C'est egalement un moyen facile pour tracer les erreurs d'execu- 
tion. Cette fonction existe dans les divers Pascal Borland depuis des annees. 

Scrufer sipbole 

Une fois votre application compilee avec succes, vous pouvez en visualiser n'importe quel 
symbole. Ainsi, si votre application contient une fiche appelee Forml, vous pouvez entrer 
Forml dans la boite de dialogue Scruter symbole, et Delphi fera apparaitre le scruteur de sym- 
boles contenant le symbole en question. 

Voir 

Les commandes du menu Voir permettent d'afficher ou de masquer differents elements de 
l'environnement Delphi et d'ouvrir les fenetres associees au debogueur integre, comme indique 
sur la Figure 1.21. Ces elements sont decrits dans les sections suivantes. 



Figure 1.21 

Le menu Voir. 
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GesMonnaire de projer 

Selectionnez cet element de menu pour faire apparaitre la fenetre du Gestionnaire de projet. Ce 
Gestionnaire est traite en detail lors de la sixieme journee. 

Source du projef 

En temps normal, vous ne voyez pas la routine Delphi principale qui lance l'application Delphi. 
Elle reste cachee car elle est la plupart du temps geree et modifiee automatiquement. Vous pou- 
vez afficher le code source pour ce morceau, mais il est preferable de ne pas le modifier sans 
savoir exactement ce que vous faites. 

Inspecfeur d'objers 

Selectionnez cet element de menu pour faire apparaitre l'lnspecteur d'objets, que vous avez vu 
Figures 1.9 et 1.10. 

Paleffe d'alignemenr 

Selectionnez cet element de menu pour faire apparaitre la palette d'alignement. Cette palette 
est la version visuelle de la boite de dialogue Alignement appelee par l'option de menu Edition/ 
Aligner. II vous suffit de selectionner les elements a aligner, puis de faire apparaitre cette palet- 
te et d'y selectionner ce que vous souhaitez faire. Les conseils vous aideront si vous ne com- 
prenez pas la signification des dessins. 

Scrureur 

Selectionnez cet element de menu pour faire apparaitre une fenetre permettant de visualiser le 
modele d'heritages et les relations entre les objets. Ce scruteur est un outil puissant pour com- 
prendre les veritables fondations objet de Delphi. II vous permet de consulter la hierarchie d'un 
modele d'objet Delphi. 

Poinrs d'arrer 

Selectionnez cet element de menu pour faire apparaitre une boite de dialogue Liste des points 
d'arret. Celle-ci vous montre tous les points d'arret du debogueur que vous avez definis. Si vous 
cliquez a droite sur la boite de dialogue, un menu apparait qui vous permet d'ajouter, de modi- 
fier ou de supprimer des points d'arret. 

Pile d'appels 

Selectionnez cet element de menu pour faire apparaitre la boite de dialogue Pile d'appels. Cette 
boite de dialogue vous indique l'ordre dans lequel les procedures et les fonctions sont appelees 
dans votre application. Cet outil sert lors du debogage. 
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Points de suivi 

Vous pouvez visualiser et definir des points de suivi pour suivre des variables precises, ou pour 
creer des expressions utilisant ces variables. Lorsque vous definissez un point de suivi, vous 
pouvez egalement specifier la facon dont le resultat du suivi sera affiche. Delphi affiche vos 
points de suivi dans les types appropries (entiers affiches sous forme de nombre decimal, etc.). 

Threads 

Selectionnez cet element de menu pour afficher une liste des threads en cours d'execution. 
Comme Windows 95 et NT sont tous deux des noyaux multitaches, vous pouvez lancer plu- 
sieurs threads a partir de votre application, afin d'effectuer plusieurs taches independamment. 

Modules 

Cette commande affiche la boite de dialogue Liste des modules, qui donne la liste de tous les 
modules utilises dans le projet en cours. 

Lisre de composanrs 

Selectionnez cet element de menu pour afficher la boite de dialogue Liste de composants (voir 
Figure 1 .22). Vous pouvez rechercher des composants par nom, ou faire simplement defiler la 
liste pour trouver celui qui vous interesse. Si vous voyez un composant que vous souhaitez uti- 
liser, appuyez sur le bouton Ajouter a la fiche, et le composant sera place a l'ecran. 



Figure 1.22 

La boite de dialogue 
Liste des composants. 



Cherchef par nom : 



TAnimate — | 
TBatchMove 



TBevel 
gai TBitBln 
t» I TBulton 



Lisre de fenerres 

II arrive qu'un grand nombre de fenetres soient ouvertes simultanement et que vous ayez du 
mal a retrouver celle qui vous interesse. En selectionnant cette option, une boite de dialogue 
apparait qui presente une liste de toutes les fenetres ouvertes par Delphi. Vous pouvez selec- 
tionnez les fenetres que vous souhaitez voir, et Delphi les placera a l'avant-plan. 
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Basculer Fiche/UniTe 



Lorsque vous travaillez sur une fiche, vous pouvez avoir a consulter le code associe a cette 
fiche, et vice versa. Cette option vous permet de basculer de l'une a l'autre. 

Unites... 

Selectionnez cet element de menu pour faire apparaitre une boite de dialogue montrant toutes 
les unites de votre projet. Vous pouvez alors cliquer sur l'unite que vous souhaitez voir, et l'edi- 
teur de code l'affichera. 

Fiches... 

Selectionnez cet element de menu pour faire apparaitre une boite de dialogue montrant toutes 
les fiches de votre projet. Vous pouvez alors cliquer sur la fiche que vous souhaitez voir, et 
l'editeur de code l'affichera. 

Bibliofheque de fypes 

Les Bibliotheques de type sont des fichiers composites OLE qui comprennent des informations 
relatives aux types des donnees, aux interfaces, aux methodes et aux classes exportees par un 
controle ou un serveur ActiveX. Lorsqu'une bibliotheque de types est selectionnee dans le pan- 
neau de liste des objets, il suffit de selectionner bibliotheque de types pour voir apparaitre une 
page d'attributs. 

Cette page affiche des informations relatives a la bibliotheque selectionnee. Les attributs et 
options suivants apparaissent alors dans la page d'attributs : Nom, GUID, Version, LCID, 
Fichier d'aide, Chaine d'aide, et Contexte d'aide. 

Nouvelle feneTre d'ediNon 

Selectionnez cet element de menu pour ouvrir une nouvelle fenetre d'edition, sans toucher a 
l'ancienne. L'unite courante situee devant votre fenetre d'edition est affichee dans la nouvelle 
fenetre d'edition. Ceci vous permet de voir deux unites de code simultanement. 

Barre d'icones 

Selectionnez cet element de menu pour rendre visible la barre d'icones si elle ne Test pas deja. 

Palette des composante 

Selectionnez cet element de menu pour rendre visible la palette des composants si elle ne Test 
pas deja. 
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Projer 

Les commandes du menu Projet sont destinees a compiler ou a construire vos applications. Les 
commandes de ce menu ne sont disponibles que lorsqu'un projet est ouvert. Ce menu comporte 
plusieurs elements, repris dans la Figure 1 .23. Ces elements sont decrits dans les sections sui- 
vantes. 



Figure 1.23 

Le menu Projet. 



Ajouter au projet... 

Suppiimei du projet... 

Importer une bibliotheque de types... 

Ajouter au referentiel... 

Compiler 
lout construire 
Verifier la syntaxe 
information... 



Options de deploiement Web... 
Deploiement Web 



Hjourer au projer 

Selectionnez cet element de menu pour ajouter au projet Delphi une unite existante et sa fiche 
associee. Lorsque vous ajoutez une unite a un projet, Delphi ajoute automatiquement cette uni- 
te a la clause uses du fichier de projet. Cette commande est identique a Fichier/ Ajouter. 

Supprimer du projer 

Selectionnez cet element de menu pour supprimer une unite existante et sa fiche associee du 
projet Delphi. Lorsque vous supprimez une unite d'un projet, Delphi supprime automatique- 
ment cette unite de la clause uses du fichier de projet. Cette commande est identique a Fichier/ 
Supprimer du projet. 

Hjourer au referenMel 

Selectionnez cet element de menu pour ajouter la fiche courante au Referentiel d'objets. Ceci 
permet la reutilisation et vous fait gagner du temps en vous permettant d'utiliser et de reutiliser 
des fiches usuelles. 

Compiler 

Selectionnez cet element de menu pour compiler tous les fichiers qui ont ete modifies dans 
votre projet courant depuis le dernier executable produit. 
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Tour consrruire 



Selectionnez cet element de menu pour reconstruire tous les composants, unites, fiches et tout 
le reste, que ces elements aient change ou non depuis le dernier executable produit. 

Verifier Is sqnfaxe 

Selectionnez cet element de menu pour verifier que la syntaxe de votre application Delphi est 
correcte, sans etre oblige de lier votre programme a un programme executable. 

Information... 

Selectionnez cet element de menu pour obtenir des informations concernant votre compilation 
Delphi et l'occupation de la memoire. 

Deploiemenr Web 

Une fois la conception d'une ActiveForm (fiche active) terminee, selectionnez cette commande 
pour l'envoyer sur votre serveur Web. 

OpNons 

Selectionnez cet element de menu pour faire apparaitre la boite de dialogue Options vous per- 
mettant de definir des options pour le compilateur, l'Editeur de lien (Lieur) et les repertoires. 

Executer 

Le menu Executer comporte des commandes qui vous permettront de deboguer vos program- 
mes depuis l'EDI, comme illustre Figure 1 .23. Ces commandes sont decrites dans les sections 
suivantes. 



Figure 1.24 

Le menu Executer. 
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Execurer 

Selectionnez cet element de menu pour executer votre application Delphi. Si aucune compila- 
tion n'existe encore, Delphi commence par compiler l'application. 

Paramerres... 

Selectionnez cet element de menu pour fournir des parametres en ligne de commande a votre 
application (voir Figure 1.25). 

Figure 1.25 

La boite de dialogue 
Parametres d'execution 



Recenser le serveur HcNveX 

Cette option de menu enregistre votre serveur ActiveX dans Windows 95 . II est alors possible 
d'utiliser votre controle ActiveX depuis un logiciel de navigation Web ou toute autre applica- 
tion. Avant de pouvoir utiliser pour la premiere fois un controle ActiveX, il faut l'enregistrer. 
Vous en apprendrez plus lors de la 13 6me lecon. 

De-recenser le serveur HcNveX 

Selectionner cette option de menu permet de de-recenser votre serveur ActiveX dans 
Windows 95 ou NT. De cette facon, vous pouvez supprimer de votre systeme l'instance de 
votre controle ActiveX. Vous en apprendrez plus a ce sujet au Jour 13. 

Pas a pas 

Selectionnez cet element de menu pour executer votre application ligne de code par ligne de 
code, tout en executant les appels de procedures et de fonctions comme s'ils n'etaient qu'une 
ligne de code. Ceci est pratique si vous souhaitez voir comment se comporte votre application, 
sans vouloir forcement voir le fonctionnement interne des appels de procedures et de fonctions. 

Pas a pas approfondi 

Selectionnez cet element de menu pour executer la aussi votre application ligne de code par 
ligne de code, mais en executant cette fois les appels de procedures et de fonctions ligne par 
ligne. Ceci est pratique si vous voulez voir ce qui se passe jusque dans les moindres details. 
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Jusqu'a la prochaine ligne 

Selectionnez cet element de menu pour voir quelle sera la ligne de code qui sera executee juste 
apres. Cette fonction est complementaire de Pas a pas approfondi. 

Jusqu'au curseur 

Selectionnez cet element de menu pour executer l'application jusqu'au point ou se trouve le cur- 
seur dans votre code source. Arrive la, vous pouvez utiliser la fenetre Points de suivi pour eva- 
luer une variable sur laquelle vous avez des doutes. 

Monlrer le poinrd'execurion 

Selectionnez cet element de menu si, ayant ferme la fenetre d'edition, vous vous trouvez au 
milieu d'un pas a pas en mode debogage dans votre application. Cette option de menu vous 
ramene dans une fenetre d'edition ou le curseur se trouve sur la ligne de code qui sera executee 
juste apres. 

Suspendre le programme 

Selectionnez cet element de menu pour suspendre votre application et utiliser des points de suivi. 

ReiniNaliser le programme 

Selectionnez cet element de menu pour arreter un programme suspendu et le retirer de la 
memoire. 

fljoufer poinrde suivi 

Selectionnez cet element de menu pour ajouter un point de suivi a la liste des points de suivi. 

fljoufer poinrd'arrer 

Selectionnez cet element de menu pour ajouter un point d'arret a la liste des points d'arret. Cette 
option fait aussi apparaitre un petit signe de stop rouge dans votre code source la ou se trouve 
le point d'arret. 

Evaluer/Modifier 

Vous pouvez non seulement regarder les variables, mais egalement, grace a cette option de 
menu, modifier en cours de route la valeur d'une variable. De plus, vous pouvez entrer une 
expression utilisant les variables de votre application, et cette expression sera immediatement 
evaluee. 
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Composant 

Le menu Composant permet d'ajouter et de configurer des composants ActiveX dans votre 
application Delphi. Comme vous pouvez le voir sur la Figure 1 .26, Le menu Composant com- 
porte plusieurs elements, que nous passerons en revue dans les sections suivantes. 

Figure 1.26 B— 

Le menu Composant. Nouveau composant... 

Installer un composant-.. 
Impottet un controle ActiveX... 

Deer un modele de composant... 

Installer des paquets... 

Configure, la palette.. 

Nouveau 

Selectionnez cet element de menu pour faire apparaitre l'Expert composant qui vous aide a 
creer un nouveau composant Delphi. Nous reviendrons sur la creation de composants au 
Jours 13. 

Installer 

Ce composant vous permet d'ajouter de nouveaux composants visuels Delphi, ainsi que de nou- 
veaux fichiers OCX a votre barre d'outils Delphi. Vous pouvez afficher une liste des compo- 
sants actuellement installed et utiliser le bouton Ajouter pour en ajouter de nouveaux. 

Imporfer un conrrole AcriveX 

Selectionner cette option vous permet d'importer un controle ActiveX (a condition qu'il soit 
deja enregistre sur votre systeme) dans un paquet Delphi (nouveau ou existant). 

Creer un modele de composanr 

Cette option devient active lorsque vous selectionnez plus d'un composant sur une fiche. Par 
exemple, un composant TTable et un composant TDatasource peuvent etre combines en un 
seul qui peut etre ajoute en une seule fois sur la fiche. 

Installer des paquefs 

Cette option vous permet de determiner quels paquets seront compiles a l'interieur de votre 
application. Vous pouvez voir la liste des composants actuellement installed et ajouter, suppri- 
mer ou modifier le contenu de chaque paquet. 
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Configurer paleffe 

Selectionnez cet element de menu pour ajouter ou supprimer des composants dans les onglets 
de la VCL. Ceci vous permet de mettre de cote les composants que vous n'avez pas l'intention 
d'utiliser dans votre projet. 

Base de donnees 

Le menu Base de donnees comporte plusieurs commandes vous permettant de creer, modifier 
et visualiser vos bases de donnees, comme indique Figure 1.27. Nous allons dans les sections 
suivantes passer en revue ces elements. 

Figure 1.27 

Le menu Base de donnees 



Explorer 

Selectionnez cet element de menu pour lancer l'Explorateur SQL qui vous permet de parcourir 
les structures de bases de donnees. 

MonireurSOL 

Selectionnez cet element de menu pour lancer le Moniteur SQL. Ce moniteur vous permet de 
suivre les requetes a mesure qu'elles sont executees dans votre application. Pour plus de details, 
reportez-vous a l'aide en ligne ou aux manuels d'aide. 

Expert fiche 

Cet expert vous assiste lors de la creation d'ecrans d'entree pour bases de donnees . II commence 
par ouvrir la base de donnees a laquelle vous allez vous connecter, avant de vous aider a con- 
cevoir les ecrans autour des donnees des fichiers. Pour plus de details, reportez-vous aux cha- 
pitres consacres aux bases de donnees. 

OuNIs 

Le menu Outils vous permet de voir et de modifier les parametres d'environnement, de modi- 
fier la liste des programmes du menu Outils, et de modifier les modeles et experts. II contient 
trois elements (voir Figure 1.28), decrits dans les sections suivantes. 



Ba;.e de donnees 
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Figure 1.28 

Le menu Outils. 



Options d'environnement... 
sntiel... 
figurer les outils 



Refers 
Configt 



Package Collection Editor 
Editeur d'image 



OpNons d'environnemenr 

Selectionnez cet element de menu pour faire apparaitre la bofte de dialogue Options d'environ- 
nement. Cette boite de dialogue vous permet de modifier les parametres de l'editeur, de l'affi- 
chage et de la palette, ainsi que les options du scruteur. Elle vous permet meme de definir des 
options d'enregistrement automatique pour proteger votre travail. 

ReferenNel 

Selectionnez cet element de menu pour visualiser les objets que vous avez places a l'aide de la 
commande Projet/Aj outer au referentiel. Vous pouvez alors les supprimer ou en ajouter. 



Configurer les Ourils 

Selectionnez cet element de menu pour personnaliser Delphi en ajoutant des outils a l'element 
de menu Outils. Vous pouvez ainsi lancer votre application favorite a partir de la. 



Groupes 

Le menu Groupes contient les elements de menu decrits dans la partie ci-apres (voir Figure 
1.29). Cet element de menu n'existe que dans l'edition Developpeur de Delphi (si vous avez 
achete separement PVCS) et dans la version Delphi C/S qui comprend PVCS d'origine. 



Figure 1.29 

Le menu Groupes. 



Parcouiif piojets FVCS... 
pouter Projecd au controle de version .. 



Parcourir projerPVCS 

Selectionnez cet element de menu pour faire apparaitre la fenetre de projet PVCS . Dans cette 
fenetre, vous pouvez consulter les fichiers qui ont ete au prealable enregistres dans le systeme 
de controle de version. 
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Gerer repertoires d'archive 

Selectionnez cet element de menu pour gerer la structure de repertoire de vos archives PVCS. 
Vous pouvez creer des repertoires afin de deplacer et d'organiser des fichiers. 

fljourer ProjecM au conrrole de version 

Selectionnez cet element de menu pour ajouter au systeme de controle des versions le projet 
sur lequel vous etes en train de travailler. Vous en apprendrez plus sur la gestion de projets et 
l'utilisation de PVCS lors de la lecon du Jour 5. 

Definir repertoires de donnees 

C'est la que vous pouvez definir vos repertoires de travail publics et prives. 

Hide 

Le menu Aide contient les elements de menu decrits ci-apres (voir Figure 1 .30). 



B 

Rubriques d'aide 
Recherche par mot-cle 
Nouveautes 
Introduction 

Utilisation d'Object Pascal 
Developpernent ^applications 
Reference Objets et Composants 

Page d'accueil Borland 
Page d'accueil Delphi 
Programmes et services Borland 

Apropos... 



Rubriques d'aide 

Selectionnez cet element de menu pour acceder au fichier d'aide principal de Delphi 3, dans le 
format d'aide de Windows 95 . Toutes les fonctions de recherche figurent dans le moteur d'aide, 
et il n'est done pas besoin d'autres selections de menu. 

H propos... 

Selectionnez cet element de menu pour voir le numero de version du logiciel Delphi. Si vous 
voulez rire un peu, laissez cette fenetre affichee, maintenez enfoncee la touche Alt, entrez 
DEVELOPERS et admirez le generique. 



Figure 130 

Le menu Aide. 
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Personnfllisfltion 

Pour tailler Delphi a vos mesures, voici quelques modifications que vous pouvez apporter. 

Barre dicones 

Vous pouvez ajouter ou supprimer des elements dans la barre d'icones en cliquant avec le bou- 
ton droit sur cette barre, puis en selectionnant Proprietes dans le menu contextuel. Ceci vous 
permet de personnaliser la barre d'outils. 

Palette des composants 

Vous pouvez egalement personnaliser la palette des composants en cliquant avec le bouton 
droit dessus, puis en selectionnant Configurer dans le menu contextuel. Vous faites apparaitre 
ainsi la meme boite de dialogue que vous auriez obtenue en appelant Options/Environnement/ 
Palette. Elle vous permet d'ajouter, de renommer ou de supprimer un onglet, et de faire des 
ajouts a la palette des composants. 

Fenetre d'ediNon 

La fenetre d'edition peut elle aussi etre personnalisee. Cliquez sur la fenetre, puis choisissez 
Proprietes. Vous pouvez alors modifier la syntaxe, les mises en evidence colorees, et memes 
les touches utilisees par l'editeur. L'editeur prend en charge des commandes d'edition de style 
Brief (Brief est un editeur vendu dans le commerce). Vous pouvez entre autres modifier le 
codage du clavier et utiliser des tabulations intelligentes . 

Recapifulatif 

Dans cette lecon, vous avez pu decouvrir les premiers elements de l'environnement Delphi. 
Vous avez vu ce que signifie RAD, vous avez decouvert le genre d'outils que sont les VBX, les 
ActiveX et les VC, et de quelle facon on peut creer des VC avec Delphi. Une rapide introduc- 
tion vous a presente les constantes, les variables, les fonctions et les procedures. Nous avons 
vu ce qu'etait un programmation pilotee par evenements, en observant la facon dont 
Windows 95 reagit aux sollicitations. Enfin, nous avons parle des proprietes et de ce qu'elles 
representent dans Delphi. L'application toute simple que vous avez ecrite s'etoffera au fil des 
lecons qui suivront. 

Nous avons egalement passe en revue l'environnement de developpement integre (EDI) de 
Delphi. Vous avez peut-etre ete surpris par l'aspect tres "liste des commissions" de cette le?on, 
mais cela semblait necessaire. En effet, pour utiliser au mieux l'ensemble des outils proposes 
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par Delphi, il vous faut savoir quels sont les outils disponibles. Au fil de cet ouvrage, nous ver- 
rons plus en detail les divers outils et options, ainsi que les facons de les utiliser. 

Une fois que vous aurez repondu au questionnaire et termine les exercices, nous passerons a la 
lecon suivante consacree au Pascal Objet. 

Atelier 

L'atelier vous donne trois moyens de verifier que vous avez correctement assimile le contenu 
de cette journee. La section Questions - Reponses reprend des questions posees couramment, 
et y repond, la section Questionnaire vous pose des questions, dont vous trouverez les reponses 
en consultant 1' Annexe A, et les Exercices vous permettent de mettre en pratique ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Comment gerer toutes les fenetres qui apparaissent ? 

R La meilleure chose a faire, si vous developpez beaucoup, consiste a vous offrir un grand 
moniteur. Pour nous, le minimum acceptable est un moniteur de 17 pouces (en fait les 
trois auteurs de ce livre possedent des moniteurs de 21 pouces). 

Q Pourquoi a-t-on besoin de controles ActiveX et de controles visuels ? 

R C'est en fait une question d'extensibilite. Delphi est parfait a l'heure actuelle, mais qu'est- 
ce qu'on fera une fois que les viseurs de realite virtuelle se seront generalises ? II nous 
faudra un Composant visuel Delphi pour notre controle de viseur RV. En supportant 
l'ajout de nouvelles fonctions sous forme d'ajout a la barre d' outils, Delphi assure sa pe- 
rennite. Ce concept va meme plus loin lorsqu'on en vient a parler de l'lnternet. Microsoft 
(et d'autres editeurs) proposent de nouveaux composants ActiveX chaque jour afin de 
vous permettre d'etendre vos competences de developpeur, et Borland vous aide a tirer 
parti de ces nouvelles ressources. 

Q II y a des produits qui ressemblent a Delphi Client/Serveur comme PowerBuilder. 
En quoi Delphi est-il different ? 

R Delphi Client/Serveur est radicalement different, sur plusieurs points. Les depliants pu- 
blicitaires vous le diront mais il y a deux points importants : le Pascal objet comme lan- 
gage de base place Delphi bien au-dessus de la melee, car il assure la plus solide des 
fondations. Par ailleurs, apres observation, les applications PowerBuilder semblent bien 
plus lentes visuellement. Les executables Delphi sont plus rapides et — generalement — 
plus petits en taille que leurs equivalents PowerBuilder. 
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Questionnaire 

1 . Donnez deux avantages d'un environnement de developpement RAD par rapport a un 
compilateur classique. 

2. En quoi les controles visuels (VC) natifs de Delphi 3 different-ils des controles ActiveX ? 
En quel langage les controles visuels Delphi natifs sont -ils ecrits ? 

Qu'est-ce que la mise en evidence de la syntaxe ? 
5 . Comment ajoute-t-on un nouveau composant visuel ou OCX a la barre d'outils ? 

Exercices 

1 . Lisez la page d'introduction au Guide de reference du Pascal objet, decrivant un diagram- 
me de syntaxe. II est important que vous compreniez ce que sont les diagrammes de syn- 
taxe. Si vous ne savez pas les lire, il vous sera difficile de rechercher la syntaxe d'une 
commande ou d'une expression. Ce manuel figure sur le CD-ROM de Delphi, et peut ega- 
lement dans certaines versions etre fourni sur papier. 

2. Creez une application comportant deux boutons et faites que le texte de buttoM soit re- 
couvert par le texte de button2 (le nouveau bouton). 
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Le Pascal Objef. 
premiere partie 
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Maintenant que vous avons vu comment l'EDI de Delphi peut vous faciliter la tache, interes- 
sons-nous au langage qui forme les fondations de Delphi : le Pascal objet. Le Pascal Objet est 
issu d'une grande lignee qui remonte a Turbo Pascal 1 .0. A mesure de ses evolutions, le Turbo 
Pascal a vite ete reconnu comme un des langage les plus riches (et un des compilateurs les plus 
rapides) du marche. Lorsque Borland presenta par la suite les extensions orientees objet au Tur- 
bo Pascal 5.5, ce fut la naissance d'une nouvelle generation de compilateurs. Ce que vous pou- 
vez voir aujourd'hui dans Delphi 3 est l'accomplissement d'annees de labeur consacrees a la 
creation du langage parfait. Lors de cette journee, nous allons traiter des fondamentaux qui 
Mtissent le langage. Nous poursuivrons notre etude du Pascal Objet au Jour 3. 

I Linn Vous devez saisir les listings quifigurent dans cette legon et dans les suivantes en vous confor- 
mant a ces etapes : 

1. Lancez Delphi. 

2. Si un nouveau projet n'est pas automatiquement ouvert, choisissez Fichier/Nouveau 
projet dans le menu de Delphi 3. 

3. Choisissez Projet/ 'Options/ 'Lieur et cochez la case G'en'erer application console avant 
d'appuyer sur OK. Vous indiquez ainsi a Delphi que Vapplication que vous cr'eez n'est 
pas une application fenetree mais une application de type "fenetre DOS". 

4. S'electionnez VoirlSource du projet. La source maitre du projet devient visible dans la 
fenetre d'edition. Bien que vous n'editiez pas ce code en temps normal, dans ce cas 
precis vous allez remplacer ce code par votre propre listing. C'est une f aeon simple de 
creer un programme . 

5. Lorsque vous executez un programme, il apparait dans une fenetre qui lui est propre. 
Pour fermer cette fenetre , appuyez sur AU+F4 ou cliquez sur le X qui figure dans le coin 
superieur droit de la fenetre de sortie. 

6. Attention : lorsque vous remplacez Vancien code source par le votre, vous devez soit 
sauver auparavant le projet sous un nouveau nom (par exemple, MaDemo), soit ne pas 
modifier la ligne ou figure Program Projectl. En effet, Delphi gere lui-meme la cohe- 
rence entre le nom de fichier et le nom du projet : si vous tentez de le faire a sa place, 
vous obtiendrez une erreur lors de la phase de compilation. L'astuce consiste done a ne 
pas modifier le nom du programme, ou a enregistrer le projet sous le nouveau nom voulu 
(Fichier\Enregistrer projet sous). 

Un manuel de reference du Pascal Objet est fourni avec Delphi 3 . Si vous ne l'avez pas sous 
forme papier, il est inclus dans l'aide en ligne. II traite de tous les concepts abordes ici, et 
d'autres. Nous avons fait figurer dans ce livre les Jours 2 et 3 pour qu'ils tiennent lieu d'une sorte 
de "Reader's digest" du manuel de reference. Lorsqu'il s'agit d'apprendre le Pascal Objet, une 
deuxieme source d'informations peut eclairer bien des points obscurs. 
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signe egal en Pascal 



Avant d'aller plus loin, ceux d'entre vous qui connaissent d'autres langages de programmation, 
voire aucun, devraient se pencher sur l'utilisation du signe egal sous Delphi. 

Ce signe peut revetir deux significations. La premiere est l'operateur d'affectation. Pour cette 
fonctionnalite, Delphi utilise := comme operateur. Par exemple, y := ax + b. II ne faut pas 
croire que cette instruction signifie "y possede la valeur de a fois x plus b" ; elle signifie "y 
prend la valeur a fois x plus b". Bien entendu, il ne doit pas y avoir d'incompatibilite de type 
entre ces differentes valeurs. N'oubliez pas que Delphi est un langage fortement type, et qu'en 
consequence vous devez etre attentif au type des variables que vous manipulez. 

La deuxieme fonctionnalite en Delphi est la comparaison, ou encore la relation d'equivalence. 
Dans ce cas, on utilise directement le signe egal. Par exemple, 

if A=B then WriteLn('A et B ont la meme valeur 1 ) 

Dans ce cas, vous n'affectez pas la valeur de B a A : vous testez l'egalite entre ces deux valeurs. 
Attention cependant au cas particulier de declaration d'une constante : 

B Const 
TVA = 0.206; 

Dans cet exemple , la constante TVA est equivalente a la valeur numerique 0.206. Lors de la pha- 
se de compilation, le compilateur substituera a TVA la valeur 0 . 206 dans tout le code. 



Comme nous l'avons rapidement vu au Jour 1 , lorsque vous commencez a programmer, vous 
vous apercevez vite que certains programmes necessitent l'utilisation repetee de la meme 
valeur. Un bon exemple d'un tel programme est un logiciel de facturation. Le taux de TVA ris- 
que d'y intervenir a maintes reprises. Pas de problemes, il suffit de mettre 0.206 (20,6 %) cinq 
fois dans votre programme. Oui, mais les choses se gatent lorsque le taux de TVA change. 
Vous devez alors vous souvenir de le changer aux cinq endroits ou ce taux apparait. Les risques 
d'erreur ou d'oubli sont alors multiplies d'autant. 

C'est ici qu'interviennent les constantes. Les constantes ne sont rien d'autre qu'un nom donne 
pour une valeur que vous utilisez dans votre programme. Dans notre exemple, le nom TVA sera 
plus facile a utiliser que le nombre 0.206. Les constantes sont declarees dans la partie const de 
votre application. Voici la nouvelle declaration. 



Constantes 



const 



TVA = 0.206; 
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Hshice 



Cette declaration de constante a plusieurs utilites. Tout d'abord, elle rend le nombre plus facile 
a memoriser. Si vous voyez 0.206 au milieu d'un listing, il n'est pas evident que vous compre- 
niez tout de suite de quoi il s'agit. Ensuite, l'utilisation d'une constante facilite grandement le 
travail de maintenance d'une tierce personne. II y a des chances que vous, le createur de Impli- 
cation, ne soyez pas forcement celui qui maintiendra le code. Si quelqu'un d'autre doit se pen- 
cher sur votre code pour modifier le taux de TVA, sa tache sera facilitee s'il voit TVA au lieu de 
toute une serie de 0.206 dissemines dans le code. Ainsi, les deux principaux benefices des 
constantes sont la lisibilite et la facilite de maintenance. 

// est important que les noms de vos variables et constantes soient aussi descriptifs que 
possible. Les noms d'identificateurs peuvent etre d'une longueur quelconque, mais seuls les 63 
premiers caracteres sont reconnus. Le premier caractere d'un nom d'identificateur doit etre un 
caractere de soulignement ou une lettre. Les caracteres qui suivent doivent etre des lettres, 
des chiffres ou des caracteres de soulignement. 

Constantes en action 

Les constantes peuvent prendre bien des formes et recouvrir de nombreux types de donnees. 
Voici un exemple utilisant differents types de donnees : 

const 

MonNom = 'Ferdinand Bardamu'; 
Age = 32; 
Salaire = 6.50; 

Adresse = '42, rue Ford Prefect'; 

La premiere constante, MonNom, est un exemple de constante de type string (chaine de carac- 
teres). En Delphi 3, tout ce qui se trouve entre apostrophes, espaces y compris, fait partie de 
MonNom. Vous avez d'autre part defini Age comme etant egal a la valeur integer (entier) 32. La 
troisieme constante, Salaire est egal au nombre real (reel) 6.50. Enfin, la quatrieme constante 
est un autre exemple de valeur de type string. 

Interessons-nous a la vie d'une constante. Reprenons notre exemple de TVA = 0 . 206. Dans ce 
cas, lorsque vous demandez a Delphi2 de compiler votre application, Delphi regarde votre 
declaration de constante, puis recherche toutes les occurrences de TVA dans votre application 
et les remplace par 0 . 206. Toute l'astuce reside dans le fait que Delphi ne fait cela qu'au cours 
de la compilation et ne touche pas a votre code source. Les constantes sont la pour vous sim- 
plifier la vie, pas celle de Delphi. Delphi sait que vos declarations de constantes ne sont en fait 
qu'un grand tableau de substitution. 
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Variables 



Vous venez de voir l'utilite des constantes pour remplacer une donnee utilisee a maintes repri- 
ses dans votre application. Le probleme avec les constantes est qu'elles ne peuvent changer de 
valeur au cours de l'execution du programme. Les constantes doivent rester constantes. Leur 
utilite est limitee a des donnees qui ne changeront pas. Malheureusement, dans notre monde 
bien peu de choses restent constantes. 

Heureusement, les variables sont la. Une variable ressemble a une constante en cela qu'il s'agit 
d'un nom donne a une valeur. II y a une grosse difference cependant. La valeur d'une variable 
peut changer au cours de l'execution du programme. La variable peut varier, d'ou son nom. Une 
variable doit etre definie sous un type donne. 

Regardons un peu quels sont les differents types de donnees dans Delphi 3 . Dans les paragra- 
phes qui ont precede, nous avons fait allusion a real, integer et string . II s'agit la de quelques 
types de donnees parmi d'autres. Regardons-les plus en detail. 

Types de donnees simples 

La forme que prennent les donnees joue un role important dans la facon dont vous les percevez. 
Si un ami vous demande l'heure, vous ne lui repondez pas 2 345 567 secondes apres minuit du 
01/01/1 970 . Non , vous vous contentez de lui repondre " 1 1 h30 " . 

En fait la forme que prend une donnee permet de la comprendre ou non. Pour ce qui est de la 
programmation, la facon dont les donnees sont entrees et enregistrees entrent egalement en 
consideration. Comme vous ne disposez que d'une quantite de memoire limitee sur un ordina- 
teur, il est essentiel de ne pas en gaspiller. Par exemple, si vous souhaitez stacker le nombre 
10, il serait dommage de le stocker dans un emplacement de memoire assez grand pour conte- 
nir 1 999 999 999. Si vous faites ceci plusieurs fois (en attribuant un mauvais type et un mau- 
vais emplacement memoire) vous risquez d'occuper une grande portion de memoire. Pour 
savoir quel emplacement vous allez allouer, il est egalement necessaire de connaitre l'intervalle 
des valeurs que la variable peut prendre. 

Les types renvoient egalement a un autre concept. Le langage Pascal Objet est connu pour etre 
un langage fortement type. Cela signifie que Pascal s'assure que les donnees de types differents 
peuvent interagir de maniere tres structuree. Ce typage fort garantit que votre application 
n'essaiera pas d'ajouter votre age a votre nom et de placer le resultat dans votre numero de tele- 
phone. Ce genre d'imbroglio est plus facile a faire dans des langages moins rigoureux. Certains 
se plaignent des contraintes imposees par les langages fortement types, mais de tels langages 
vous assurent que votre application fera les choses comme il se doit. lis limitent le program- 
meur dans ce qu'il doit faire, et pas dans ce qu'il peut faire. 
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Regardons quels sont les differents "types" de donnees et l'emploi qu'en fait Delphi 3 : 

• Types entiers 

• Types reels 

• Le type Currency 

• Types booleens 

• Types caractere 

• Types chaine 

Types entiers 

Le type de donnees entiers est utilise pour representer des nombres entiers. II existe plusieurs 
types capables de stacker une valeur entiere. Le Tableau 2.1 montre ces types et leurs intervalles. 



Tableau 2.1 : Les types de donnees Integer 



Type 


Intervalle 
de valeur 


Octets 

de memoire 

necessaires 


Signe (peut 
contenir un nombre 
negatif) 


Byte (octet) 


0...255 


1 


Non 


Word (mot) 


0... 65535 


2 


Non 


Shortlnt (entier court) 


-128. ..127 


1 


Oui 


Smalllnt (petit entier) 


-32768... 32767 


2 


Oui 


Integer (entier) 


-2147483648... 
2147483647 


4 


Oui 


Cardinal 


0... 2147483647 


4 


Non 


Longlnt (entier long) 


-2147483648 a 
2147483647 


4 


Oui 



Vous pouvez remarquer que differents types entiers peuvent avoir des capacites de stockage 
radicalement differentes. Remarquez aussi que tout a un prix. La quantite de memoire neces- 
saire augmente avec la capacite de stockage. 

| n r_ L'espace memoire est mesuree en octets. Un octet peut contenir 8 bits d' information. Un bit 
lll|U est un binaire 1 ou 0. Les divers types de donnees de Delphi requierent differents nombres 
d'octets pour stocker leur contenu. Le type Byte utilise un seul octet, le type longint en 
occupe quatre : chaque variable que vous d'efinissez occupe de la memoire, et cette memoire 
est disponible en quantite limitee. 
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Integer est l'un des deux types generiques de Delphi 3 . Les types generiques sont ceux qui sont 
affectes par l'unite centrale ou le systeme d'exploitation sur lesquels le compilateur est imple- 
mente. Sous un systeme d'exploitation 32 bits tel que Windows 95, les types generiques ont 
leur capacite de stockage definie par le systeme d'exploitation. 



Les enMers en acNon 

Prenons un exemple simple d'utilisation d'un type integer. Le code du Listing 2.1 vous montre 
comment definir trois variables Paie, PaieHeuresSupp et PaieTotale. 



Listing 2.1 : Programme de demonstration des types entiers 
program ExempleEntiers ; 

uses 
Forms ; 

var 

Paie : Integer; 
PaieHeuresSupp : Integer; 
PaieTotale : Integer; 

begin 
Paie := 5000; 
PaieHeuresSupp := 1000; 
PaieTotale := Paie + PaieHeuresSupp; 
WriteLn ('La paie totale est de FF', Paie Totale); 

Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 

end. {fin de ExempleEntiers} 

Dans cet exemple, nous declarons trois variables de type integer, nous affectons des valeurs 
numeriques a Paie et PaieHeuresSupp, puis nous additionnons Paie et PaieHeuresSupp pour 
placer le resultat dans PaieTotale. Enfin, nous utilisons la procedure Writeln ( ) pour placer 
le resultat a l'ecran. 



Tupe reels 

Apres le type entier, vient logiquement le type de donnees real (reel). Ces types de donnees 
real sont congus pour contenir un nombre avec une partie fractionnelle. Dans l'exemple de code 
integer (Listing 2.1), nous avons suppose que le salaire serait en francs entiers. C'est rarement 
le cas. Dans le monde reel, on recoit aussi des centimes, il est done necessaire d'utiliser un type 
de donnees qui reproduise cet aspect de la realite. Nous revenons a ce que nous avons dit tout 
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a l'heure, concemant la necessite d'utiliser le type de donnees adequat. Vous pouvez choisir 
parmi differentes sortes de type real, comme le montre le Tableau 2.2. 



Tableau 2.2 : Type de donnees reels 


Type 


Intervalle 


Octets de memoire necessaires 


Real (reel) 


±2,9 x 10~ 39 a±l,7x 10 38 


6 


Single (simple) 


±1,5 x 10" 45 a3,4x 10 38 


4 


Double 


±5,0 x 10" 324 a 1,7 x 10 308 


8 


Extended 


±3.4xl0- 4932 al.lxl0 4392 


10 


Comp 


-faf 4 


8 



L'intervalle des valeurs que ces types peuvent accepter est impressionnant. Vous avez de quoi 
faire avant d'avoir besoin de generer un nombre qui depasse 1 ,1 x 10 4392 




Le type Comp est en fait un tres grand nombre entier, et non un nombre reel. Ce type est inclus 
dans ce tableau parce qu'il est mis en ceuvre de la meme fagon que les types a virgule flottante. 
II s'agit en fait d'un entier a 64 bits. 



Reels en acNon 

Examinons un exemple mettant en oeuvre des types de donnees reels. Nous allons reprendre 
notre programme de paie pour le rendre un peu plus realiste. Regardez le Listing 2.2. 

Listing 2.2 : Programme simple utilisant des types real 
program ExempleReal; 

uses 
Forms ; 

const 

Prelevements = 0.10; 
var 

Paie : Single; 
PaieHeuresSupp : Single; 
PaieBrute : Single; 
PaieNette : Single; 
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flstuce 



begin 
Paie := 5000.55; 
PaieHeuresSupp := 1000.10; 
PaieBrute := Paie + PaieHeuresSupp; 
PaieNette := PaieBrute - (PaieBrute * Prelevements) ; 
WriteLn ( 1 Le salaire brut est de ', PaieBrute, 1 FF 1 ); 
WriteLn ( 1 Le salaire net est de ', PaieNette, 1 FF'); 

Readln {Pour que la fenetre ne se ferme pas tant que vous n 1 avez pas appuye 

sur Entree} 
end. {de ExempleReal} 

Cette application est un peu plus realiste. Elle contient une variable PaieBrute, qui stocke jus- 
tement la paie brute. La PaieNette est maintenant le resultat de PaieBrute moins le pourcen- 
tage de prelevements defini dans Prelevements. Nous avons egalement utilise la constante 
Prelevements. 

Essay ez dans la mesure du possible d'utiliser des types de donnees Single ou Double plutot 
que Real. Les Real sont plus lents a manipuler (il ne s'agit pas d'un type natif pour Vunite a 
virgule flottante du microprocesseur, chaque operation necessite done des conversions) et 
prennent plus de place ou sont moins precis que Single ou Double. 



Tqpe Currency 



Un nouveau type de donnees qui merite que Ton s'y interesse est le type Currency (devise). Jus- 
qu'a present dans la plupart des langages, le developpeur devait utiliser un type Real pour 
representer des valeurs monetaires. Delphi 3 propose a cet usage specifique un type Currency. 
Ce type est un type a virgule flottante qui est compatible dans ses affectations avec tous les 
autres types a virgule flottante, type Variant compris (nous reviendrons sur ce type par la sui- 
te). Le type Currency a une precision a quatre decimales et on le stocke sous forme d'entier a 
64 bits (les quatre chiffres les moins significatifs representent les quatre chiffres situes apres la 
virgule). 

Quel est l'interet d'un tel type ? Les principaux avantages sont au nombre de deux : 

• Le type Currency est plus precis lorsque il s'agit de traiter de grands nombres. 

• Le type Currency est utilise dans CurrencyField et dans d'autres composants. II est 
compatible avec les types de base de donnees representant des devises. 

Nous aurons l'occasion de reutiliser ce type au long de cet ouvrage. 
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Tqpe Currency en acNon 

Vous pouvez reecrire votre programme ExempleReal (Listing 2.2) en utilisant le type Curren- 
cy pour les elements monetaires. Le resultat devrait ressembler au Listing 2.3. 

Listing 2.3 : Un exemple simple de programme utilisant Currency 
program ExempleCurrency ; 

uses 
Forms ; 

const 

Prelevements = 0.10; 
var 

Paie : Currency; 
PaieHeuresSupp : Currency; 
PaieBrute : Currency; 
PaieNette : Currency; 

begin 
Paie := 5000.55; 
PaieHeuresSupp := 1000.10; 
PaieBrute := Paie + PaieHeuresSupp; 
PaieNette := PaieBrute - (PaieBrute * Prelevements); 
WriteLn ( 1 Le salaire brut est de ', PaieBrute,' FF 1 ); 
WriteLn ( 1 Le salaire net est de ', PaieNette, 1 FF'); 

Readln {Pour que la fenetre ne se ferme pas tant que vous n 1 avez pas appuye 
sur Entree} 

end. {de ExempleCurrency} 

Types Booleens 

Les type de donnees booleens sont les plus simples et les plus utilises qui soient. Les variables 
de ce type represented une quantite logique, True (vrai) et False (faux) par exemple. Vous 
pouvez alors vous demander pourquoi le Tableau 2.3 dresse la liste des cinq types booleens dif- 
ferents. Ceci s'explique par des raisons de compatibilite. Dans certains cas, Windows exige une 
valeur booleenne dont la taille est d'un word. Dans ces cas-la, d'autres types Boolean peuvent 
etre utiles. 
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Tableau 23 


; Les types de donnees Boolean 




Type 


Intervalle 


Octets de memoire necessaires 


Boolean 


Booleen a un octet (le plus repandu) 


1 


ByteBool 


Booleen a un octet 


1 


Bool 


Booleen de taille word 


2 


WordBool 


Booleen de taille word 


2 


LongBool 


Booleen de taille deux words 


4 



A quoi sert un type Boolean ? II s'applique a tout ce qui peut se decrire par OUI ou NON, VRAI 
ou FAUX, ARRET ou MARCHE. 

Une des choses les plus importantes a remarquer est que les variables de type Boolean peuvent 
accepter les operateurs and, or et not. Ceci vous permet de les manipuler plus librement. 

Si vous utilisez une ByteBool, WordBool ou un LongBool la oil un type Boolean est neces- 
saire, Delphi 3 genere un code dans lequel toutes les valeurs non nulles de variables de ce 
type sont converties en 1 (True). Ceci vous permet d'utiliser les types de maniere presque 
interchangeable. 

Booleens en acNon 

Les types booleens ont de nombreux usages, comme nous l'avons vu plus haut. Le Listing 2.4 
est un programme d'exemple qui met en ceuvre differents aspects des variables booleennes. 

Listing 2.4 : Programme d'exemple simple sur les booleens 
program ExempleBoolean; 

uses 
Forms; 

var 

FeuVert : Boolean; 
MonFlag : Boolean; 

begin 
FeuVert := False; 
MonFlag := not FeuVert; 



WriteLn ( 1 Le flag FeuVert est defini comme ', FeuVert): 
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WriteLn ('MonFLag est defini comme ', MonFlag); 

WriteLn ('Un ou logique sur ces deux flags donne ', FeuVert or MonFlag); 
WriteLn ('Un et logique sur ces deux flags donne ', FeuVert and MonFlag); 
Readln {Pour que la fenetre ne se referme pas tant que vous n 1 avez pas 
appuye sur la touche Entree} 

end. 

Le Listing 2.4 montre comment creer deux variables, FeuVert et MonFlag, toutes deux de type 
booleen. On affecte ensuite une valeur a ces variables : FeuVert a pour valeur False et Mon - 
Flag a pour valeur l'oppose de FeuVert, soir True. On affiche a l'utilisateur la valeur des deux 
variables, puis on effectue un or et un and logiques (directement dans la declaration Wri- 
teln ()). Bien que cet exemple soit des plus simples, il illustre l'usage que Ton peut faire du 
type Boolean dans un vraie application. Nous utiliserons ce type a maintes reprises dans les 
lecons qui suivront. 

Types caracfere 

Le type Char est sans doute bien connu de ceux d'entre vous qui ont programme en C ou C++. 
Les types caractere ont ete concus pour ne stocker qu'un seul caractere. Un caractere a une taille 
d'un octet. Un rapide calcul vous montrera que 2 8 (un octet) donne la possibilite de choisir par- 
mi 256 caracteres differents dans une variable de type Char. Si vous consultez la table ASCII 
qui figure a 1' Annexe B de ce livre, vous verrez qu'il existe des caracteres ASCII allant de 0 a 
255 (en informatique, on commence generalement a partir de zero, et non a partir de un). 

Une des nouveautes apportees par Delphi 3 est l'ajout (ou plutot la redefinition des types carac- 
tere). Le type Char est maintenant l'equivalent du type ANSIChar. ANSIChar est toujours un 
caractere ANSI 8 bits. Par ailleurs, un troisieme type de caractere, WideChar , vous permet d'uti- 
liser un type de caractere 16 bits. A quoi bon trois types differents ? Cette fois encore, il s'agit 
d'une question de compatibility. Delphi 3 prend en charge le standard Unicode, comme le mon- 
tre le Tableau 2.4. Le type de donnees WideChar est le resultat de cette prise en charge. Un 
caractere Unicode utilise les 16 bits du type WideChar. Si vous placez une valeur normale 
ANSIChar dans une variable de type WideChar, l'octet de poids fort sera zero et le caractere 
ANSI sera stocke dans l'octet de poids faible. Bien que Windows NT respecte parfaitement 
Unicode, ce n'est pas le cas de Windows 95. Si vous ecrivez des applications destinees aux 
deux plates-formes, pensez a utiliser la fonction SizeOf ( ) et ne partez pas du principe que les 
caracteres ne font qu'un octet de long. Pour plus de details sur Unicode, reportez-vous a 
T Annexe D. 

Inffl ^ I'heure oil cet ouvrage est mis sous presse, Borland a indiqu'e que le type de donnees Char 
1 1 1 1 U est equivalent au type ANSIChar . II a ete suggere que Char sera finalement equivalent au type 

WideChar. Si c'etait le cas, tous les programmes utilisant le type de donnees Char respecte- 

raient Unicode par defaut. 
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Tableau 2.4 : Types de donnees character 


Type de caractere 


Tattle en octets 


Contient 


ANSIChar 


1 


1 caractere ANSI 


WideChar 


2 


1 caractere Unicode 


Char 


1 


Pour l'instant egal a ANSIChar. Dans les versions 
futures de Delphi 3 , ce type sera peut-etre egal a 
WideChar 



Vous avez peut-etre remarqu'e que dans Delphi 3 de nombreuses choses se plient aux defini- 
tions ANSI mais vont bientot passer a leur equivalent Unicode. Les constructeurs s'eloignent 
peu a peu de Windows 3.1, et lorsque — conformement aux annonces de Microsoft — 
Windows 95 et Windows NT se fondront en un seul systeme, le monde NT 32 bits fera sa 
grande entree. A ce moment-la, les developpeurs de logiciels auront besoin d'un environne- 
ment de d'eveloppement qui prenne totalement en charge Unicode. A cette date (et peut-etre 
mime avant) tous les types de donnees de Delphi 3 respecteront Unicode. 

Tqpes caracTere en acMon 

Pour un exemple de la facon dont fonctionnent les types de caractere, consultez le Listing 2.5. 

Listing 2.5 : Un exemple de programme simple utilisant le type char 
program ExempleChar; 

uses 
Forms; 

var 

Reponse : Char; 
Question : Char; 

begin 
Question := 'A' ; 
Reponse := 'B' ; 

WriteLn ('La question est ', Question); 
WriteLn ('La reponse est ', Reponse); 

Reponse := Question; 
Question := #66; 
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Le Pascal Dbjer. premiere parrie 




WriteLn ('La question est maintenant ', Question); 
WriteLn ('La reponse est maintenant ', Reponse); 

Readln {Pour que la fenetre ne se ferme pas tant que vous n ' avez pas 
appuye sur Entree} 

end. 



Ce listing souleve plusieurs points interessants. Apres avoir declare deux variables de type 
Char, a savoir Reponse et Question, nous affectons une valeur a chacune d'elles. Votre decla- 
ration d'affectation a affecte le caractere litteral "A" a Question et le caractere litteral "B" a 
Reponse. Une fois ces valeurs inscrites a l'ecran vous faites un petit tour de passe-passe. Vous 
affectez a Reponse la valeur de Question. Vous pouvez proceder ainsi car les deux variables 
sont du meme type. 

La ligne qui peut sembler bizarre est celle-ci : 
Question :=#66; 

Souvenez-vous qu'une variable de type char ne peut contenir qu'un seul caractere. Si vous 
regardez quel est le caractere ASCII numero 66, vous verrez qu'il s'agit de la lettre "B". Vous 
pouvez utiliser le signe # pour indiquer a Delphi 3 que vous souhaitez utiliser la representation 
decimale d'un caractere plutot que le caractere lui-meme. Le type de donnees caractere est tres 
utile et nous amene a passer au type suivant, le type de donnees String (chaine de caracteres). 

Types chaine 

Le type de donnees String est plus souvent utilise que le type Char. Dans Delphi 1, le type 
String etait une concatenation de 255 caracteres au maximum. En d'autres termes, il s'agissait 
d'un tableau de caracteres. Delphi 3 gere les chaines differemment. Le Tableau 2.5 rappelle les 
quatre types chaine disponibles sous Delphi 3. 



Tableau 2.5 : Les types chaine 


Type de chaine 


Longueur 


Contient 


Terminaison nulle 


ShortString 


255 


ANSIChar 


Non 


AnsiString 


jusqu'a env. 3 Go 


ANSIChar 


Oui 


String 


255 ou jusqu'a env. 3 
Go 


ANSIChar 


Oui ou Non 


WideString 


jusqu'a env. 1,5 Go 


WideChar 


Oui 
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Delphi prend en charge les chaines longues. Cette prise en charge est activee par la directive de 
compilation $H+. Cette directive est presente par defaut. Lorsque cette directive est utilisee, une 
variable du type String peut contenir une chaine de longueur quasi illimitee (environ 3 Go). 

La aussi, Borland a donne au developpeur le choix entre rester compatible avec Delphi 1.0 et 
suivre le progres. Le type String est par defaut (avec la directive $H+ activee) egale au type 
AnsiString. Le type AnsiString est une chaine terminee par un null qui est allouee dynami- 
quement. Le grand avantage d'une variable de ce type est justement son allocation dynamique. 
A mesure que vous placez des chaines plus longues dans cette variable, Delphi 3 realloue la 
memoire necessaire a votre variable. Un autre avantage du type AnsiString est qu'il est deja 
termine par un null. Vous n'avez done plus a utiliser les anciennes commandes de type St rP - 
Copy ( ) pour effectuer des conversions entre des chaines de type Pascal (de longueur fixe) et 
des chaines a terminaison nulle. 

Quel est l'interet de ces terminaisons nulles ? Encore une question de compatibilite. Dans la 
plupart des appels aux routines systemes, telles que l'API Win32, il est necessaire de transmet- 
tre aux appels des chaines a terminaison nulle. L'ancienne chaine Pascal (desormais appelee 
ShortSt ring) n'avait pas de terminaison nulle et devait etre convertie avant d'etre utilisee dans 
un appel API. 

Delphi 3 assure la compatibilite avec Delphi 1.0 en proposant le type ShortString. Ce type est 
equivalent au type String de Delphi 1.0. Vous pouvez encore definir une chaine de longueur 
specifique, meme si la directive $H+ est invoquee. Voyez l'exemple qui suit : 

{$H+} {Les chaines longues sont maintenant activees} 
var 

NouvelleString : String; {cette chaine a une terminaison nulle et elle 

est allouee dynamiquement } 
AncienneString : String[20]; {En definissant la longueur de cette 
chaine, Delphi 3 fait automatiquement de AncienneString un type 
ShortString, dont la longueur maximale est de 20 caracteres} 

Les composants VCL de Delphi 3 utilisent desormais le type AnsiString pour toutes les pro- 
prietes et les parametres d'evenements. Cela simplifie vos interactions avec les VCL et les API, 
en les uniformisant. Ainsi, vos applications interagissent parfaitement avec d'autres. 

Tqpes chame en acNon 

Utilisons quelques chaines pour nous familiariser avec elles. Reportez-vous au Listing 2.6. 

Listing 2.6 : Exemple simple de programme utilisant des chaines 

8 program ExempleString ; 



LE PR*)GRAMMEUR 




uses 
Forms; 

var 

Norn : String; 
Prenom : String[5]; 
NouveauPrenom : String[30]; 

begin 

Nom := 1 Roux-Combaluzier 1 ; 
Prenom : = 1 Marie ' ; 
NouveauPrenom := 'Nathanaba 1 ; 

WriteLn ( 1 Le prenom est ', Prenom); 
WriteLn ( 1 Le nom est ', Nom); 

Prenom := NouveauPrenom; 

WriteLn ( 1 Le nouveau prenom est ', Prenom); 

Readln {Pour que la fenetre ne se ferme pas tant que vous n 1 avez pas appuye 
sur Entree} 
end. {ExempleString} 

Vous avez defini une variable Prenom de type String. Comme vous n'avez pas specifie de lon- 
gueur, il s'agira d'une AnsiString. La variable Prenom que vous avez definie comme une 
String de longueur 5 (le 5 entre crochets [] indique la longueur de la chaine), ce qui sera auto- 
matiquement converti en ShortString[5] . Cette chaine contient desormais un maximum de 
cinq caracteres. Enfin, NouveauPrenom a ete defini comme une String de longueur 30, elle 
aussi automatiquement convertie en ShortString. 

Mais il y a un probleme avec ce code. L'avez-vous remarque ? Regardez la ligne : 

Prenom := NouveauPrenom; 

Ce qui s'inscrit a l'ecran devrait vous mettre la puce a l'oreille. Lorsque vous avez ecrit Prenom 
a l'ecran pour la deuxieme fois, le prenom etait Natha et pas Nathanaba. Pourquoi ? 

La reponse se trouve dans la definition des variables. Vous avez defini Prenom comme une 
String[5] . Cette variable ne peut done contenir que cinq caracteres. Lorsque vous avez pris 
le contenu de NouveauPrenom (long de 8 caracteres) pour le placer dans Prenom (qui ne peut 
contenir que 5 caracteres), Prenom n'a garde que les cinq premiers caracteres. Les ordinateurs 
font ce que vous leur demandez, et pas forcement ce que vous voulez. La solution la plus evi- 
dente consiste a definir les deux variables comme des types String et a utiliser les possibilites 
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d'allocation dynamique du type AnsiSt ring . Ainsi, vos variables contiendront tout ce que vous 
voudrez. 

Derniere astuce concernant les types de donnees String : comment les vider ? Si vous souhai- 
tez vider le contenu de la variable NouveauPrenom, il vous suffit d'ecrire la ligne de code 
suivante : 

NouveauPrenom : = 1 1 ; 

En affectant a NouveauPrenom des apostrophes vides, vous definissez cette variable comme une 
chaine vide. Simple, non ? 

Structures de donnees 

Jusqu'ici les types de donnees que nous avons vus servent a stocker une valeur unique, que ce 
soit un entier, un nombre reel ou un booleen. Nous allons maintenant passer a la vitesse supe- 
rieure. Les structures de donnees constituent un regroupement d'elements de donnees voisins 
qui se trouve place en memoire. Ce regroupement d'elements peut etre traite element par ele- 
ment, bien que de nombreuses operations puissent egalement etre effectuees sur la structure de 
donnees dans son ensemble. Le Pascal Objet vous offre des declarations de type permettant de 
creer vos propres structures de donnees a partir de types de donnees simples. Nous allons voir 
trois structures de donnees : les tableaux, les enregistrements et les ensembles. Dans les parties 
qui suivent, vous verrez comment les utiliser et a quel usage, et quels sont leurs avantages res- 
pectifs. 

Inffl ^ n tyP e ^ e donn'ee String appartient a deux categories, selon le point de vue oil vous vous 
W| U placez. Si vous considerez les donnees de la chaine comme une seule entit'e, il s'agit d'un type 

de donnees simple. Si vous considerez une chaine comme un tableau de carac feres (voir plus 

has), il s'agit alors d'une structure de donnees. 

Tableaux a une dimension 

Les tableaux sont des outils. lis vous permettent d'associer un nom de variable unique a toute 
une collection de donnees. Vous pouvez deplacer l'ensemble du tableau d'un endroit a un autre 
de la memoire, le copier tout en referencant un seul nom de variable. 

Si vous souhaitez manipuler un seul element du tableau, vous identifiez cet element en utilisant 
le nom du tableau et le rang de l'element a traiter. Ainsi, Noms [ 2 ] identifie le deuxieme element 
du tableau Noms. Le grand avantage des tableaux est qu'ils permettent la reutilisation. Si vous 
placez une valeur dans une valeur unique, l'ancienne valeur est ecrasee. Avec un tableau en 
revanche, vous pouvez stocker chaque nouvelle valeur dans un element du tableau, pour un 
usage ulterieur. Ceci preserve les anciennes et les nouvelles valeurs. Chaque element du 
tableau est stocke dans un emplacement de memoire distinct et n'est pas affecte par son voisin. 
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Comme nous Taverns dit, vous identifiez l'element du tableau a traiter en utilisant l'indice du 
tableau. Cet indice "repere" l'element dans le tableau. Regardez la definition de tableau qui 
figure dans le Listing 2.7. 

Listing 2.7 : Exemple de programme simple utilisant un tableau 
program ExempleTableau; 

Uses 
Forms; 

type 

MonTypeTableau = array [1..5] of Real; 



var 

ScoresPersonne 



MonTypeTableau; 



begin 



ScoresPersonne[1 ] 
ScoresPersonne[2] 
ScoresPersonne[3] 
ScoresPersonne[4] 
ScoresPersonne[5] 



=55.6 

=19.1 

=42.2 

=100.0 

=34.9 



WriteLn (ScoresPersonne [ 1 ] ) 

WriteLn (ScoresPersonne[2] ) 

WriteLn (ScoresPersonne[3] ) 

WriteLn (ScoresPersonne[4] ) 

WriteLn (ScoresPersonne[5] ) 



Readln {Pour que la fenetre ne se ferme pas tant que vous n 1 avez pas appuye 
sur Entree} 



end. {ExempleTableau} 

Dans cet exemple, vous venez de creer un type de donnees appele MonTypeTableau. Vous uti- 
lisez ce type de donnees tout comme vous utiliseriez Integer, Real ou un autre type simple. 
Le qualificateur :4 : 2 est utilise pour donner un format plus lisible aux donnees, qui sont de type 
real. 
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Une variable de type MonTypeTableau peut contenir cinq valeurs real. La partie [1 . .5] de la 
definition du type indique qu'il y aura cinq elements, numerates de un a cinq. II est utile de le 
preciser car il est parfaitement possible de definir un tableau de cinq elements avec pour indices 
[ 6 . . 1 0] , aussi etrange que celui puisse paraitre. 

Vous chargez ensuite des donnees dans les elements du tableau. Comme le tableau contient des 
valeurs real, vous affectez une valeur real a un element specifique dans le tableau 
(tableau [element]). Vous pouvez remarquer que vous devez remplir chaque element du 
tableau separement. Ceci est necessaire car chaque element est veritablement independant, 
meme si la structure de donnees dans son ensemble est referencee sous un nom unique (Sco- 
resPersonnes). 

Le Tableau 2.6 donne quelques exemples d'utilisation de tableaux. 



Tableau 2.6 : Quelques utilisations de tableaux 



Exemple de declaration 



Resultat 



WriteLn (Le premier score est ', Scores 
Personne[l]); 

Total := ScoresPersonne[2] + 
ScoresPersonne[5]/ 

Total : = Total + ScoresPersonne[4] 

PersonScores[5] := ScoresPersonne[3] + 
ScoresPersonnes [ 1 ] 



Affiche la valeur de l'element 1 du tableau Sco- 
resPersonnes, dont la valeur est de 55.6, dans 
une chaine de texte qui apparait a l'ecran 

Additionne les valeurs des elements 2 et 5 (79. 
7 et 42.2) et place le resultat dans une variable 
appelee Total 



Prend les troisieme et premier elements du ta- 
bleau ScoresPersonnes et place la somme des 
deux elements dans l'element numero 5 



Ce ne sont que quelques exemples d'utilisation des tableaux. 

Tableaux mulNdimensionnels 

Comme dans le monde reel, les tableaux sont souvent utilises pour stacker une matrice de don- 
nees. Regardez une feuille de calcul. Ce n'est rien d'autre qu'un tableau a deux dimensions. Les 
cellules peuvent contenir des donnees, comme c'est le cas dans un tableau. 

Vous pouvez egalement definir des tableaux multidimensionnels. Vous pouvez voir de tels 
tableaux comme des cartes vous permettant de retrouver vos donnees. Si vous avez deja joue 
a la bataille navale, vous savez ce que signifie "torpille en B7" . Lorsque vous definissez votre 
type de tableau, vous devez indiquer a Delphi 3 a quoi ressemble la "matrice". Dans notre 
exemple, c'est une grille 3 par 3, comme celle d'un jeu de morpion. Le Listing 2.8 vous montre 
comment definir un tableau a deux dimensions. 
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Listing 2.8 : Exemple de programme utilisant un tableau a deux dimensions 



program ExempleTableau2; 

uses 
WinCrt; 

type 

TypeSuperTableau = array [1..3, 1..3] of char; 



var 

SuperTableau 



TypeSuperTableau; 



begin 

SuperTableau [1 ,1 ] 
SuperTableau[2,2] 
SuperTableau[3,3] 
SuperTableau[3,1 ] 
SuperTableau [1 ,3] 



= 'X' 
= 'X' 
= 'X' 
= '0' 
= '0' 



WriteLn (SuperTableau! 1 , 1 ] , 

SuperTableau[3,1 ] ) ; 
WriteLn (SuperTableau [ 1 ,2] , 
WriteLn (SuperTableau [ 1 ,3] , 



SuperTableau[2, 1 ] , 

SuperTableau[2,2] , 
SuperTableau[2,3] , 



SuperTableau[3,2] ) ; 
SuperTableau[3,3] ) ; 



Readln {Pour que la fenetre ne se ferme pas tant que vous n 1 avez pas appuye 
sur Entree} 



end. {ExempleTableau2} 

A en juger par ce que vous voyez a l'ecran, qui a gagne au morpion ? Ce programme n'est pas 
tres different du precedent. La aussi vous creez un type definissant l'aspect de votre tableau. La 
difference ici reside dans la definition du tableau elle-meme. Vous devez maintenant definir 
les limites en deux dimensions. Pensez en termes de longueur x largeur, longueur x hauteur ou 
ligne x colonne, ou tout autre representation qui vous aide a raisonner dans l'espace. 

La definition array [1 . .3, 1..3] of char signifie :"Definissez un tableau dont les dimen- 
sions sont de trois cellules de large (etiquetees 1 , 2 et 3) par trois cellules de long (etiquetees 
1 , 2 et 3) et faites que chacune de ces cellules puisse contenir une donnee de type char" . Une 
fois le type defini, vous creez une variable, SuperTableau, de ce type. Vous pouvez a present 
commencer a charger des valeurs dans le tableau. Puisque vous devez specifier l'indice de cha- 
que cellule que vous souhaitez remplir, vous devez jouer a la bataille navale... En disant 
SuperTableau! 1 , 1 ] := 'X', vous declarez : "Prenez le caractere X et placez-le dans le 
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tableau SuperTableau a la ligne 1 , colonne 1 " . Une fois que vous avez rempli un certain nom- 
bre de cellules du tableau avec des X et des O, la declaration WriteLn affiche le plateau de mor- 
pion a l'ecran. 

Vous pouvez bien sur pousser le principe beaucoup plus loin et definir des tableaux de dimen- 
sion quelconque. Un tableau a six ou sept dimensions peut avoir son utilite. Une declaration 
d'un tel type ressemblerait a ceci : 



MegaTableau : TypeMegaTableau ; 

Une fois cette definition faite, si vous souhaitez placer une valeur (dans ce cas une valeur entie- 
re), il vous suffit de donner les coordonnees des cellules a remplir, dans ces cinq dimensions. 
La ligne suivante conviendrait : 

SuperTableau[3,2,4,2,1 ] := 2; 

Cette ligne placerait la valeur entiere 2 dans la cellule de la ligne 3, colonne 2, profondeur 4, 
continuum temporel 2 et mesure cosmique 1 . Bon, j'avoue qu'on peut verser dans le bizarre des 
que Ton essaye de donner des noms aux multiples dimensions d'un tableau, mais je pense que 
vous avez saisi le principe. Avant de vous lancer dans les espaces intersideraux des tableaux a 
plusieurs dimensions, n'oubliez pas que la memoire pour toutes les cellules, cellules vides y 
compris, est allouee au moment de l'execution. Cela signifie que la memoire de votre MegaTa - 
bleau et les 3 125 cellules (c'est-a-dire 5 5 cellules) qui le composent seront allouees. Chacune 
de ces 3 125 cellules disposera d'un espace lui permettant de contenir une valeur entiere. Si un 
entier fait 4 octets, cela fait 12 500 octets de memoire, pour ce simple tableau. N'oubliez pas 
qu'il faut utiliser la memoire avec discernement. 



Un autre type de structure de donnees tres utile est le type de donnees enregistrement. Tout 
comme le tableau, l'enregistrement permet de stacker un ensemble d'informations se rapportant 
a un meme sujet. Cependant, les elements d'un enregistrement ne sont pas obligatoirement tous 
du meme type. Les enregistrements sont parfaits pour stocker des informations concernant des 
gens ou des lieux. Vous pouvez stocker le nom, l'adresse, le numero de telephone et le poids 
d'une personne dans un enregistrement. Vous pouvez alors transmettre ce groupe d'informa- 
tions en utilisant un nom unique, comme avec un tableau. Voyons ensemble un exemple de 
programme (voir Listing 2.9). 




type 

TypeMegaTableau = array [1..5, 1..5, 1..5, 1..5, 1..5] of integer; 



var 



Enregislremenrs 
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Listing 2.9 : Exemple de programme utilisant un type record 



program ExempleEnregistrement ; 

uses 
Forms; 

type 

TypeEnregPersonne = Record 
Norn : String[30]; 
NumeroTel : String[13]; 
Age : Integer; 
Sexe : Char 
end; {TypeEnregPersonne} 

var 

Personne : TypeEnregPersonne; 
begin 

Personne. Norn := 'Dan Osier'; 
Personne. NumeroTel := '(916)555-1212'; 
Personne. Age := 32; 
Personne . Sexe := 'M' ; 

WriteLn ( ' Le nom de la personne est ', Personne . Norn) ; 

WriteLn ( ' Le numero de telephone de la personne est ', Personne . NumeroTel) ; 
WriteLn ('L''age de la personne est ', Personne. Age) ; 
WriteLn ('La personne est de sexe ', Personne. Sexe) ; 

Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 

end. {ExempleEnregistrement} 



Inffl ^ ous P ouvez remarquer que dans une des declarations Writeln nous avons utilise deux apos- 
III | U troph.es de suite. Dans une chaine litterale, deux apostrophes signifient qu'une apostrophe se 
trouve dans la chaine (et qu'il ne s'agit pas d'une simple delimitation de la chaine). 

Ce programme commence par definir le type. Ce type est une structure de donnees constitute 
de plusieurs parties. La premiere ligne, TypeEnregPersonne = record indique a Delphi 3 que 
les lignes de code qui suivront seront des elements de la definition du type record. II vous suffit 
alors de donner la liste des variables (et de leurs types) qui feront partie de l'enregistrement. 
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Ainsi Norn est une String de longueur 30, NumeroTel est une String de longueur 13, Age est un 
Integer et Sexe est un Char M ou F). La fin de la definition de votre enregistrement est marquee 
par une ligne end ; . 

Jusqu'ici, vous n'avez qu'un type record. Lorsque la variable Personne est declaree (de type 
TypeEnregPersonne), vous avez effectivement alloue de la memoire pour une instance de 
votre type record. 

Maintenant que la memoire est allouee, placons des donnees dans la structure de l'enregistre- 
ment. Vous ne pouvez pas dire Personne : = 1 Dan ' ; car Delphi 3 ne sait pas dans quel element 
de Personne il convient de placer la chame 'Dan'. Vous devez done ecrire Personne . Nom : = 
1 Dan Osier 1 . Vous indiquez ainsi a Delphi 3 quel est le champ de l'enregistrement auquel vous 
souhaitez acceder. Cette notation a point (consistant a placer un point entre le nom de l'enre- 
gistrement et le selecteur de champ) est un concept fondamental pour les enregistrements, mais 
plus encore pour la programmation orientee objet dont nous parlerons dans une prochaine 
lecon. Dans les lignes du programme qui suivent vous utilisez la notation a point pour selec- 
tionner et remplir de donnees les differents champs de la variable Personne. 

Une fois la variable Personne correctement remplie, vous pouvez en extraire les donnees, 
champ par champ. Vous pouvez remarquer que dans la procedure WriteLn( ) vous specifiez 
quel est le champ que vous souhaitez afficher. WriteLn serait incapable de savoir quels champs 
imprimer si vous vous contentiez de dire WriteLn (Person). Les enregistrements sont une 
structure des plus utiles. Pour faciliter l'ecriture de votre application, il est important que vous 
utilisiez des types de donnees qui refletent les donnees reelles. Dans cette optique, on peut con- 
siderer que l'enregistrement est une evolution logique du concept de tableau, permettant de 
stacker les attributs concernant une chose, une personne ou tout autre objet. 

On complique un peu 

Maintenant que nous avons vu les tableaux et les enregistrements, essayons de les combiner. 
N'ayez crainte, 5a n'a rien de sorcier. Un tableau contient un grand nombre de choses de meme 
type. Eh bien, votre TypeEnregPersonne est un type. Et si on definissait le tableau comme etant 
un array[1 . .3] of TypeEnregPersonne ? Oui, un tableau contenant trois enregistrements. 
Chacun de ces trois enregistrements peut contenir des informations concernant une personne, 
telles que son nom, son numero de telephone, etc. Le resultat est le programme qui figure dans 
le Listing 2.10. 

Lorsque vous entrerez le code du Listing 2.10, vous remarquerez que bon nombre de lignes 
sont tres similaires. Au lieu de les taper toutes, il vous suffit de copier I cotter dans lafenetre 
d'edition et de remplacer le numero de Velement de tableau. Vous 'epargnerez ainsi vos nerfs. 
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Listing 2.10 : Exemple de programme utilisant des tableaux d'enregistrements 
program ExempleTablEnreg ; 

uses 
Forms; 

type 

TypeEnregPerson = record 
Norn : String[30]; 
NumTel : String[13]; 
Age : Integer; 
Sexe : Char 
end; {TypeEnregPersonne} 

MonTypeTableau = array [1..3] of TypeEnregPersonne; 

var 

tableauPersonne : MonTypeTableau; 
begin 



tableauPersonne [ 1 
tableauPersonne[1 
tableauPersonne[1 
tableauPersonne[1 

tableauPersonne[2 
tableauPersonne[2 
tableauPersonne[2 
tableauPersonne[2 
tableauPersonne [3 
tableauPersonne[3 
tableauPersonne[3 
tableauPersonne[3 



. Norn : = ' Dan Osier ' ; 
.NumTel := ' (916)555-1212' ; 
.Age := 32; 
.Sexe := 'NT ; 

. Norn : = ' Susie Smith ' ; 

.NumTel := ' (916)555-9999' ; 

.Age := 38; 

.Sexe := ' F' ; 

. Norn : = ' Pat ' ; 

.NumTel := ' (916)555-7766' ; 

.Age := 30; 

.Sexe := ' ? ' ; 



WriteLn ( ' Le nom de la personne 1 est ', tableauPersonne [ 1 ]. Norn) ; 
WriteLn ( ' Le numero de telephone de la personne 1 est ', 

TableauPersonne! 1 ] .NumTel) ; 
WriteLn ('L''age de la personne 1 est ', tableauPersonne [ 1 ] .Age) ; 
WriteLn ( ' Le sexe de la personne 1 ', tableauPersonne [ 1 ]. Sexe) ; 
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IWriteLn ( 1 Le nom de la personne 2 est ', tableauPersonne[2] .Norn) ; 
WriteLn ( 1 Le numero de telephone de la personne 2 est ', 
TableauPersonne[2] .NumTel) ; 
WriteLn ('L''age de la personne 2 est ', tableauPersonne[2] .Age) ; 
WriteLn ( 1 Le sexe de la personne 2 est ', tableauPersonne[2] .Sexe) ; 
WriteLn ( 1 Le nom de la personne 3 ', tableauPersonne[3] .Nom) ; 
WriteLn ( 1 Le numero de telephone de la personne 3 est ', 
tableauPersonne[3] .NumTel) ; 
WriteLn ('L''Sge de la personne 3 est , tableauPersonne[3] .Age) ; 
WriteLn ( 1 Le sexe de la personne 3 est ', tableauPersonne[3] .Sexe) ; 
Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 
end. {ExempleTablEnreg} 

Dans la partie de declaration de types, vous commencez par placer la definition de l'enregistre- 
ment TypeEnregPersonne, puis utilisez ce type dans la definition de MonTypeTableau. 

Vous devez definir quelque chose avant de Vutiliser. Si vous utilisez TypeEnregPersonne avant 
de le definir, le compilateur ne Vacceptera pas. 

Etudiez avec attention la definition du type MonTypeTableau. Maintenant, votre variable 
tableau Personne est un tableau d'enregistrements . Pour acceder a tableauPersonne, vous 
devez lui donner l'indice du tableau (c'est-a-dire le nombre qui indique quel element du tableau 
vous desirez), et l'identificateur de champ dans cet indice de tableau qui correspond a l'element 
a visualiser ou a manipuler. Ainsi, la declaration tableau Personne[3] .Nom := 1 Pat 1 ; dit en 
fait "dans la variable tableau Personne, prenez le troisieme element de tableau, puis dans cet 
element le champ Nom, et rendez-le egal a la chaine ' Pat 1 . 

On complique un peu plus 

Les tableaux d'enregistrement sont bien, mais pourquoi s'arreter en si bon chemin ? Pourquoi 
ne pas imaginer un enregistrement contenant d'autres enregistrements ? Ceci peut s'averer tres 
utile dans certaines applications. 

Comme vous devez vous en souvenir, un enregistrement sert a regrouper un ensemble de don- 
nees sur un meme sujet, et dont le type n'est pas forcement le meme. Un de ses elements pour- 
rait fort bien etre un enregistrement. Prenons un exemple d'utilisation d'un tel enregistrement 
d'enregistrements. Un fichier des salaries contient des informations sur vous en tant que salarie. 
L'enregistrement contient sans doute les renseignements classiques, tels qu'on peut les voir 
dans les lignes suivantes : 
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type 

TypePersonne = record 
Nom : String[20]; 
Prenom : String[10] ; 
NumeroSalarie : Integer; 
end; {TypePersonne} 

Vous avez maintenant besoin d'ajouter l'adresse. Cette personne a sans doute une adresse de 
domicile et une adresse a son travail. La facon la plus simple de construire cet enregistrement 
consiste a creer un type d'enregistrement d'adresse universel, puis de le reutiliser. Un tel type 
figure dans les lignes ci-apres : 

type 

TypeAdresse = record 
Rue : String [50] ; 
Ville : String : [20]; 
Departement : String [2]; 
Code postal : String [10] 
end; {TypeAdresse} 

Le grand avantage de ce type est que vous pouvez l'utiliser en plusieurs endroits. A present, vos 
variables d'adresse de domicile et d'adresse de travail peuvent toutes deux etre de type TypeA- 
dresse. Regardons le code final (Listing 2.1 1) qui permet de me charger en tant que client : 

Listing 2.11 : Autre exemple de programme utilisant des enregistrements 
program ExempleEnregistrement2; 

uses 
Forms; 

type 

AddressType = record 
Rue : String [50] ; 
Ville : String : [20]; 
Departement : String [2]; 
CodePostal : String [10] 
end; {TypeAdresse} 



TypePersonne = record 
Nom : String[20]; 
Prenom : String[10] ; 
NumeroSalarie : Integer; 



DELPHI 3 



AdresseDomicile 
AdresseBureau : 
end; 



: AddressType; 
AddressType 



var 

Salarie : TypePersonne ; 
begin 

Salarie.Nom := 'Osier 1 ; 
Salarie . Prenom := 'Don 1 ; 
Salarie.NumeroSalarie := 16253; 

Salarie . AdresseDomicile . Rue := '1313, rue Bakhounine'; 
Salarie. AdresseDomicile. Ville := 'Kadath; 
Salarie. AdresseDomicile. Departement := '75'; 
Salarie. AdresseDomicile. CodePostal := '75011'; 

Salarie. AdresseBureau. Rue := '14, rue de Babylone.'; 
Salarie. AdresseBureau. Ville := 'Interzone'; 
Salarie .AdresseBureau . Departement := '75'; 
Salarie. AdresseBureau. CodePostal := '75001'; 

WriteLn (Salarie . Norn) ; 
WriteLn (Salarie . Prenom) ; 
WriteLn(Salarie.NumeroSalarie) ; 

WriteLn (Salarie .AdresseDomicile . Rue) ; 
WriteLn (Salarie .AdresseDomicile .Ville) ; 
WriteLn (Salarie .AdresseDomicile . Departement) ; 
WriteLn (Salarie. AdresseDomicile. CodePostal) ; 

WriteLn (Salarie .AdresseBureau . Rue) ; 
WriteLn (Salarie .AdresseBureau .Ville) ; 
WriteLn (Salarie. AdresseBureau .Departement) ; 
WriteLn (Salarie. AdresseBureau .CodePostal) ; 

Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 



end . 
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Dans votre enregistrement TypePersonne se trouvent deux variables, AdresseDomicile et 
AdresseBureau, qui sont toutes deux des variables d'enregistrement de TypeAdresse. Comme 
il s'agit d'enregistrements, vous devez specifier la totalite du chemin d'acces qui permet d'acce- 
der aux valeurs des variables. Ainsi, vous specifiez la variable (Salarie), un point, le champ 
(AdresseDomicile), un point et comme AdresseDomicile est egalement un enregistrement, 
vous specifiez egalement le champ dans AdresseDomicile (c'est-a-dire Rue). Le resultat est 
Salarie. AdresseDomicile. Rue et cette expression pointe sur une unique valeur chaine. Cette 
methode peut sembler fastidieuse mais elle est parfaitement lisible. Vous avez maintenant 
charge la variable Salarie avec toutes les informations necessaires, informations qui com- 
prennent deux series d'adresses. Pour afficher l'information a l'ecran, vous devez recuperer 
chaque information separement, puis utiliser WriteLn ( ) . 

Utiliser la notation a point revient un peu a donner votre adresse. Vous dites "Je vis en Fran- 
ce, dans le departement des Bouches du Rhone, dans la ville de Marseille, 8 e arrondissement, 
rue du Panier, numero 17" . En disant cela, vous retrecissez peu a peu le champ jusqu'a ne poin- 
ter qu'a un seul endroit. 

La seule facon de rendre tout ce processus un peu plus concis consiste a utiliser la clause with . 
Cette clause with definit en quelque sorte un parametre par defaut, "Je vis en France" par 
exemple, ainsi toutes vos recherches commencent par la France au lieu du monde entier. La 
declaration Salarie. AdresseBureau. CodePostal := '75010' n'est pas incorrecte, mais en 
utilisant la clause with, elle devient : 

Bwith Salarie do 
AdresseBureau .CodePostal := '75010'; 

Avez-vous remarque que Salarie n'a pas ete specifie au debut de la ligne AdresseBureau. 
CodePostal ? Ce renseignement etait en fait implique par la declaration with. La ou les choses 
se gatent, c'est que le with ne fonctionne que sur la ligne de code qui le suit. Une seule ligne, 
me direz-vous, mais c'est sans interet ! Pas forcement : si cette ligne se trouve etre une decla- 
ration begin, tout ce qui se trouvera entre ce begin et le end qui lui est associe beneficiera du 
with. 

Nous allons ameliorer notre programme en tirant partie de cette nouvelle decouverte. Le code 
resultant figure dans le Listing 2.12. 

Listing 2.12 : Encore un autre exemple de programme utilisant des enregistrements 
J program ExempleEnregistrement3; 

uses 
Forms; 

J type 

TypeAdresse = record 
Rue : String[50]; 
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Ville : String [20]; 
Departement : String[2]; 
CodePostal : String[10] 
end; {TypeAdresse} 

TypePersonne = record 

Norn : String[20]; 

Prenom : String[10] ; 

NumeroSalarie : Integer; 

AdresseDomicile : AddressType; 

AdresseBureau : AddressType 
end; 

var 

Salarie : TypePersonne; 

{Jusqu'ici le code est le meme, c'est dans la suite qu'il change} 
begin 

with Salarie do 
begin {tout ce qui suit est associe au with} 

Norn : = ' Osier ' ; 

Prenom : = ' Don ' ; 

NumeroSalarie := 16253; 
end; {with Salarie} 

with Salarie .AdresseDomicile do 
begin 

Rue := '1313 Your St. 1 ; 
Ville : = 1 MyTown ' ; 
Departement := ' 75 1 ; 
CodePostal := '75011 1 ; 
end; {with Salarie .AdresseDomicile} 

with Salarie .AdresseBureau do 
begin 

Rue := '14 Big Business Road. 1 ; 
Ville := 'NoOzone' ; 
Departement := ' 75 1 ; 
CodePostal := 1 7501 1 1 ; 
end; {with Salarie .AdresseBureau} 
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with Salarie do 
begin 

WriteLn (Norn) ; 

WriteLn(Prenom) ; 

WriteLn (NumeroSalarie) ; 
end; {with Salarie} 

with Salarie .AdresseDomicile do 
begin 

WriteLn(Rue) ; 

WriteLn(Ville) ; 

WriteLn(Departement) ; 

WriteLn (CodePostal) ; 
end; {with Salarie .AdresseDomicile} 

with Salarie. AdresseBureau do 
begin 

WriteLn(Rue) ; 

WriteLn(Ville) ; 

WriteLn (Departement) ; 

WriteLn(CodePostal) ; 
end; {with Salarie .AdresseBureau} 

Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 



end. 

Vous pouvez remarquer a quel point le code est maintenant clair. Dans notre exemple, les 
declarations with sont poussees d'un cran et s'appliquent a Salarie .AdresseDomicile au lieu 
du simple Salarie. Ceci permet d'aiguiller Delphi 3 directement sur ce qui vous interesse et 
cela rend egalement le code plus facile a lire. Utilisez le code with a bon escient et vous ame- 
liorerez la lisibilite de votre code. 



Intervales 

Lorsque vous pensez a un intervalle, vous le concevez peut-etre dans un sens mathematique. 
Un intervalle de nombre peut aller de 1 a 10, de 30 a 30 000 et ainsi de suite. Un intervalle de 
lettres peut etre "a" a "z", ou "A" a "F" (n'oubliez pas que dans Delphi 3 un "a" minuscule est 
different d'un "A" majuscule car il s'agit de deux caracteres ASCII distincts). 

En Delphi 3, intervalles et sous-intervalles ont une signification proche de celle que Ton con- 
nait dans le monde reel. Lorsque vous ecrivez votre programme et que vous souhaitez compa- 
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rer ce qu'entre l'utilisateur pour voir s'il a utilise des minuscules, vous employez des sous- 
intervalles. 

Un type de sous-intervalle est un intervalle de valeurs d'un type ordinal appel'e le type note. 
Un sous-intervalle doit toujours definir la plus petite et la plus grande valeur du sous-inter- 
valle. 

Le type sous-intervalle peut facilement se construire et s'utiliser. Regardez le Listing 2.13 qui 
montre certains avantages des sous-intervalles. 

Listing 2.13 : Exemple de programme utilisant un type sous-intervalle 

I program Exemplelntervalle ; 
uses 
Forms ; 
type 
LettreMinuscule = 'a'..'z'; 
var 
BonnesLettres : LittleLetter; 
begin 
BonnesLettres := ' b ' ; 
WriteLn (BonnesLettres) 
Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 
end. 

Dans cet exemple, vous utilisez un sous-intervalle pour definir quelles valeurs sont acceptees 
pour affecter une variable de type LettresMinuscules. On cree alors une variable BonnesLet - 
tres de type LettresMinuscules. Cette variable ne peut contenir qu'un unique caractere com- 
pris entre a et z. 

Vous vous demandez peut-etre a quoi peuvent bien servir ces sous-intervalles. Pourquoi ne pas 
nous contenter de faire de BonnesLettres un type char ? II y a une bonne raison : le Pascal 
Objet sait effectuer des verifications d'intervalle. Cela signifie que lors de l'execution d'un pro- 
gramme, lorsque vous faites une declaration d'affectation telle que BonnesLettres := 'b'; Pascal 
verifie que la valeur placee dans BonnesLettres est bien conforme a son type (ou sous-interval- 
le). Si la valeur est hors de l'intervalle, une erreur d'intervalle (range error) survient. Ceci vous 
permet de detecter rapidement une erreur qui vous aurait echappe autrement. Les variables qui 
contiennent des choses comme les jours du mois (1..31) ou les mois de l'annee (1 ..12) sepretent 
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bien a l'utilisation de sous-intervalles. Ainsi, vous beneficiez d'une verification integree des 
valeurs transmises dans votre programme. Des qu'une affectation illegale est tentee, le program- 
me vous signale une erreur. 

Pour beneficier de cette verification, il vous suffit de placer dans votre code un {R+} la ou vous 
souhaitez que commence la verification d'intervalle et un {R - } (facultatif) la ou vous souhaitez 
qu'elle s'arrete. Vous pouvez egalement cocher la case correspondante dans la boite de dialogue 
Options du projet, dans l'onglet Compilateur. 

Infn ^ M P rem ^ ere regie qui regit la definition des sous-intervalles est que ces sous-intervalles 
W|U doivent etre d'un type ordinal, bien qu'un sous-intervalle Rentiers soit accepte. La seconde 
regie est que la valeur ordinate de la premiere entree doit etre inferieure a la valeur ordinate 
de la seconde entree. Ainsi, un sous-intervalle de zaa n'est pas accepte, ce doit etre de a a z 
car a a une valeur ordinate inferieure a celle de z. 

Ensembles 

Les ensembles sont encore plus amusants a utiliser que les sous-intervalles. Les ensembles 
peuvent utiliser des sous-intervalles dans leur definition. Un ensemble est un groupe d'ele- 
ments que vous souhaitez associer sous un meme nom et auquel vous comparez d'autres 
valeurs pour decider si ces valeurs doivent etre incluses ou non dans l'ensemble. Par exemple, 
un ensemble peut contenir toutes les reponses (en un caractere) possibles a une question de type 
Oui/Non. Les quatre reponses possibles sont o, O, n et N. Vous pouvez creer un ensemble qui 
incluerait ces quatre reponses : ['o','0','n','N']. Une fois cet ensemble defini, vous pouvez l'uti- 
liser pour voir si quelque chose appartient ou non a cet ensemble. 

Vous determinez si une valeur est incluse dans un ensemble a l'aide de la declaration in. Ainsi, 
si vous creez la declaration Ent ree in [ ' o ' , ' 0 ' , n 1 , 1 N 1 ] , vous dites que si la valeur de 
la variable Entree est un des elements de l'ensemble 1 o ' , ' 0 ' , ' n ' , 1 N ' , cette declaration 
sera alors evaluee comme etant le Boolean True. Si la valeur de Entree n'est pas dans l'ensem- 
ble, la declaration est False. Un ensemble peut contenir pratiquement n'importe quoi, pour peu 
que les elements de l'ensemble soit du meme type ordinal ou de types ordinaux compatibles. 

Les ensembles peuvent contenir des valeurs distinctes, mais aussi des intervalles. Ainsi, si vous 
ecrivez un simulateur de telephone, vous accepterez les chiffres de 0 a 9, et les touches * et #. 
L'ensemble correspondant sera done [0..9, '*', '#']. Quand l'utilisateur appuie sur une touche, 
vous pouvez verifier l'inclusion dans l'ensemble du caractere tape en utilisant la declaration in . 
Le Listing 2.14 vous montre un exemple d'utilisation d'ensembles. 

Listing 2.14 : Exemple utilisant les ensembles 
program DemoTel; Set Demo Program 

: uses 
Forms ; 
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I type 
TypeTouches = set of Char; 
var 
Touches : TypeTouches; 
EntreeUtilisateur : Char; 
begin 
Touches := [ ' 0 ' . . ' 9 ' , 1 * 1 , '#']; 
Read(EntreeUtilisateur) ; 
If EntreeUtilisateur in Touches then 
WriteLn ('Cette touche est valide 1 ) 
Readln {Pour que la fenetre ne se ferme pas tant que vous n'avez pas appuye 
sur Entree} 
end. 

Ce programme cree un type nomme TypeTouches. Remarquez que ce type est un ensemble de 
caracteres. II declare ensuite une variable de type TypeTouches, appele Touches. Cette variable 
peut contenir un ensemble de caracteres. Dans la partie executable du code (celle qui est situee 
apres begin), on affecte a la variable Touches les caracteres admissibles pour une saisie. Le 
test compare alors la saisie de l'utilisateur aux donnees contenues dans Touches. S'il existe une 
concordance, l'instruction WriteLn ( ) est executee. Sinon, elle est ignoree. Le programme se 
termine par une instruction ReadLn afin d'empecher la fenetre de se refermer. 

Constants rupees 

Le concept de constante typee est etranger a nombre de developpeurs. Une constante typee est 
en quelque sorte une variable preinitialisee. Vous pouvez definir une constante typee et lui don- 
ner une valeur dans la meme declaration, comme illustre dans cet exemple : 

Const 

Max : Integer = 88; 
Norn : String[10] = 'Dan' ; 
Chiff res : Set of '0' . . '9' ; 

Ceci peut sembler troublant de prime abord (a priori vous pensiez que la section de declara- 
tions de constantes permettait de... declarer des constantes). II s'agit la d'une petite exception a 
la regie, une exception qui peut avoir ses avantages. Vous pouvez ainsi en une seule declaration 
definir un type de variable et lui donner une valeur par defaut. La constante typee n'est initia- 
lisee qu'une seule fois avec la valeur par defaut, quel que soit le nombre de fois ou le module 
contenant la declaration est appele. 
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Construes hjpees en acNon 

Les constantes typees sont faciles a utiliser. Le Listing 2.15 vous montre comment ces cons- 
tantes typees sont utilisees tout comme des variables. 

Listing 2.15 : Exemple de programme utilisant des constantes typees 
program ExempleConstanteTypee; 

uses 
Forms ; 



const 
MonNom : String 



'Dan Osier 1 



begin 

WriteLn ('Mon nom est ', MonNom); 

MyName:= 'Jim Fischer'; 

WriteLn ('Mon nouveau nom est ', MonNom): 

Readln 

end. 



Le programme commence en declarant une constante typee appelee MonNom, de type string, 
et lui donne la valeur ' Dan Osier ' . Sa valeur est alors modifiee pour prouver qu'il est possible 
de modifier la valeur d'une constante typee au cours de l'execution. 



Tqpes enumeres 

Les types enumeres permettent d'ameliorer grandement la lisibilite de votre code. Meme si 
vous savez ce que fait votre code, une autre personne qui le lit ne le saura pas forcement. Ima- 
ginons que vous ecriviez un programme qui gere les feux de circulation et que vous ayez besoin 
d'affecter a chaque couleur un nombre : 1 pour rouge, 2 pour orange et 3 pour vert. Dans votre 
application vous seriez tente d'ecrire if 3 then AllumePietonAttendez. Ce n'est pas tres par- 
lant. Et imaginez un peu la tete du pauvre here qui devra modifier votre application par la suite. 
II regardera cette declaration et se grattera la tete en se demandant ce qu'elle peut bien vouloir 
dire. C'est ici que les types enumeres interviennent. 

Les types enumeres vous permettent de definir et d'utiliser un groupe d'objets appartenant a un 
ensemble. II s'agit de ce que Ton appelle un type defini par l'utilisateur. Le nombre d' elements 
composant un type enumere est limite a 255. 
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Tgpes enumeres en acNon 

Le Listing 2.16 vous montre un exemple utilisant ces types enumeres. 



Listing 2.16 : Exemple de programme utilisant des types enumeres 
program ExempleEnumere ; 

uses 
Forms; 

type 

CouleursFeu = (Rouge, Orange, Vert); 
var 

Feu : CouleursFeu; 

begin 
Feu := Rouge; 

WriteLn ( 1 Le feu est , Integer(Feu) ) ; 
Feu :=Vert; 

WriteLn('Le feu est passe au ', Integer(Feu) ) ; 
Readln 

end . 

Comme vous pouvez le voir dans le Listing 2.16, j'ai cree un type enumere appele Couleurs - 
Feu. Ce type a pour membres Rouge, Orange et Vert. On definit alors la variable Feu de type 
CouleursFeu. Par la suite, vous pouvez utiliser la variable Feu et lui affecter une des trois 
valeurs de couleur comme vous le faites dans la premiere ligne de code avec Feu : = Rouge ; . 
Les types enumeres ne sont pas la au benefice de l'utilisateur mais a celui du developpeur qui 
obtient ainsi un code plus lisible et plus facilement modifiable. Bien que l'usage de ces types 
reste limite a l'interieur du code, le travail de la personne chargee de modifier le programme 
sera facilite. 



Tijpe Variant 

Le type Variant est l'un des ajouts les plus utiles dans Delphi. Ce type est tres pratique car vous 
pouvez y placer n'importe quelle valeur, que ce soit un entier, une chaine ou autre chose. Le 
type Variant est une structure de 16 octets qui contient la valeur et l'information de type asso- 
ciee. La souplesse de cette structure permet aux controles ActiveX de renvoyer une grande 
diversite de valeurs et de types de donnees, que le type Variant accepte toutes. 
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Delphi 1 ne comportait pas de type Variant du fait du caractere fortement type du langage, 
mais aussi parce que le type Variant tend a favoriser des pratiques de programmation peu 
rigoureuses. Cependant, du fait de la demande et de nouvelles specifications, Delphi 3 com- 
prend maintenant un type Variant. 



Tqpe VarianT en acNon 

Le type Variant de Delphi 3 peut contenir une valeur entiere, une chaine ou une valeur a vir- 
gule flottante. Les usages de ce type sont aussi varies que le nom l'indique. Le Listing 2.17 don- 
ne un exemple d'utilisation. 

Listing 2.17 : Exemple utilisant un type Variant 
program ExempleVariant ; 

uses 
Forms; 

var 

Entree : Variant; 

begin 
Entree := 3.5555; 
WriteLn (Entree); 

Entree := 'Bonjour je m'appelle Raoul. 1 ; 
WriteLn (Entree); 

Entree := 4; 
WriteLn (Entree); 
Readln 
end. 

Ce programme utilise une variable appelee Entree, de type Variant. On lui affecte tout 
d'abord une valeur numerique, qui est ensuite affiche pour prouver que la variable peut contenir 
des valeurs reelles. On lui affecte ensuite une valeur de type chaine, qu'on affiche ensuite, pour 
montrer que le type Variant sait egalement s'accomoder des chames de caracteres. La demons- 
tration se termine avec un entier. 

L'atout majeur du type Variant est sa souplesse. Vous pouvez lui demander de stacker 
n'importe quel type de valeurs. Bien que Pascal Objet soit un langage fortement type, vous 
retrouvez ainsi un peu de souplesse. 
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Operafeurs 



Maintenant que nous avons vu les types de donnees, il est temps de voir comment comparer et 
evaluer des variables de ces types. Examinons ensemble les operateurs pris en charge par 
Delphi 3 : 

• Operateurs arithmetiques 

• Operateurs logiques 

• Operateurs relationnels 

Vous apprendrez egalement les regies de preseance qui gouvernent la vie des operateurs quand 
ils sont plusieurs a composer une expression. 

Operafeurs ariNimeNques 

Ces operateurs vous permettent d'effectuer des operations arithmetiques binaires et unaires. Un 
operateur binaire utilise deux arguments, comme dans l'expression A + B, alors que les opera- 
teurs unaires n'en utilisent qu'un, comme dans l'expression not B. Les Tableaux 2.7 et 2.8 
decrivent les operations, les types autorises et le type resultant. Ainsi, si vous divisez un 
Integer par un Integer, le resultat est de type Real. On a parfois tendance a oublier ce genre 
de details. 



Tableau 2.7 : Operateurs arithmetiques binaires 



Operateur 


Operation 


Types utilises 


Type du resultat 


+ 


Addition 


Integer 


Integer 






Real 


Real 




Soustraction 


Integer 


Integer 






Real 


Real 


* 


Multiplication 


Integer 


Integer 






Real 


Real 


/ 


Division 


Integer 


Real 






Real 


Real 


Div 


Division entiere 


Integer 


Integer 


Mod 


Reste 


Integer 


Integer 
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Tableau 2.8 : Operateurs arithmetiques unaires 



Operateur Operation 

+ Identite du signe 



Negation du signe 



Types utilises Type du resultat 

Integer Integer 

Real Real 

Integer Integer 

Real Real 



Operateurs logiques 

Les operateurs logiques sont divises en deux categories : les operations logiques et les opera- 
tions booleennes. Les operations logiques consistent a decaler ou a comparer des choses au 
niveau du bit, tandis que les operations booleennes consistent a comparer ou a manipuler des 
valeurs au niveau du True ou False. La liste de ces differentes operations figurent dans les 
Tableaux 2.9 et 2.10. 



Tableau 2.9 . 


• Operations logiques 






Operateur 


Operation 


Types utilises 


Type du resultat 


not 


Negation bit a bit 


Integer 


Boolean 


and 


ET bit a bit 


Integer 


Boolean 


or 


OU bit a bit 


Integer 


Boolean 


xor 


OU EXCL bit a bit 


Integer 


Boolean 


shl 


Operation 


Integer 


Boolean 


shr 


Operation 


Integer 


Boolean 



Info 



Si vous utilisez Voperateur not sur un type Integer, le resultat sera dans le meme type Integer. 
Si les deux operandes d'un and, d'un or ou d'un xor sont de types Integer, le type du 
resultat sera celui commun aux deux operandes. 
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Tableau 2.10 : Operations booleennes 



Operateur Operation Types utilises Type du resultat 



not Negation Boolean 


Boolean 


and ET log 


;ique Boolean 


Boolean 


or OU lo; 


gique Boolean 


Boolean 


xor OU EXCL logique Boolean 


Boolean 


Operateurs relaNonnels 




Ces elements, qui figurent au Tableau 2.11, permettent de comparer les valeurs de deux varia- 
bles. Bien que nous n'ayons pas utilise tous les types du Tableau 2.1 1 , il a ete juge necessaire 
de les y faire figurer pour information. Nous parlerons de certains des types de ce tableau dans 
la suite du livre. 


Tableau 2.11 : Operations relationnelles 




Operateur Operation 


Types utilises 


Types du resultat 


Egal 


Compatible simple, classe, 
reference de classe, pointeur, 
ensemble, chaine ou chaine 
compacte 


Boolean 


<> Non egal a 


Compatible simple, classe, 
reference de classe, pointeur, 
ensemble, chaine ou chaine 
compacte 


Boolean 


< Inferieur a 


Compatible simple, chaine ou 
chaine compacte, ou PChar 


Boolean 


> Superieur a 


Compatible simple, chaine ou 
chaine compacte, ou PChar 


Boolean 


<= Inferieur 
ou egal a 


Compatible simple, chaine ou 
chaine compacte, ou PChar 


Boolean 


>= Superieur 


Compatible simple, chaine ou 


Boolean 



ou egal a chaine compacte, ou PChar 

<= Sous-ensemble de Types d'ensembles compatibles Boolean 

>= Sur-ensemble de Types d'ensembles compatibles Boolean 
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in membre de Operande de gauche : n'importe quel Boolean 

type ordinal ; operande de droite : 
ensemble dont la base est 
compatible avec l'operande gauche 



Si A et B sont des ensembles, leur comparaison donne les resultats suivants : 

• A = B vaut True si A et B comportent exactement les memes elements. Sinon, A <> B. 

• A <= B vaut True si chaque element de A est egalement element de B. 

• A >= B vaut True si chaque element de B est egalement element de A. 

Preseance des operateurs 

Tout comme en arithmetique, vous devez savoir comment evaluer une expression. A cet effet, 
vous avez besoin de connaitre l'ordre dans lequel les differentes parties d'une expression sont 
evaluees. La preseance des operateurs affecte le resultat du code, tout comme il affecte le resul- 
tat d'un calcul en arithmetique (voir Tableau 2.12). Lorsqu'une expression comporte plusieurs 
operateurs de meme priorite, revaluation se fait de gauche a droite. 



Tableau 2.12 : Precedence des operateurs 



Operateurs 



Precedence 



Categories 



@,not 

*, /, div, mod, and, 
shl, shr, as 

+, -, or, xor 

=, <>, >, <, <=, >=, 
in, is 



Premiers 
Deuxiemes 

Troisiemes 
Quatriemes 



Operateurs unaires 
Operateurs de multiplication 

Operateurs d' addition 
Operateurs de relation 



L'ordre est assez simple, mais vous devez garder en memoire ces trois points : 

• Un operande entre deux separateurs est lie (ou attache) a l'operateur dont la precedence est 
superieure. Par exemple, dans l'expression 8"5-4, 5 est attache a l'operateur \ 

• Un operande situe entre deux operateurs egaux est lie a celui de gauche. Par exemple, dans 
l'expression 8 - 5 - 4 , 5 est attache a l'operateur - de gauche . 

• Les expressions entre parentheses sont evaluees avant d'etre traitees en tant qu'operande 
simple (on manipule d'abord le contenu des parentheses). Par exemple, dans l'expression 
8 A (5 - 4) , 5 est attache a l'operateur - . 
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Recapifulatif 

Lors de cette journee, vous avez pu decouvrir une partie du langage Pascal Objet. Vous avez 
vu les differents types de donnees dont vous disposez et, je l'espere, vous avez commence a 
comprendre les mecanismes du langage. La meilleure facon de se familiariser avec le Pascal 
Objet est encore de l'utiliser. Regardez tous les exemples fournis avec Delphi 3. Lisez les sour- 
ces, meme si vous ne comprenez pas tout. Au Jour 3, nous poursuivrons notre presentation du 
Pascal Objet et traiterons de la structure d'un programme Delphi 3. 

Atelier 

L'atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu de 
cette lecon. La section Questions - Reponses presente des questions qu'on se pose couramment 
et leurs reponses, la section Questionnaire vous pose des questions, dont vous trouverez les 
reponses en consultant 1' Annexe A, et vous mettrez en pratique dans les Exercices ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Est-il possible de convertir une variable d'un type a un autre ? 

R Oui. Cela s'appelle le transtypage. A ce sujet, reportez-vous a l'exercice 1 du Jour 3. 

Q Le Pascal Objet est-il identique aux Pascal qui existent sur d'autres plates-formes et 
qui sont proposes par d'autres editeurs ? 

R II existe un Pascal ANSI standard. Borland a apporte beaucoup d'ameliorations au Pascal 
standard, et au final, les avantages apportes rachetent largement la non conformite au 
standard. 

Questionnaire 

1. En quoi les constantes et les variables sont-elles differentes au niveau le plus 
fondamental ? 

2. Pourquoi la precedence des operateurs est-elle necessaire ? 

3. Quel est l'avantage apporte par les constantes typees ? 
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Exercices 

1 . Pour mieux vous familiariser avec le type Variant , ecrivez une application qui utilise des 
types Integer et Variant. Assurez-vous que vous placez la valeur Integer dans la va- 
riable Variant. Essayez d'ecrire les deux valeurs a l'ecran pour voir si le type Variant 
contient vraiment d'autres types de donnees (Integer dans cet exemple). 

2. Ecrivez un programme qui utilise les types enumeres. Essayez de creer un type appele 
MembreDeLaFamille qui a pour elements tous les membres de votre famille. Donnez l'age 
de chacun de ces membres et affichez tout. 



DELPHI 3 



Le Pascal Objet, 
deuxieme parMe 



LE PR*)GRAMMEU 



Lorss de la lecon precedente, vous avez pu decouvrir les types de donnees de Delphi 3 et leurs 
utilisations. Vous commencerez ici a voir comment controler vos applications. Le Pascal Objet 
fournit plusieurs commandes tres puissantes vous permettant de controler le comportement de 
vos applications. Nous montrerons en quoi la modularisation de votre application permet de 
reduire le nombre d'erreurs et de gagner en fiabilite. Nous evoquerons aussi les pointeurs, ainsi 
que le passage de parametre. 

Controler le flux 

Toute la programmation repose sur la capacite de votre application a prendre des decisions, en 
se basant sur des entrees ou d'autres criteres, et sur sa capacite a effectuer ensuite une tache ou 
une operation donnee. Cette capacite est generalement appelee l'execution conditionnelle. Le 
Pascal Objet propose plusieurs commandes permettant de mettre en place cette "capacite con- 
ditionnelle". Examinons ensemble ces commandes. 

If... Then ... Else 

La clause If . . . Then ... Else est la declaration conditionnelle la plus fondamentale. Elle per- 
met au developpeur de poser une question et d'effectuer une operation ou une tache donnee 
selon la reponse obtenue. Comment demander a l'utilisateur d'entrer quelque chose et prevenir 
cet utilisateur si son entree n'est pas correcte ? Commencons par un exemple utilisant du code 
sequentiel, puis nous le transformerons. Le Listing 3.1 montre comment poser une question a 
l'utilisateur sans structure conditionnelle. 

Listing 3.1 : Programme simple oil l'utilisateur entre des donnees 
program Exemplelf; 

Uses 
Forms ; 

var 

EntreeUtilisateur : Integer; 
begin 

Write ('Quel age avez -vous ?'); 
ReadLn (EntreeUtilisateur); 

WriteLn (EntreeUtilisateur, ' est le plus bel age !'); 
ReadLn 
end. 
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Cet exemple de programme est des plus simples. Examinons-le ligne par ligne. Vous declarez 
une variable EntreeUtilisateur de type Integer. Elle permet de stocker l'age de l'utilisateur, que 
celui-ci vous fournit. La ligne Write demande a l'utilisateur son age. Vous utilisez la fonction 
Write() plutot que WriteLn() car Write ne fait pas passer le curseur a la ligne suivante. La fonc- 
tion ReadLn() accepte les donnees que l'utilisateur entre sur son clavier jusqu'a ce que la touche 
Entree soit pressee. L'entree est alors placee dans la variable EntreeUtilisateur, et l'execution 
du programme se poursuit. Le WriteLn() final annonce a l'utilisateur que son age est le plus bel 
age. 

Ce programme souleve quelques problemes. II n'effectue pas de verification d'intervalle pour 
voir si l'age entre se trouve dans les limites du raisonnable (il acceptera des ages negatifs ou 
superieurs a 130). Utilisons done la clause If.. .Then pour corriger ce petit defaut. La syntaxe 
de la clause est la suivante : 

If <Expression1> then <Expression2> else <Expression3>; 

La premiere expression doit avoir pour valeur un True ou False logique. La deuxieme expres- 
sion est Taction qui sera effectuee si la premiere expression est evaluee comme True (vraie). 
La troisieme expression est facultative et elle indique Taction a effectuer si la premiere expres- 
sion est evaluee comme False (fausse). 

Faisons done notre petit test de l'age. La declaration sera "Si l'age est inferieur a 1, ou si l'age 
est superieur a 130, alors l'utilisateur ment, sinon dites-lui que son age est le plus bel age" . Tra- 
duisons cette expression en code. Regardez le resultat dans le Listing 3.2. 

Listing 3.2 : Exemple de programme utilisant la declaration if 

I program ExempleIF2; 
Uses 
Forms ; 
var 
EntreeUtilisateur : Integer; 
begin 
Write ('Quel age avez-vous ?'); 
ReadLn (EntreeUtilisateur); 
If (EntreeUtilisateur < 1 ) or (EntreeUtilisateur > 130) then 
WriteLn ('Vous ne dites pas la verite.") 
else 
WriteLn (EntreeUtilisateur, ' ans est le plus bel age !'); 
ReadLn 
end . 
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N'oubliez pas que la premiere expression est constituee de tout ce qui se trouve entre les mots 
reserves If et Then. L'expression 

(EntreeUtilisateur < 1 ) or (EntreeUtilisateur > 130) 

doit pouvoir etre evaluee comme True ou False, et c'est le cas. Si l'age est inferieur a un, la pre- 
miere partie (EntreeUtilisateur<l) devient True. Si l'age est superieur a 130, c'est l'expression 
(EntreeUtilisateur>130) qui devient True. Dans les deux cas, avec le or (ou) logique entre les 
deux, si l'un des deux est True, l'ensemble est evalue a True. Si la premiere expression est eva- 
luee comme True, la deuxieme expression est executee. Si la premiere expression est False, 
alors la troisieme expression (le WriteLn() place apres la declaration Else) est executee. Vous 
tenez la un exemple simple mais efficace des elements de construction des clauses condition- 
nelles. 

Case...of 

Avant l'apparition des controles d' editions masques, un programmeur qui souhaitait limiter 
l'entree d'un utilisateur a certains caracteres devait analyser chaque caractere separement. Cha- 
que fois qu'un caractere etait entre, le code verifiait ce qu'etait ce caractere et decidait de la 
maniere de le traiter. La declaration Case s'averait alors tres utile. Cette declaration Case per- 
met au programmeur de faire la comparaison entre une entree et un ensemble predefini de "cas" 
(cases en anglais), et de repondre en consequence. Un exemple figure dans le Listing 3.3. 

Listing 3.3 : Exemple de programme utilisant Case of 
Program ExempleCase; 

uses 
Forms ; 

var 

EntreeUtilisateur : Char; 
begin 

Read (EntreeUtilisateur); 
Case EntreeUtilisateur of 

'a' : WriteLn ('C'est un a minuscule'); 

'z', 'Z' : WriteLn ('C'est un Z minuscule ou majuscule') 
else 

WriteLn ( ' Ce caractere n ' est pas un a, un z ou un Z.'); 
ReadLn 
end. 
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Dans cet exemple, on demande a l'utilisateur d'entrer un caractere au clavier (la touche Entree 
n'est necessaire puisque Read ne prend que ce dont il a besoin et ne necessite pas l'appui sur 
Entree). Ensuite, l'entree de l'utilisateur (qui se trouve maintenant dans la variable EntreeUti- 
lisateur) est comparee avec la premiere constante. Si cette constante (le caractere 'a' en l'occur- 
rence) correspond aux donnees de EntreeUtilisateur, la declaration situee apres les deux points 
de la ligne est executee. Cette declaration peut etre un appel a une fonction ou a une procedure 
(nous reviendrons sur ces notions tout a l'heure), ou une serie de declarations entouree d'un end 
et d'un begin. Ensuite, une fois la declaration de la ligne 'a' executee, le reste de la declaration 
Case sera ignore car une correspondance aura deja ete trouvee. 

Si la ligne 'a' ne correspond pas, c'est la ligne suivante de la declaration Case qui est comparee 
a EntreeUtilisateur. S'il y a correspondance, la ligne de declaration associee a cette nouvelle 
constante est executee, et ainsi de suite. Si aucune correspondance n'est trouvee, la declaration 
else (si elle existe) sera executee. 

L'instruction situee a droite des deux points dans Vinstruction Case peut etre un appel de 
fonction, de procedure, ou un ensemble de lignes de code d'elimit'ees par un bloc begin . . 
end, ce qui apporte une grande souplesse a vos programmes. Notez la presence du end qui 
vientfermer la structure Case : il est indispensable. 

II est preferable de toujours utiliser une clause else dans une declaration Case pour parer a 
toute eventualite. 

Quelques regies concernant Case : 

• Si vous utilisez plus d'une constante sur une ligne de comparaison, celles-ci doivent etre 
separees par des virgules, sauf si vous indiquez un intervalle de valeurs (de 'a' a 'z' par 
exemple). 

• L'expression ou la constante a laquelle on compare l'expression doit etre d'un type ordinal 
de taille byte ou word. Vous ne pouvez done pas utiliser un type String ou Longlnt comme 
argument. 

• Les constantes auxquelles vous comparez votre expression (EntreeUtilisateur dans notre 
exemple) ne peuvent se recouvrir. Cela signifie que la declaration Case suivante ne fonc- 
tionnera pas : 

J Program MauvaisCase; 




Uses 



var 



begin 

Read (EntreeUtilisateur); 



EntreeUtilisateur : Char; 



Forms ; 
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Case EntreeUtilisateur of 

'a' : WriteLn ('C'est un a minuscule'); 

'a 1 , z 1 , 'Z' : WriteLn ('C'est un Z, un z ou un a.'); 
'Zap' : WriteLn('Ce test est impossible a realiser'); 

else 

WriteLn ('C'est un caractere autre que a, z ou Z.'); 
ReadLn 
end. 

Si vous tentez d'executer cette application, le compilateur vous annoncera une erreur duplicate 
case label. C'est une bonne chose car meme si le compilateur permettait un tel programme, 
celui-ci n'aurait aucun sens. Pour que la declaration Case s'execute correctement, toutes les 
valeurs doivent etre uniques. Un 'a' en double plongerait Delphi dans un dilemme. 

On a egalement ajoute une nouvelle option au Case : Zap. La variable du Case etant de type 
char, cette valeur chaine provoquera une erreur a la compilation. II est impossible de melanger 
differents types au sein d'une meme clause Case. 

Structures de boucle 

II arrive qu'il faille executer un ensemble destructions plusieurs fois de suite, jusqu'a ce qu'une 
condition specifique soit remplie. Le Pascal Objet offre a cet effet plusieurs instructions de 
boucle : 

• Repeat . . Until : Cette boucle s'execute toujours au moins une fois. 

• While . . Do : Cette boucle peut ne jamais etre parcourue. 

• For : Cette boucle est parcourue un nombre de fois connu d'avance. 

Repeat... unNI 

Le principe de Repeat... until (Repete... jusqu'a) est tres simple. Les declarations qui se trouvent 
entre le repeat et le until sont repetees jusqu'a ce que la condition definie apres le mot reserve 
Until soit evaluee comme True (Vraie). Un exemple figure dans le Listing 3.4. 

Listing 3.4 : Exemple de programme utilisant Repeat...until 
program ExempleRepeat ; 

Uses 
Forms ; 

begin 
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repeat 

Write ( 1 Entrez une valeur : '); 
Read(I) ; 
until (I = 'q' ) or (I = 'Q' ) ; 
ReadLn 
J end. 

Ce programme continuera de demander des caracteres a l'utilisateur jusqu'a ce qu'il appuie sur 
la touche 'q'. De prime abord, la syntaxe peut desorienter car ici les begin/end ne sont pas 
necessaires. Le repeat et le until tiennent lieu de marqueurs qui delimitent les instructions de 
la boucle. 

Comme vous pouvez le voir dans le listing ci-avant, le segment de code situe entre les decla- 
rations repeat et until sera execute une fois avant meme que la condition du until (ici (I = 'q') 
or (I = 'Q')) ne soit verifiee. Vous devez vous assurer que le segment de code peut prendre en 
charge une iteration avant de verifier son etat. Si vous n'etes pas sur de vous, utilisez plutot une 
autre instruction de boucle. Autre point interessant, celui du nombre d'iterations qu'effectuera 
cette boucle. On ne connait pas la reponse. Cette boucle peut s'executer une fois ou mille, selon 
ce qu'entrera l'utilisateur. C'est un autre point a considerer lorsque vous utilisez cette comman- 
de. 

While ...Do 

Le While. ..Do (tant que...faites) est une variante de l'instruction precedente. Cette commande 
a une fonction similaire, a deux differences pres : 

1 . La declaration conditionnelle est verifiee avant d'entrer dans la boucle. 

2. Si la condition est False, la boucle ne sera pas executee une nouvelle fois (a l'inverse de 
la boucle Repeat... Until). 

Regardez comment obtenir le meme resultat que precedemment mais avec une boucle While- 
Do cette fois (Listing 3.5). 

Listing 3.5 : Exemple de programme utilisant While. . .Do 

I program ExempleWhileDo; 
Uses 
Forms ; 
var 
I: Char; 
begin 
While (I <> 'q') and (I <> 'Q' ) Do 
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begin 

Write ( 1 Entrez une valeur : '); 
Read(I) ; 
end; 
ReadLn 
end. 

Remarquez que vous devez inverser la logique de (I = 'q') or (I = 'Q') en (I <> 'q') and (I<> 'Q') 
pour que la boucle. Cela est du a un changement de perspective. Vous etes passe de "Faites ceci 
jusqu'a..." a "Tant que... est vrai faites...". La logique est inversee. Comme dans la boucle 
Repeat, il n'y a aucun moyen de savoir a l'avance combien de fois la boucle s'executera. Ce 
nombre depend entierement de ce qu'entrera l'utilisateur. 

For.Do 

La boucle For. ..Do est l'une des instructions de boucle les plus simples. Vous l'utilisez lorsque 
vous savez combien de fois vous souhaitez que la boucle s'execute. Le Listing 3.6 vous fournit 
un exemple d'utilisation. 

Listing 3.6 : Exemple de programme utilisant For. .Do 
program ExempleFor; 

uses 
Forms ; 

var 

Compte : Integer; 
begin 

For Compte := 1 to 10 do 

WriteLn ('Hello'); 
ReadLn 
end. 

Dans le Listing 3.6, vous definissez une variable Compte de type Integer. La boucle For est 
mise en place comme suit : 

• La variable Compte contiendra la valeur courante de la boucle. 

• Compte aura automatiquement 1 pour valeur initiale. 

• La declaration qui figure apres le do est executee une fois (si cette declaration est un begin, 
tout le code qui suit est execute jusqu'a ce qu'un end apparaisse). 

• Compte est increments de un (on ajoute un a Compte). 
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• Si Compte est superieur a la valeur de terminaison (10), la boucle s'acheve et l'execution se 
poursuit avec la declaration qui se trouve apres la boucle For. 

• Si Compte n'est pas superieur a la valeur de terminaison (10), alors la declaration qui se 
trouve apres le do est executee a nouveau. 

Le terme bloc de code recouvre de facon generique plusieurs situations sous Delphi. Au 
depart, un bloc de code est compose de l'ensemble des instructions presentes entre un begin 
et un end. Dans un sens plus large, un bloc de code designe l'ensemble des instructions qui 
apparaissent dans une procedure ou dans une fonction. 

Lorsque vous utilisez la boucle For . . . Do, gardez a l'esprit les regies suivantes : 

• Vous devez bien avoir en tete quelques regies. La variable que vous utilisez pour contenir 
la valeur courante de la boucle (Compte dans cet exemple) doit etre a portee (nous revien- 
drons sur cette notion par la suite). Pour dire les choses simplement, cela signifie que 
Compte doit etre une variable locale valide pour le bloc dans lequel la boucle For se trouve. 

• La valeur initiale (1) doit etre inferieure a la valeur finale (10). Cest logique puisque le For 
est incremental. Vous ne pouvez pas utiliser Compte comme parametre formel pour une 
procedure. Vous ne pouvez pas modifier la valeur de Compte au sein de la boucle For elle- 
meme. 

• La variable de controle Compte doit etre d'un type compatible avec les valeurs initiale et 
finale (1 et 10). Delphi 3 doit pouvoir placer ces valeurs, et toutes les valeurs interme- 
diaires, dans Compte. 

• Vous devez aussi vous souvenir que Compte n'est plus defini une fois que le point d'execu- 
tion quitte la boucle, il est done impossible d'utiliser sa valeur courante pour quoi que ce 
soit en dehors de la boucle. 

II n'existe qu'une variation de la boucle For, que nous allons voir a present. Vous pouvez decre- 
menter la variable Compte en utilisant cette variante. Le Listing 3.7 vous fournit un exemple. 

Listing 3.7 : Autre exemple de programme utilisant For. ..Do 

I program ExempleFor2; 
uses 
Forms ; 
var 
Compte : Integer; 
begin 
For Compte = 10 downto 1 do 
WriteLn ('Hello'); 
ReadLn 
end . 
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Ce programme ressemble au programme precedent, a ceci pres que le mot reserve to a ete rem- 
place par downto et que les valeurs initiale et finale ont ete inversees. La boucle For fonctionne 
de la meme facon qu'auparavant sauf qu'ici Compte est decrements de 10 a 1 , avant de s'ache- 
ver. 



Branchemenfs 

Une autre possibilite d'un langage tel que le Pascal Objet est la capacite d'effectuer un bran- 
chement dans le code. En d'autres termes, il s'agit de la possibilite de se rendre a un autre 
endroit du code si necessaire. Plusieurs mecanismes existent a cet effet : 

• Goto 

• Break 

• Continue 

• Exit 

• Halt 

• RunError 

Goto 

La declaration Goto vous permet de vous deplacer de votre position actuelle dans le code jus- 
qu'a une ligne specifiquement etiquetee. Une telle etiquette ou label est definie en utilisant le 
mot reserve label pour definir un nouveau nom de label. Ce nom de label peut alors etre affec- 
te a une ligne de code en ecrivant label, deux points (:), puis la ligne du code executable. Un 
exemple figure dans le Listing 3.8. 

Listing 3.8 : Exemple de programme utilisant Goto 

label lei; 
Program ExempleGoto 

uses 
Forms ; 

var 

Reponse : String; 
label Ici; 
begin 

Ici : WriteLn ( 'Hello' ) ; 
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WriteLn ( 1 Voulez - vous executer une nouvelle fois ?'); 

ReadLn (Reponse); 

If (Reponse = 1 o ' ) then 

Goto Ici; 
ReadLn 
J end. 

Vous avez defini un label nomme Ici que vous allez utiliser dans votre code. Le label est defini 
en dehors de la zone de code executable, mais apres les definitions const, var, type, etc. La 
ligne 'Hello' sera toujours executee. Le WriteLn demande a l'utilisateur s'il desire relancer le 
programme. Si la reponse est 'o'; alors Goto Ici est execute. Sinon, le dernier ReadLn est exe- 
cute et lorsque l'utilisateur appuie sur Entree, le programme se termine. 

Le concept de label est tres ancien et a ete tres souvent utilise. II y a certainement bien 
d'autres moyens d'ecrire cet exemple sans avoir besoin d'y faire figurer le moindre Goto. Et 
c'est la la pomme de discorde qui a lance une polemique qui fait encore rage. Nombreux sont 
les d'eveloppeurs qui pensent que V usage de Goto trahit en fait de mauvaises habitudes de 
programmation, et qu'un examen plus pouss'e du code permettrait de trouver une f aeon plus 
'elegante de faire les choses. D'autres, plus pragmatiques, pensent que si Voutil existe, autant 
V utiliser. A vous de decider ! 

Break 

Imaginons que vous soyez au beau milieu d'une boucle For ou While et que vous trouviez une 
condition qui exige imperativement que vous sortiez de cette boucle. Sortir d'une boucle de 
facon impromptue n'a rien d'evident, et c'est pourquoi la declaration Break vous permet de ter- 
miner completement l'execution d'une boucle. Le Listing 3.9 vous montre un exemple d'utili- 
sation. Nous allons reecrire Exemple WhileDo pour la circonstance. 

Listing 3.9 : Exemple de programme utilisant Break 

I program ExempleBreak; 
Uses 
Forms ; 
var 
I: Char; 
begin 
While True Do 
begin 
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Write ( 1 Entrez une valeur :'); 
Read(I) ; 

If (I = 'q' ) or (I = 'Q' ) then 
Break; 

end; 

{Le break fera cesser l'execution ici} 
ReadLn 
end. 

Ce programme peut sembler etrange mais il a le merite d'illustrer un point interessant. La bou- 
cle While continuera indefiniment car l'expression est toujours evaluee comme True. La seule 
facon de sortir de cette boucle consiste a utiliser la declaration Break. Ainsi, apres avoir lu 
l'entree de l'utilisateur dans le Read, la declaration If determine si la touche appuyee etait un q 
minuscule ou majuscule. Si c'est bien le cas, le Break est alors invoque. L'execution s'arrete 
alors ici pour ce qui concerne la boucle, et le reste de l'application est ensuite execute. 

Continue 

La condition inverse existe aussi, lorsque vous ne souhaitez pas sortir de la boucle, mais sim- 
plement terminer ce que vous etes en train de faire dans l'iteration en cours pour passer a l'ite- 
ration suivante. La commande Continue vous permet de faire cela. Lorsqu'elle est utilisee dans 
une boucle For, Repeat ou While, la declaration Continue stoppe le traitement dans l'iteration 
en cours et rend le controle a la boucle elle-meme pour qu'elle passe a l'iteration suivante. Le 
Listing 3.10 fournit un exemple d'utilisation. 

Listing 3.10 : Exemple d'utilisation de Continue 
program ExempleContinue ; 

Uses 
Forms ; 

var 

I: Char; 

Compte : Integer; 

begin 
I := ' '; 

For Compte =1 to 100 Do 
begin 

Write (' Entrez une valeur : '); 
Read(I) ; 

If (I = 'q' ) or (I = 'Q' ) then 
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Continue; 

WriteLn (' Ceci ne sera execute que si 1' 'entree de 1 1 1 utilisateur 
n 1 1 est pas un q ou un Q. ' ) 

end; 
ReadLn 
J end. 

Dans ce programme, votre boucle For s'execute 100 fois. A l'interieur de cette boucle, vous 
scrutez les touches sur lesquelles l'utilisateur appuie. Si cette touche est un q, la declaration 
Continue est alors invoquee et l'execution revient a la ligne For qui incremente d'un la variable 
Compte avant de reprendre. II s'agit la d'un mecanisme supplemental dont vous pouvez tirer 
parti pour arriver a vos fins. 

Unefois la variable de contrdle (Compte) incr'ement'ee , elle est egalement testee. Vous pouvez 
utiliser les commandes Break et Continue si vous rencontrez une condition d'erreur dans votre 
boucle ; utilisez Continue pour passer a V element suivant ou Break pour ne pas tr alter du tout 
les elements qui suivent. 

Exif 

Le nom indique parfaitement la fonction de cette declaration. Exit permet de sortir du bloc de 
code courant. Si ce bloc est le programme principal, Exit entraine la fin de celui-ci. Si le bloc 
courant est imbrique, Exit fait continuer le programme avec le bloc exterieur suivant qui passe 
a la declaration qui vient immediatement apres la declaration ayant passe le controle au bloc 
imbrique. Si le bloc courant est une procedure ou une fonction (nous reviendrons sur ce point 
dans la section consacree aux programmes), Exit fait en sorte que le bloc appelant continue en 
reprenant a la declaration qui suit immediatement l'appel au bloc. Le Listing 3.11 donne un 
exemple d'utilisation. 

Listing 3.11 : Exemple de programme utilisant Exit 

I program ExempleExit; 
Uses 
Forms ; 
var 
I: Char; 
Compte : Integer; 
begin 
repeat 
Write ( 1 Entrez une valeur : '); 
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Read(I) ; 

If I := 'Q' then 
Exit; 
Until False; 
ReadLn 
end. 

Dans notre exemple, vous avez cree une boucle infinie en definissant la portion Until de la bou- 
cle comme etant False. La seule facon de terminer la boucle est que l'utilisateur appuie sur la 
touche Q. A ce moment-la, le If.. .Then est evalue comme True et la commande Exit entre en 
action. Comme le bloc de code dans lequel vous vous trouvez est le programme principal, le 
programme s'arrete. 

Hair 

Halt permet de mettre fin a votre application a votre guise. La ou vous placez la command Halt, 
l'application se termine. Avant de placer cette commande dans votre application, vous devez 
cependant vous poser quelques questions : 

• Avez-vous laisse une base de donnees ou un fichier ouverts ? Si vous arretez brusquement 
ils risquent alors d'etre endommages. 

• Avez-vous alloue un espace memoire que vous n'avez pas encore libere ? Dans ce cas vous 
gacherez de la memoire en quittant maintenant. 

On ne saurait trop insister : soyez tres prudent dans l'usage de cette commande. Elle est tres 
puissante et, mal employee, elle pourrait vous causer des ennuis. Cette commande peut par 
exemple etre utilisee lorsque l'application rencontre une erreur critique. Certains des codes de 
retour provenant d'appels Windows ou Delphi vous indiquent que quelque chose d'imprevu et 
de desagreable vient d'arriver. Peut-etre des problemes lies a la memoire ou au disque. Vous 
pouvez en ce cas mettre un terme brutal a l'application, plutot que d'en sortir en y mettant les 
formes. Cepandant, il vaut toujours mieux essayer la maniere elegante. La commande Halt ne 
doit etre utilisee qu'en tout dernier ressort. Si vous arretez ainsi votre application, elle risque de 
laisser ouverts des fichiers, de ne pas liberer de memoire et de laisser en suspens et a la derive 
de nombreux elements de votre systeme. Le Listing 3.12 illustre un exemple d'utilisation. 

Listing 3.12 : Exemple de programme utilisant Halt 
program ExempleHalt ; 

Uses 
Forms ; 

var 

I: Char; 

Compte : Integer; 
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begin 
repeat 

Write ( 1 Entrez une valeur : 
Read (I) 

If I := 'Q' then 
Halt; 
Until False; 
end . 



'); 



Dans le Listing 4.13, lorsque l'utilisateur appuie sur la touche Q, le programme s'arrete instan- 
tanement. Ce n'est pas une facon tres harmonieuse de dire au revoir, mais elle a le merite d'etre 
efficace. Dans des circonstances normales (et pour une application plus complexe), il est pre- 
ferable d'executer avant la sortie une portion de code chargee de nettoyer l'environnement. 

RunError 

Voila une belle commande. Si vous n'aimez pas les codes d'erreur que Delphi 3 vous assene, 
vous pouvez creer les votres. A n'importe quel moment de l'execution d'un programme, vous 
pouvez invoquer la commande RunError avec un parametre Integer, et l'execution du program- 
me sera arretee et le code d'erreur que vous avez entre sera indique comme raison de l'echec du 
programme. Le Listing 3.13 illustre un exemple d'utilisation. 

Listing 3.13 : Exemple de programme utilisant RunError 
program ExempleRunError; 

Uses 
Forms; 

var 

I: Char; 

Compte : Integer; 



begin 
repeat 

Write ( 1 Entrez une valeur : 
Read(I) 

If I := 1 Q 1 then 
RunError (240); 
Until False; 
ReadLn 
end . 



); 
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Ce programme a ete ecrit pour generer une erreur d'execution 240 (une erreur inventee pour la 
circonstance) chaque fois que l'utilisateur appuie sur la touche Q. Si le debogueur est en train 
de tourner, il est possible de voir venir cette erreur d'execution. Cette commande est particu- 
lierement pratique si vous trouvez que votre application ne genere pas assez d'erreurs a votre 
gout... Les erreurs d'execution sont reprises dans la documentation en ligne de Delphi. A ce 
sujet, vous remarquerez que l'erreur 240 n'y figure pas : elle est definissable par l'utilisateur. 
Les codes d'erreurs ne peuvent pas depasser 255. 

Programmes 

Tout au long de ces premieres lecons, vous avez passe une sorte de bapteme du feu des struc- 
tures d'une application Delphi 3. Nous parlerons en detail au Jour 5 des fichiers qui constituent 
votre projet et de la facon de les gerer, mais il est maintenant necessaire de parler de votre 
application du point de vue de la structure interne. Vous avez pu voir (et essayer) les program- 
mes d'exemples qui ont emaille jusqu'ici le cours de notre discussion. Nous allons dissequer 
l'un d'entre eux. 

Toutes les applications Delphi 3 ont ceci de commun qu'elles contiennent toutes un segment 
de code qui est le point principal autour duquel tout le reste s'articule. Ce segment de code com- 
mence par le mot Program. C'est la que commence l'execution de votre application. La clause 
Uses se trouve generalement apres. Cette section permet d'inclure d'autres unites de code (nous 
reviendrons sur ce sujet dans la section consacree aux Unites). Apres la clause Uses vient la 
section de declaration. Les mots reserves const, type et var sont les declarations que Ton trouve 
habituellement dans cette section. Ici, sont definis les types de donnees globaux, les variables 
et les constantes. Enfin, vous trouvez la paire begin. ..end, avec un point situe apres la declara- 
tion end. Ce end suivi d'un point indique la fin du code executable, et il ne peut y avoir qu'un 
seul end. dans l'executable principal. Le seul endroit ou un end. peut faire son apparition est 
dans une unite ou un DLL. 

Un programme a done l'aspect suivant (voir Listing 3.14). 

Listing 3.14 : Exemple de programme principal 
Program ExempleProg; 

Uses 
Forms; 

const 
Impots = 7.75; 
Mort = True; 
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var 

Salarie : String; 



begin 

If (Impots > 0) and Mort then 

Salarie : = 1 Moi ' ; 
WriteLn ( 1 R. I .P. 1 ) 
ReadLn 



Comme vous pouvez le voir, il n'y a que deux constantes, la mort et les impots. Tout ce qui se 
trouve entre le begin et le end est execute dans l'ordre de haut en bas, et le programme s'arrete 
lorsqu'il rencontre le end suivi d'un point. Jusqu'ici, rien de plus simple. 



Je tiens la procedure pour la plus belle invention depuis l'ampoule electrique. Ou peu s'en faut. 
Les procedures vous permettent d'ameliorer sensiblement la qualite de votre vie de program- 
meur. Voyons ensemble comment les procedures peuvent ameliorer la productivite, la clarte et 
comment elles reduisent les bogues dans votre code. 

Lorsque vous etes plonge dans la programmation, les choses les plus evidentes vous echappent 
parfois. Si vous devez ecrire un programme qui affiche un damier, vous pouvez etre tente de 
proceder ainsi : 

Listing 3.15 : AfficheDamier utilisant des WriteLn 
J program AfficheDamier; 



end . 



Procedures 




Uses 



WriteLn ( 

WriteLn ( 

WriteLn ( 

WriteLn ( 

WriteLn ( 
end . 



begin 



Forms ; 



); 



); 



); 



); 
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A cause des polices proportionnelles utilisees par Windows, Vaffichage de ce plateau de jeu 
intO r i s Q ue d'etre relativement illisible. Nous n'avons pas recherche ici Vesth'etique, notre propos 
etant purement illustratif. 

Ce programme fonctionne (meme si le damier n'est pas fabuleux) mais n'a rien d'elegant. Vous 
pouvez voir comme il se repete ? Vous faites plusieurs fois la meme chose. C'est ici qu'inter- 
vient la notion de procedure. Le Listing 3.16 nous montre le programme revu et corrige. 

Listing 3.16 : AfficheDamier utilisant des procedures 
program AfficheDamier; 

Uses 
Forms ; 

{normalement c'est la que l'on placerait les declarations Uses, Const, Var, 
Type et autres.} 

procedure Verticales; 
begin 

WriteLn (' | | 1 ); 
end; 

procedure Horizontales ; 
begin 

WriteLn ( 1 1 ) ; 

end; 

begin 

Verticales; 
Horizontales; 
Verticales; 
Horizontales; 
Verticales; 
end. 

Dans cet exemple, vous prenez une section (en l'occurrence, une ligne) de code que vous utili- 
sez souvent pour la placer dans un emballage, vous donnez un nom a cet emballage, puis vous 
utilisez ce nom pour acceder au code qui se trouve dans l'emballage, et ce autant de fois que 
vous le desirez. Pour ce faire, vous avez cree deux procedures, une qui affiche les lignes hori- 
zontales et l'autre les lignes verticales. Remarquez que les procedures ont ete declarees entre le 
mot reserve program et le debut du code executable (qui est la declaration begin). 
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La premiere chose a faire lorsque vous creez une procedure est de creer un en-tete. L'en-tete 
est compose du mot reserve procedure et d'un nom de procedure. Dans notre exemple proce- 
dure Horizontales; est l'en-tete de procedure. L'en-tete est tres similaire a la ligne program Affi- 
cheDamier de votre programme principal. Les similarites entre le programme principal et la 
procedure ne s'arretent d'ailleurs pas la. La procedure est une sorte de mini-programme et son 
format est le meme. Apres l'en-tete, vous pouvez trouver une section contenant Const, Type et 
Var, ou meme une autre procedure. Une procedure peut en comprendre une imbriquee. Enfin, 
la procedure comporte une section executable marquee par la pake begin. ..end;. 

Maintenant que vous avez cree cette procedure Horizontales, vous pouvez appeler cette proce- 
dure dans votre code. Lorsque vous appelez ce code en utilisant le nom qui lui est propre, le 
controle passe a cette procedure. A la fin de l'execution de la procedure, celle-ci redonne le 
controle a la ligne de code qui se trouve apres la ligne d'appel a la procedure. 

Les procedures permettent de modulariser le code et permettent la reutilisation. Un autre avan- 
tage des procedures est la fiabilite du code ainsi genere. Si vous ecrivez six fois de suite le 
meme morceau de code dans votre application, le risque d'erreur est multiplie par six. Par con- 
tre, si vous utilisez une procedure, vous ecrivez le code une fois, le testez une fois, et l'utilisez 
ensuite autant de fois que vous le souhaitez. Les risques d'erreurs sont moindres, et la qualite 
du code est amelioree. 

Passage de parameTres 

L'interet des procedures serait limite si leur utilite ne depassait pas le cadre de l'exemple ci- 
avant. Une procedure qui affiche une ligne de traits n'est certes pas d'une folle utilite. Pour ren- 
dre les procedures plus precieuses, il faut les rendre plus souples. L'ideal serait de transmettre 
des donnees supplementaires a la procedure, au moment meme ou vous l'appelez, pour lui don- 
ner un sens et un but particulier. C'est la le role des parametres. Reecrivons la procedure Ver- 
ticales pour inclure un parametre permettant de varier le nombre de fois ou les lignes sont 
imprimees . 

Listing 3.17 : Procedure Horizontales 

procedure Horizontales (NombreDeFois : Integer); 
var 

Compte : Integer; 
begin 

for Compte := 1 to NombreDeFois do 

WriteLn ( 1 1 ) ; 

end; 
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Cette procedure a gagne en souplesse. Vous avez introduit une variable NombreDeFois qui est 
transmise a la procedure. Le code (NombreDeFois : Integer); est appele liste de parametres for- 
mels. II s'agit d'une liste indiquant les donnees (et le type de ces donnees) qui doivent etre trans- 
mises a la procedure lors de son appel. Dans notre exemple, vous souhaitez transmettre une 
variable Integer dans la procedure pour controler le nombre d'execution du WriteLn. En don- 
nant un nom a cette variable, vous effectuez en fait une declaration de variable ailleurs que dans 
la section var de la procedure. A present, la procedure comporte une variable NombreDeFois 
de type Integer qui peut etre utilisee en n'importe quel endroit de cette procedure. 

Cependant, comme cette variable a ete definie dans la procedure meme, elle ne peut etre utili- 
see que la (reportez-vous aux paragraphes consacres a la notion de portee dans la suite de cette 
section). Comme vous pouvez le voir, vous utilisez ensuite NombreDeFois comme valeur fina- 
le de la boucle for qui execute le WriteLn le nombre de fois voulu. La procedure est devenue 
beaucoup plus souple. 

Maintenant que vous avez cree une liste de parametres formels dans la declaration de la proce- 
dure, vous devez modifier votre facon d'appeler la procedure. Vous ne pouvez plus vous con- 
tenter de dire Horizontales. Pour chaque parametre formel que vous identifiez, vous devez faire 
figurer un parametre correspondant dans l'appel. II est necessaire qu'il y ait correspondance 
parfaite entre les parametres formels et reels. Votre en-tete de procedure etait 

procedure Horizontales (NombreDeFois : Integer); 

Vous devez done transmettre un nombre Integer a cette procedure lorsque vous l'appelez. Le 
nouveau code du programme se trouve dans le Listing 3.18. 

Listing 3.18 : Exemple de programme utilisant des parametres 
program ExempleParam; 

Uses 
Forms ; 

var 

Nombre : Integer; 
procedure Horizontales (NombreDeFois : Integer); 
var 

Compte : Integer; 
begin 

for Compte := 1 to NombreDeFois do 

WriteLn ( 1 ' ) ; 

end; {Procedure Horizontales} 
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begin 

WriteLn ('Combien de lignes horizontales souhaitez - vous imprimer ?'); 
ReadLn (Nombre) ; 
Horizontales(Nombre) ; 
ReadLn 
end . 

Vous avez peut-etre remarque que lorsque vous appelez Horizontales, vous lui transmettez la 
variable Nombre. II s'agit d'un parametre. Le contenu de Nombre est copie dans la procedure 
Horizontales et se retrouve dans la variable NombreDeFois qui est definie localement. La pro- 
cedure dispose done des donnees de la variable globale Nombre dans NombreDeFois, et peut 
commencer ses manipulations. A la fin de Verticales, les donnees de NombreDeFois disparais- 
sent, car la variable locale est detruite a la sortie de la procedure. 

Lorsque vous transmettez (ou passez) plusieurs parametres a une procedure, l'ordre dans lequel 
vous le faites est primordial. La seule facon pour Delphi 3 de dire si les parametres formels et 
reels correspondent consiste a regarder l'ordre dans lequel ces parametres sont passes. Prenons 
un autre exemple d'utilisation des parametres. 

Procedure True (Nombre : Integer; Machin : String); 
begin 

WriteLn ( 1 Le nombre est ', Nombre); 
WriteLn ('La chaine est ', Machin) 
end; 

Cette procedure prend deux parametres, l'un est une valeur Integer, l'autre une valeur String. 
Lorsque vous appelez cette procedure, vous devez effectuer l'appel de procedure lui-meme et 
passer a la procedure un Integer et une String, dans cet ordre. Sinon, le programme ne se com- 
pilera pas. L'appel de cette procedure est illustre dans le Listing 3.19. 

Listing 3.19 : Le programme True 
program ExempleTruc; 

Uses 
Forms; 

var 

NombreUtilisateur : Integer; 
ChaineUtilisateur : String; 

Procedure True (Nombre : Integer; Machin : String); 
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begin 

WriteLn ( 1 Le nombre est ', Nombre); 
WriteLn ('La chaine est ', Machin) 
end; 

begin 

Write ('Entrez votre chaine :'); 
ReadLn (ChaineUtilisateur) ; 
Write ('Entrez votre nombre :'); 

ReadLn (NombreUtilisateur) ; 

True (NombreUtilisateur, ChaineUtilisateur) 
ReadLn 
end. 



Comme vous pouvez le voir, vous passez deux parametres a True, en vous assurant que vous 
les passez dans l'ordre adequat. Vous pouvez egalement passer a la fonction des donnees litte- 
rales (plutot que des variables). Ainsi, vous pourriez appeler True (3,'Bonjour tout le monde'); 
qui transmettrait ces donnees litterales dans les variables locales pour qu'elles y soient traitees. 

Visibilire er porree 

A mesure que vos applications deviendront de plus en plus fragmentees lors du recours a des 
procedures et fonctions, vous aurez besoin de savoir avec certitude quel sera le destin de vos 
variables. Avec l'arrivee des procedures, des fonctions et des unites, les risques de recouvre- 
ment de variables se font plus grands. II est done temps de parler de la visibilite et de la portee. 
Creons un programme d'exemple (Listing 3.20) et interessons-nous a la facon dont les varia- 
bles sont percues. 

Listing 3.20 : ExempleVisible 

I program ExempleVisible; 
Uses 
Forms ; 
var 
A : Integer; 
procedure Exterieure; 
var 
B : Integer; 
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procedure Interieure; 



var 

C : Integer; 

begin 
C := 3; 
B := 8; 

A := 4; {Je peux voir A a partir des declarations du programme 
principal} 

end; {de la procedure Interieure} 

begin 

B := 5; 

C := 5; {ceci n'est pas valide, je ne peux voir que vers l'exterieur, 
et pas vers l'interieur} 

A := 9 {Je peux voir A a partir des declarations du programme 
principal } 

end; {de la procedure Exterieure} 
procedure UneAutre; 
var 

D : Integer; 

begin 
D := 9; 

A := 55; {Je peux voir A a partir des declarations du programme 
principal} 

B := 4; {Ceci serait illegal, je peux voir vers l'exterieur, mais pas 
vers l'interieur } 

C := 5; { Ceci serait illegal, je peux voir vers l'exterieur, mais pas 
vers l'interieur } 
end; {de la procedure UneAutre } 

begin 
A:= 1 

{Je ne peux pas referencer une des variables locales dans une procedure 
ici. Aucune n'est visible.} 

end . 
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Dans cet exemple, votre application contient une procedure imbriquee. II faut garder a l'esprit 
ces deux regies qui indiquent quelles sont les variables que peuvent voir chacune des parties 
de vos programmes : 

• Regie 1 : Les variables ne sont visibles et disponibles que dans le bloc ou elles sont defi- 
nies. 

• Regie 2 : Dans les procedures ou fonctions imbriquees, vous pouvez toujours voir de l'inte- 
rieur vers l'exterieur. Cela signifie que les procedures qui sont imbriquees au niveau le plus 
bas peuvent voir les variables definies dans leurs procedures parent, et dans les procedures 
parent de celles-ci, et ainsi de suite. 

On peut avoir V impression que la regie 2 contredit la regie 1 . Ce n'est pas le cas. Revenons a 
la definition d'un bloc. Comme une procedure imbriquee est definie dans le bloc de code de 
son parent, la visibilit'e est la, et si ce parent est d'efini dans le bloc de code de son propre 
parent, la procedure imbriquee au niveau le plus bas peut voir jusqu'au sommet de la hi'er ar- 
chie. Vous devez memoriser ceci : vous pouvez toujours voir vers l'exterieur, mais jamais vers 
Vinterieur. 

En appliquant ces regies au Listing 3.20, nous pouvons tirer quelques conclusions : 

• Comme la variable C a ete creee dans la procedure Interieure, elle n'est visible que dans 
cette procedure. 

• Comme la variable B a ete definie dans la procedure Exterieure, elle est visible dans cette 
procedure, mais aussi dans la procedure Interieure, qui peut voir au-dessus d'elle (au 
niveau d'imbrication superieur si vous preferez). 

• Comme la variable A a ete definie dans le corps principal du programme, elle est visible 
pour toutes les procedures et fonctions du corps principal. C'est le parent de toutes les 
procedures enfant. En revanche, les variables des procedures enfant ne sont pas visibles 
pour le corps principal, car ce dernier ne peut regarder que plus "haut" , et pas plus "bas" . 

• Comme la variable D a ete definie dans la procedure UneAutre, elle n'est visible que dans 
Une Autre, puisque UneAutre ne contient pas de procedures enfant imbriquees. La variable 
A est visible dans UneAutre car c'est la variable de son parent. 

En plus de la notion de visibilite, vous devez prendre en consideration celle de portee, c'est-a- 
dire l'etendue de programme dans lequel il est valide d'utiliser une variable. La regie est simple. 
Une variable ne depasse pas le bloc dans lequel elle est definie. La portee de la variable C ne 
depasse pas la procedure Interieure. Elle n'a pas d'existence en dehors de cette procedure. Des 
affectations a la variable C effectuees en dehors de la procedure Interieure (dans la procedure 
Exterieure par exemple), vous vaudraient une erreur de compilation, indiquant que la variable 
C n'est pas definie (dans la procedure Exterieure). 

Nous venons de mettre en lumiere la difference qui existe entre des variables locales et globa- 
les. Les variables globales sont definies dans le corps du programme principal et sont visibles 
dans toute l'application. Les variables locales sont definies dans des procedures et des fonc- 
tions, et ne sont visibles que dans certaines portions de l'application, selon les divers degres 
d'imbrication de la procedure. 
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FoncNons 

Les procedures ne sont pas la seule structure a votre disposition en Pascal Objet. Les procedu- 
res jouent certes un role preponderant dans la programmation Delphi, mais elles ne peuvent 
repondre a toutes les exigences. Prenons un exemple. Imaginons que le monde ne soit rempli 
que de procedures. Essayer de faire un peu de calcul prendrait des proportions hallucinantes 
dans un tel monde. Si vous aviez une procedure pour elever au carre, elle ressemblerait a ceci : 

procedure Carre (Le_Nombre : Real; Var Le_Resultat) ; 
begin 

Le_Resultat := Le_Nombre * Le_Nombre; 
end; 

Pour utiliser cette procedure, vous l'appelleriez comme le montre le Listing 3.21 : 

Listing 3.21 : Exemple de programme n'utilisant PAS de fonction 
program ExempleFonction; 

Uses 
Forms; 

procedure Carre (LeNombre : Real; Var LeResultat : Real); 
begin 

LeResultat := LeNombre * LeNombre 
end; 

var 

EntreeUtilisateur , LaReponse : Real; 
begin 

Write ('Entrez le nombre a elever au carre :'); 
ReadLn (EntreeUtilisateur); 

Carre (EntreeUtilisateur, LaReponse); {La nous avons appele notre 
procedure} 

WriteLn (EntreeUtilisateur, 1 au carre egal 1 , LaReponse) 
ReadLn 
end . 
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Remarquez la presence du Var avant LeResultat dans la liste des parametres formels de 
intO l' a PP e l de fonction Carre. II indique que vous desirez effectuer un passage par reference, 
c'est-a-dire tramsmettre la variable et pas simplement une copie de son contenu. Des lors, si 
vous modifiez dans la procedure le contenu de la variable, cette modification sera repercut'ee 
dans le code appelant. 

Ce programme fonctionne correctement, mais vous etes oblige de creer une variable LaRepon- 
se, simplement pour contenir le resultat de la mise au carre, alors que vous n'avez besoin que 
d'afficher le resultat sitot le calcul fait. II existe une solution plus simple, qui utilise une fonc- 
tion. 

Une fonction est similaire a une procedure en ce sens que dans les deux cas, vous passez des 
parametres. La difference est qu'une fonction est concue pour ne renvoyer qu'une valeur. Rien 
de sensationnel jusqu'ici puisque vous avez deja cree des procedures qui elles aussi renvoyaient 
une unique valeur. La difference ici est que la fonction renvoie cette valeur unique dans le nom 
de la fonction lui-meme. Le nom de la fonction devient une variable temporaire qui stocke le 
resultat de la fonction pour le passer au code appelant. 

Prenons un exemple pour illustrer ce point. En Delphi 3, il existe une fonction Sqr() qui permet 
de calculer le carre d'un nombre. Le Listing 3.22 montre une utilisation de cette fonction. Nous 
ecrirons ensuite notre propre fonction. 

Listing 3.22 : Exemple de programme utilisant une fonction 
Program ExempleFonction2; 

Uses 
Forms ; 

var 

EntreeUtilisateur : Real; 
begin 

Write ('Entrez le nombre a elever au carre :'); 
ReadLn (EntreeUtilisateur); 

WriteLn (EntreeUtilisateur, 1 au carre egal ', Sqr(EntreeUtilisateur) ) 
end. 

Comme vous pouvez le voir, le Listing 4.23 utilise la fonction Sqr() et calcule le resultat de 
l'utilisateur dans la ligne qui affiche la reponse. Une procedure ne ferait pas l'affaire ici pour 
deux raisons. Vous ne disposez pas d'un endroit pour placer le resultat venant d'une procedure, 
et vous ne pouvez pas appeler une procedure a l'interieur d'une declaration d'appel a une autre 
procedure. Reecrivons la procedure Carre() pour en faire une fonction, et regardons les 
differences : 
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Function Carre (Entree : Real) : Real; 



begin 

Result := Entree * Entree 
end; 

Les differences entre l'ancienne procedure et cette fonction sont au nombre de deux. La pre- 
miere se trouve dans la ligne de definition de la fonction. Vous passez l'entree de l'utilisateur 
dans la fonction au moyen du parametre Entree. Vous renverrez le resultat de la fonction au 
moyen du nom de la fonction, qui lui sera associe, comme n'importe quelle autre variable. Le : 
Real qui se trouve a la fin de la definition de la fonction definit le type de la variable Result 
(resultat) de la fonction. Remarquer que dans la fonction elle-meme se trouve la ligne : 

Carre := Entree * Entree 

Pour que votre fonction puisse s'achever, vous devez affecter une valeur a la variable Result. 
Ce nom de variable special est utilise pour transmettre le resultat de votre fonction au code 
appelant. Vous devez definir Result comme egal a une valeur de type Real (souvenez-vous du : 
Real) avant que la fonction ne s'acheve. Ensuite, lorsque le controle revient au programme qui 
a appele la fonction, le nom de fonction Carre contient en fait le resultat de la fonction. Tout 
cela ne dure pas puisque le nom de fonction Carre ne reste une variable temporaire que dans la 
ligne de code qui a appele la fonction. 

Une fois cette ligne de code executee, le nom Carre ne contient plus de valeur et reference un 
appel de fonction qui necessite des parametres. Reecrivons le programme d'exemple pour voir 
la nature toute temporaire de Tapper de fonction (voir Listing 3.23). 

Listing 3.23 : Exemple de programme utilisant une fonction (3) 
J Program ExempleFonction3; 




Uses 



var 



begin 

Write ('Entrez le nombre a elever au carre :'); 



Forms ; 



EntreeUtilisateur 



Function Carre (Entree : Real) 



begin 



end; 



Carre := Entree * Entree 



Real; 



Real; 
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ReadLn (EntreeUtilisateur) ; 

WriteLn (EntreeUtilisateur, 1 au carre egal ', Carre(EntreeUtilisateur) ) ; 
{Si nous essayons d'afficher la valeur de Carre apres la ligne qui l'a 
appele nous provoquerons une erreur de compilation et le programme ne 
s'executera pas.} 

WriteLn ('Au cas ou vous regardiez ailleurs, la valeur du carre est 1 , 
Carre) 

end. 

Le deuxieme WriteLn du listing ci-avant ne sera pas compile. Le mot Carre ne comporte pas 
de valeur a ce moment et ne signifie plus que le nom d'une fonction. Le compilateur vous indi- 
que qu'il vous manque des parametres pour cet appel de fonction. Sans diminuer l'utilite des 
fonctions, cela limite un peu leur utilisation. Vous aurez l'occasion de rencontrer de nombreu- 
ses fonctions dans Delphi 3 . Les fonctions sont des outils tres precieux lorsqu'il s'agit de faire 
des calculs, du graphisme et d'autres choses encore. 

Unites 

Une des raisons pour lesquelles le genie logiciel a progresse si lentement dans les temps 
anciens de l'informatique (il y a bien 10 ans de cela), etait que chacun s'acharnait a reinventer 
la roue chaque fois qu'il fallait developper une nouvelle application. On ne compte plus le nom- 
bre de fois ou des programmeurs ont ecrit des routines de tri a bulles. Cependant, avec l'arrivee 
de nouveaux outils de developpement, une idee se fit lentement jour. 

La creation de l'une unite permit au programmeur d'ecrire et de compiler sa routine de tri a bul- 
les dans une unite de code. Cette unite pouvait ensuite etre reutilisee et distribute a d'autres 
developpeurs. Comme l'unite est compilee, les autres developpeurs peuvent voir le code sans 
voir la source et le secret des algorithmes est precieusement garde. 

Format d une unite 

L'unite est construite comme un programme principal Delphi. La forme generale d'une unite 
est la suivante : 

Unit LeNomlci; 

interface 
Uses .... 

const ... 
type ... 
var ... 

procedure ... 
function ... 
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I implementation 
Uses .... 
Label ... 
const ... 
type ... 
var ... 
procedure ... 
function ... 
initialization {facultatif} 
finalization {facultatif} 
end. {Fin de l'unite} 

La section interface de l'unite vient d'abord. C'est la que vous definissez les variables, constan- 
tes, types ou autres objets que vous souhaitez rendre disponibles au projet ou aux autres unites 
qui ont inclus dans leur declaration le nom de votre unite. Cela vous permet d'inclure des struc- 
tures predefinies qui aident le developpeur a utiliser votre unite. On place ensuite dans la section 
interface les en-tetes de toutes les procedures et fonctions mises en ceuvre dans l'unite. C'est de 
cette maniere que Delphi 3 sait ce qui est disponible pour l'application dans votre unite. 

Maintenant que vous avez rendu vos intentions publiques (dans la section interface), vous 
implementez dans la section adequate les fonctions et les procedures que vous avez decrites 
dans la section precedente. La, vous pouvez tranquillement donner la mesure de votre talent en 
ecrivant votre algorithme de chiffrement ultra-secret qui vous ouvrira les portes de la gloire (et 
de la prison en France, mais c'est une autre histoire). 

Dans la section d'implementation, vous placez les variables, constantes, etc. que les procedures 
et fonctions de cette section utiliseront. Vous pouvez egalement creer des procedures et des fonc- 
tions qui seront utilisees localement par les procedures et fonctions specifiees dans la section 
interface. Enfin, vous implementez ces fonctions et procedures decrites dans la section interface. 
La liste des parametres doit correspondre parfaitement, ou l'unite ne sera pas compilee. 

Deux autres sections de l'unite meritent toute votre attention. La premiere est la section initia- 
lization. Vous pouvez y definir des variables et autres, tout comme dans la section interface. 
Le probleme est que comme la section d'interface ne contient pas de zone d'executable, vous 
ne pouvez pas initialiser ces variables en leur affectant une valeur. La section d'initialisation 
vous permet de le faire. La, vous pouvez initialiser vos variables, structures d'enregistrement, 
variables de fichier et de maniere generate tout ce qui peut avoir une valeur initiale. Ceci vous 
permet de tout mettre en place. Vous pouvez egalement initialiser les variables dans le bloc 
begin... end qui se trouve a la fin de l'unite. Vous pouvez y definir des variables et autres, tout 
comme dans la section interface. Le probleme est que comme la section d'interface ne contient 
pas de zone d'executable, vous ne pouvez pas initialiser ces variables en leur affectant une 
valeur. La section d'initialisation vous permet de le faire. La, vous pouvez initialiser vos varia- 
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bles, structures d'enregistrement, variables de fichier et de maniere generale tout ce qui peut 
avoir une valeur initiale. Ceci vous permet de tout mettre en place. Vous pouvez egalement ini- 
tialiser les variables dans le bloc begin... end qui se trouve a la fin de l'unite. 

La section finalization est l'opposee de la section precedente. Cette section vous permet de faire 
un peu le menage avant de refermer l'application. Vous pouvez ainsi fermer des fichiers, desal- 
louer de la memoire et autres activites menageres. Une fois executee la section initialization de 
votre unite, le code de votre section finalization s'executera a coup sur avant la fermeture de 
l'application. Delphi 3 execute les sections de finalisation des unites qui ont ete utilisees dans 
l'ordre inverse de l'execution des sections d'initialisation. Si vous initialisez les unites X, Y puis 
Z, elles se refermeront dans cet ordre : Z, Y puis X. Ceci est necessaire si des unites contiennent 
d'autres unites dans leur declaration uses. En effet, dans ce cas les unites ainsi dependantes 
devront attendre que leurs sections de finalisation s'executent. 

Inffl ^ est ' m P ortant Q ue vous compreniez bien l'ordre dans lequel les differentes sections sont 
W|U executees dans une unite. Lorsque votre application demarre, la section d'initialisation 
commence son execution, dans l'ordre des noms d'unites quifigurent dans la declaration Uses 
du programme principal. A partir de la, le code des unites est execute comme s'il etait appel'e 
par votre programme principal. Lorsque Vutilisateur ferme votre application, la section de 
finalisation de chaque unite est appelee, dans l'ordre inverse de celui des unites qui figuraient 
dans les sections d'initialisation. 

Voici un exemple d'unite permettant d'effectuer deux operations mathematiques simples. Cette 
unite n'a pas beaucoup d'applications pratiques, mais elle illustre bien la structure et la fonction 
d'une unite. 

Unit Maths; 
interface 

function AjouterDeuxNombres (Un, Deux : Integer) : Integer; 
function SoustraireDeuxNombres (Un, Deux : Integer) : Integer; 
function MultiplierDeuxNombres (Un, Deux : Integer) : Integer; 

procedure PositiveKarma; 
implementation 

function AjouterDeuxNombres (Un, Deux : Integer) : Integer; 
begin 

AjouterDeuxNombres := Un + Deux 
end; 
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function SoustraireDeuxNombres (Un, Deux : Integer) : Integer; 



begin 

SoustraireDeuxNombres 
end; 



Un - Deux 



function MultiplierDeuxNombres (Un, Deux : Integer) : Integer; 
begin 

MultiplierDeuxNombres := Un * Deux 
end; 

procedure PositiveKarma; 
begin 

WriteLn('Tu peux le faire, les maths c''est de la rigolade. 1 ) 
end; 

end. {de 1' unite Maths} 

Cette unite simple montre bien la forme que prend une unite. Vous avez defini les fonctions et 
procedures qui sont disponibles pour l'utilisateur de l'unite de la section d'interface. Dans la 
section implementation, vous creez les elements que vous avez annonces dans la section 
d'interface. J'ai place la la procedure PositiveKarma en pensant a ceux d'entre vous qui ha'issent 
les maths. Vous verrez que Delphi 3 fait un usage forcene des unites. 

Pour appeler cette unite, il vous suffit de l'inclure dans la section Uses de votre programme 
principal. Le Listing 3.24 montre un exemple d'appel a notre unite Maths. 

Listing 3.24 : Exemple de programme utilisant des unites 
program ExempleMaths; 

uses 
Maths; 

var 

A, B : Integer; 



begin 
A := 1; 
B := 2; 

WriteLn ('La somme de ' , A, ' et 



B, ' est ', AjouterDeuxNombres(A,B) ) ; 
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Ce programme utilise l'une des fonctions de Maths, Aj outerDeuxNombres, afin de vous mon- 
trer comment utiliser une unite. Une fois l'unite ajoutee a votre projet, vous pouvez appeler tou- 
tes les fonctions qu'elle contient. Pour ajouter une unite a un projet, selectionnez Fichier I 
Utiliser Unite, ou bien passer par le Gestionnaire de projet et cliquer sur le bouton Ajouter. 
Vous en apprendrez plus a ce sujet au Jour 5. 

ReuNlisaNon 

Les concepts de reutilisation du logiciel et de bibliotheques de composants ont emerge ces der- 
nieres annees. L'unite est une extension naturelle de cette theorie de la reutilisation. En effet, 
une unite permet au developpeur de creer un ensemble de routines generales qu'il peut mettre 
de cote pour l'utiliser a sa guise par la suite. 

La declaration Uses vous permet d'inclure vos propres unites dans votre application. Delphi 3 
propose un ensemble d'unites standard qui se chargent de fonctions generales, telles que les E/S 
de fichiers, les formes, les graphismes, les boutons, et bien d'autres encore (une liste complete 
des unites proposees par Delphi figure dans l'aide en ligne). L'usage d'unites procure plusieurs 
avantages. Comme en grande partie les fonctionnalites d'une application peuvent etre divisees 
en plusieurs groupes ou zones, il semble logique d'adopter un modele de programmation qui 
suive ce concept. 

Les unites rendent egalement plus facile la phase de debogage. Si vous rencontrez une difficulty 
avec votre formule de maths, il vous suffit de consulter votre unite mathematique pour deboguer 
la fonction, au lieu de devoir fouiller dans la totalite de votre application pour denicher l'erreur. 
La capacite a fragmenter votre programme vous permet de regrouper fonctions et procedures 
dans des unites et ainsi de mieux organiser votre projet. Dans un projet de taille importante et 
ou de nombreuses personnes sont appliquees, vous pouvez meme designer un bibliothecaire de 
code charge de conserver les dernieres versions de vos unites et de les distribuer. 

DisrribuNon er securire 

Comme l'ecriture d'un livre, l'ecriture d'un logiciel consiste a creer quelque chose en ne partant de 
rien (ou presque). Cet effort de creation doit etre protege. Si vous decouvrez un algorithme de chif- 
frage revolutionnaire, vous ressentirez vite le besoin de proteger votre code, tout en ayant la possibi- 
lity de le vendre. Vous voila face a un dilemme : comment vendre votre code a d'autres developpeurs 
sans pour autant leur fournir le code source et risquer ainsi de reveler vos algorithmes ? 

Les unites sont un moyen parfait pour ceux qui desirent distribuer leur code sans pour autant 
l'exposer au piratage. Les unites Delphi peuvent etre compilees en fichiers binaires et distri- 
butes sous cette forme. Lorsqu'une unite est compilee, Delphi lui donne un suffixe .DCU. Cela 
indique qu'il s'agit d'une Unite Compilee Delphi (Delphi Compiled Unit en anglais). Vous pou- 
vez distribuer votre unite sous cette forme, et d'autres personnes pourront utiliser votre unite 
pour leurs applications (en l'incluant dans la declaration Uses), sans pour autant voir le code 
source. Ceci vous permet de developper votre code et de le commercialiser en toute securite. 
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Pour que des developpeurs puissent utiliser votre unite, ils doivent connaitre les fonctionnalites 
qu'elle propose. II est done necessaire que vous decriviez en detail ces fonctionnalites dans un 
document accompagnant l'unite. De nombreux developpeurs se contentent de copier la section 
interface de leur unite pour la distribuer comme documentation (en effet, puisque l'unite est 
compilee, la section interface n'est plus lisible). II existe un veritable marche pour les unites, 
les DLL et les VCL et vous pourriez tres bien y prendre pied un jour ou l'autre. 

// convient de pr'eciser toutefois que jusqu'a present, ce concept de distribution des unites ria 
pas toujours bien fonctionne lorsque les versions des produits changeaient. II est generale- 
ment necessaire de recompiler des unites pour chaque version de Pascal! Delphi. C'est pour 
cette raison que de nombreux programmeurs mettent a la disposition des acheteurs leur code 
source (moyennant finances bien stir). 

Developpemenr en equipe 

Un autre avantage de la fragmentation de votre projet en unites est la capacite d'affecter diffe- 
rentes taches aux developpeurs d'une equipe. Une fois l'application divisee en unites chargees 
des maths, du graphisme, des entree/sortie et ainsi de suite, vous pouvez affecter un deve- 
loppeur a chaque unite. Le specialiste des maths s'occupera de l'unite mathematique, le specia- 
liste des graphismes s'occupera de l'unite correspondante, et ainsi de suite. La plupart des 
applications deviennent trop grandes pour qu'il soit possible d'en confier le developpement a 
une seule personne (etant donnes les delais de plus en plus resserres). II est indispensable de 
trouver des moyens de partager la charge de travail sur plusieurs developpeurs et d'obtenir plus 
vite un produit, comme indique Figure 3.1 . 

Figure 3.1 Equipe de developpement 



Le concept 

de developpement en 

equipe. 
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Pointeurs 

Ne vous culpabilisez pas si vous n'etes pas devenu un expert des pointeurs a la fin de cette jour- 
nee. II faut de la pratique avant de bien les maitriser. 

Lorsque vous creez des structures de donnees en Delphi 3, de la memoire leur est allouee. Cette 
memoire est necessaire pour contenir les donnees de votre structure. La plupart des structures 
de donnees (tels les enregistrements et les tableaux) peuvent rapidement devenir tres grandes. 
C'est pour cette raison, entre autres, qu'il convient de n'allouer que la memoire que vous comp- 
tez effectivement utiliser. 

Une variable pointeur est capable de stocker l'adresse d'une structure de donnees (enregistre- 
ment ou tableau par exemple). Ceci revient a regarder quelque chose dans l'annuaire telepho- 
nique. Vous pouvez donner ce pointeur vers vos donnees au lieu des les donnees elles-memes 
a d'autres fonctions et procedures. Quel en est l'interet ? Pensez a une carte. Vous n'apportez 
pas tout le contenu du magasin a un voisin pour lui conseiller le magasin, vous vous contentez 
de lui donner l'adresse du magasin, ou son "pointeur". 

Les procedures font une grande utilisation des pointeurs. Vous utilisez des pointeurs chaque 
fois que vous faites un appel de fonction et utilisez le designateur var dans la declaration de 
procedure formelle. Lorsque vous passez des parametres en utilisant var, ce designateur passe 
en fait un pointeur vers les donnees de votre procedure. C'est la raison pour laquelle lorsque 
vous modifiez les donnees qui se trouvent dans une variable parametre var dans votre proce- 
dure, les donnees sont modifiees egalement en dehors de la procedure. Vous modifiez les don- 
nees exterieures directement, en utilisant ce "pointeur" vers la donnee. 

Cette facon de faire a un grand avantage. Si vous n'utilisez pas le designateur var dans la liste 
de parametres formels de votre appel de procedure, chaque fois que vous passez quelque chose 
a la procedure, Delphi 3 doit effectuer une copie locale des donnees pour les manipuler. Si vous 
n'utilisez pas var, vous declarez en fait "ne touche pas a mon original". Imaginez un peu la 
memoire necessaire a la copie d'un tableau contenant 10 000 enregistrements. Sans pointeurs, 
le prix a payer est bien lourd. 

Inffl H y a auss i un pri x a payer pour les pointeurs. Ces dernier s utilisent aussi des ressources 
"']" systeme. Pour referencer les donnees, Delphi doit a chaque fois de-referencer un pointeur. Au 
mieux, cela peut prendre deux ou trois fois plus de temps CPU qu'il n'est necessaire pour 
effectuer ['operation. La encore, la sagesse veut que Von n'utilise que ce dont on a besoin. 
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UMIiser des poinfeurs 

Pour utiliser un pointeur, vous devez d'abord le definir. Prenons un exemple simple de pointeur 
vers un nombre reel, comme le montre le Listing 3.25. 

Listing 3.25 : Exemple de programme utilisant un pointeur 

I program ExemplePointeur; 
Uses 
Forms ; 
type 
PointeurReel = "Real; 
var 
P : PointeurReel; 
begin 
New (P) ; 
P A := 21 .6; 
WriteLn (P~ :5:1); 
Dispose (P) 
ReadLn 
end . 

Vous voyez ici un exemple simple d'utilisation de pointeur. Vous commencez par creer un type 
appele PointeurReel. Pointeurreel est un pointeur vers un nombre reel. Le chapeau A veut dire 
"pointant vers". Une fois le pointeur defini, vous devez creer une variable de ce type. Vous 
creez done la variable P de type Pointeurreel. Vous disposez maintenant d'une variable qui est 
un pointeur vers un nombre reel. 

Vous devez commencer par allouer de la memoire a P. Pour l'instant, P est capable de pointer 
vers un nombre reel, mais il ne pointe encore sur rien. En utilisant l'appel de procedure New(), 
vous demandez a Delphi 3 d'affecter un bloc de memoire capable de contenir un nombre Real, 
et de placer cette adresse memoire dans P. P pointe maintenant vers un emplacement de 
memoire contenant un nombre reel. La ligne P A := 21 .6 doit se lire "Definissez l'emplacement 
sur lequel pointe P comme etant egal a 21.6". Ceci s'appelle dereferencer un pointeur. Autre- 
ment dit, vous prenez la valeur 21.6 et la placez dans l'emplacement de memoire sur lequel 
pointe P. 

Lorsque vous utilisez le WriteLn pour afficher la valeur de ce sur quoi pointe P, vous devez 
encore une fois utiliser le caret (le chapeau) pour dire "Affichez ce sur quoi P pointe, et forma- 
tez-le sur 5 chiffres avec un chiffre a droite de la virgule". Une fois que P ne vous sert plus a 
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rien, vous devez utiliser l'appel de procedure Dispose() pour liberer la memoire sur laquelle 
pointe P et pour la rendre au pool de memoire disponible. Vous terminez alors votre programme. 

Vous pouvez egalement utiliser des pointeurs pour pointer sur des objets plus complexes que 
de simples nombres reels. Dans le Listing 3.26, vous creez un enregistrement et utilisez un 
pointeur vers lui pour acceder a ses champs. 

Listing 3.26 : Exemple de programme utilisant des pointeurs (2) 
Program ExemplePointeur2; 

Uses 
Forms; 

type 

TypePersonne = RECORD 
Norn : String; 

Prenom : String; 

Age : Integer 

end; {PersonRecord} 

PointeurPersonne = A TypePersonne; 

var 

Person : PointeurPersonne; 

begin 
New (Person); 
Person'. Norn := "Smith"; 
Person' . Prenom := "James"; 
Person'. Age := 35; 

WriteLn ('He bien, ', Person' .Prenom, 1 ', Person'. Norn, ', vous avez ', 
Person'. Age, 1 ans. 1 ) ; 
Dispose (Person); 
ReadLn 
end. 

Ce programme ressemble beaucoup au precedent, la seule difference portant sur les types de 
donnees. 

Vous avez cree un type appele TypePersonne qui est un enregistrement comportant un nom, 
un prenom et un age. Ensuite, vous creez un type PointeurPersonne qui est un pointeur sur 
l'enregistrement que vous venez de creer. La creation de la variable Person vient ensuite. Cette 
variable est de type PointeurPersonne. Au debut de l'execution du programme principal, vous 
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passez par les memes phases que dans le programme ExemplePointeur. L'allocation de memoi- 
re est assuree par la commande New(). Vous placez des valeurs dans l'enregistrement sur 
lequel pointe Person en utilisant le A pour dereferencer le pointeur et montrer dans quel champ 
de l'enregistrement placer les donnees. Une fois les valeurs affectees a l'enregistrement, le 
resultat est affiche dans une chaine du type "James Smith, vous avez 35 ans". La commande 
Dispose() libere la memoire allouee a Person. 

En verite, Windows est rempli de pointeurs. Le plus souvent, les programmes s'echangent des 
donnees au moyen de pointeurs. Dans des langages tels que C++ les pointeurs sont a la base de 
tout. Nous n'avons fait qu'effleurer le sujet et nous pourrions consacrer un livre tout entier aux 
pointeurs. Lisez tout ce que vous pouvez trouver concernant les pointeurs et regardez les exem- 
ples. Delphi a fait de gros efforts pour cacher les pointeurs, mais il viendra un temps ou vous 
ne pourrez plus y couper, tant le gain de productivite peut devenir important dans certaines 
situations. 

Recapifulafif 

Vous devez maintenant connaitre les concepts necessaires au developpement de programmes 
modulaires. Nous avons parle du developpement en equipe et des avantages qu'il y avait a uti- 
liser des unites, des procedures et des fonctions. 

Atelier 

L'atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu de 
cette lecon. La section Questions - Reponses presente des questions qu'on se pose couramment 
et leurs reponses, la section Questionnaire vous pose des questions, dont vous trouverez les 
reponses en consultant 1' Annexe A, et vous mettrez en pratique dans les Exercices ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Pourquoi le Pascal Objet propose-t-il des commandes telles que Goto si on considere 
que leur usage trahit une mauvaise methode de programmation ? 

R La polemique concernant le bon usage de Goto n'a pas encore pris fin (et elle ne prendra 
sans doute jamais fin). Avant que tous, d'un commun accord, decident de s'en debarrasser, 
l'outil reste la, utilisable par qui veut. 

Q Qu'arriverait-il si une procedure renvoyait le controle a la ligne de code qui a appele 
la procedure et non a la ligne qui la suit ? 
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R Cela ne fonctionnerait pas. A chaque fois que la procedure finirait, elle renverrait le con- 
trole a une ligne de code qui rappellerait la procedure. 

Questionnaire 

1 . Combien de fois la declaration WriteLn() sera-t-elle executee dans l'exemple ci-apres ? 

I Program Questionnaire 4_1 ; 
var 
Compte, Compte2 : Integer; 
begin 
For Compte := 1 to 10 do 
For Compte2 := 1 to 10 do 
WriteLn ( 'Hello! ' ) ; 
end . 

2. Quelle instruction de boucle utiliserez-vous si vous souhaitez tester votre clause condi- 
tionnelle avant d'entrer dans la boucle ? 

3. Quelle est la difference fondamentale entre une procedure et une fonction ? 

4. En quoi est-il plus avantageux d'utiliser des pointeurs dans une application plutot que de 
transmettre les donnees elles-memes ? 

Exercices 

1. Ecrivez une application qui compte jusqu'a 42, affiche le nombre a mesure qu'il compte 
et utilise deux boucles For pour cela. 

2. Essayez d'ecrire une application comportant plusieurs unites. Pour vous habituer a la de- 
claration Uses, faites que votre application principale utilise une unite et que cette unite 
utilise elle-meme une autre unite. Du moment qu'elles sont compilees, ces unites peuvent 
etre aussi simples que vous le voulez. 

3. Ecrivez une procedure qui prenne plusieurs parametres, utilisant le passage par reference 
et par valeur. Faites des experiences pour voir comment la modification de l'ordre de 
transmission des parametres peut creer differents messages d'erreur de compilation. 
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La programmaMon orienfee objeT 



Nombreux sont ceux qui ont achete ce livre et decouvert Delphi (ou le Pascal Objet) et qui, 
d'autre part, ont peu d'experience en matiere de developpement de logiciel, et a plus forte rai- 
son, de genie logiciel. Ce n'est pas sans importance car pour apprendre a etre un bon informa- 
ticien, il ne suffit pas d'apprendre la syntaxe d'un langage particulier, tel que Delphi. 

Le genie logiciel ne se resume pas a la simple ecriture du code mais comporte d'autres facettes 
tout aussi importantes. Lors de cette journee, nous aborderons plusieurs notions qui peuvent ou 
non vous etre familieres, mais dont l'importance n'est pas a negliger. Ces notions comprennent 
la crise du logiciel, le cycle de vie du logiciel et le genie logiciel. 

Vous avez peut-etre envie de me repondre que tout ce qui vous importe, c'est d'apprendre Del- 
phi. Peut-etre bien, mais si vous souhaitez un jour gagner de l'argent en ecrivant vos propres 
logiciels, ou meme seulement faire partager vos creations, vos clients attendront de vous que : 

• Votre logiciel fonctionne immediatement. 

• Votre logiciel soit fait a temps . 

• Votre logiciel soit sans bogues. 

• Votre logiciel soit bon marche. 

Autant de raisons pour lire cette partie. Evoquons ensemble les problemes qui se posent 
aujourd'hui, les solutions potentielles a ces problemes, et de quelle maniere Delphi 3 peut met- 
tre en oeuvre ces solutions. 



Lo crise du logiciel 

La crise du logiciel dure depuis si longtemps que Ton a fini par penser qu'elle representait un 
etat normal. On ne programme des ordinateurs que depuis quelques decennies. Pourtant, et tout 
amateur d'informatique vous le dira, en deux ou trois ans la technologie fait des bonds extraor- 
dinaires. Les temps changent, la technologie change, mais pas les gens. Les methodes de pro- 
grammation ont tres peu evolue depuis les debuts de l'informatique. Cependant, assez 
recemment, on a pu assister a un bouleversement brutal de la doctrine dominante en matiere de 
programmation. 

Autrefois (avant 1990), lorsqu'un programmeur avait une tache a effectuer, il se plantait devant 
son clavier et commencait a coder. C'etait le bon vieux temps. En ce temps-la, si vous aviez 
quelque chose a faire, il vous suffisait de passer une ou deux nuits blanches devant votre clavier 
et le resultat etait la. C'etait l'epoque des programmes de 1000 lignes. C'etait l'epoque ou un 
simple individu pouvait pianoter un peu plus intelligemment que les autres et devenir million- 
naire. Bref, c'etait l'age d'or de la programmation. Mais toutes les bonnes choses ont une fin. 

Complexite du logiciel 

Les ordinateurs sont devenus plus sophistiques, et les utilisateurs aussi. La taille des taches 
confiees n'a cesse d'augmenter, comme a augmente par consequent le temps de codage. Puis, 
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on s'est apercu de quelque chose d'etrange. Passee une certaine taille de programme, le temps 
de codage s'averait beaucoup plus long que prevu (en se basant sur des programmes plus 
courts). Si un programme etait deux fois plus long qu'un autre, on supposait qu'il fallait un 
temps de codage double (on croyait que la fonction etait lineaire). En fait, cela prenait beau- 
coup, beaucoup plus de temps (comme illustre Figure 4.1). Signe de la profonde injustice de 
l'univers ou application de la loi de Murphy, on a du se rendre a l'evidence : lorsqu'un program- 
me atteint une certaine taille, le cerveau humain ne peut embrasser toute la complexite de 
l'application. La complexite etait done en cause et Ton n'y pouvait rien (rien directement, tout 
du moins). Cette triste constatation s'imposa vite. 



Figure 4.1 

Taille d'un logiciel et 
complexite associee. 




TAILLE 



Vous avez pu remarquer que les boutiques regorgent de logiciels tres complexes. Est-ce que 
cela veut dire que Ton a resolu ce probleme de complexite ? Oui et non... La complexite est 
semblable a l'ocean, indomptable et imbattable. Vous devez naviguer dans la complexite, pro- 
filer des periodes de calme et chercher abri dans un havre sur lorsque le temps se gate. A votre 
avis, combien de ces fabuleux logiciels effroyablement complexes sont totalement exempts de 
bogues ? Tres peu. L'existence du bogue vous rappelle que la complexite n'a pas ete battue. On 
trouve meme des bogues dans les programmes les plus simples. II faut un effort non negligea- 
ble pour debarrasser le plus petit des programmes de tous ses bogues. Imaginez un peu ce que 
5a doit etre dans un programme complexe. En fait, la solution consiste a ecrire des petits pro- 
grammes "sans bogues" et de les regrouper pour former un gros programme "sans bogues". 
Plus facile a dire qu'a faire, bien sur, mais cette approche modulaire nous permet de maitriser 
la complexite. Vous avez remarque les guillemets autour de "sans bogues". Un logiciel "sans 
boguess" est un peu comme de l'or "100 % pur" : ca n'existe pas. 
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Planifier 



II est clair que nous avons fini par nous rendre compte qu'il ne suffisait pas de s'asseoir et de 
se mettre a coder. II est devenu temps d'appliquer l'analyse scientifique a ce probleme, et de ne 
plus s'en remettre a l'inspiration. Le cycle de vie du logiciel et le genie logiciel nous ont permis 
de progresser. 



Cycle de vie du logiciel 

Le cycle de vie du logiciel correspond a une serie d'etapes a suivre, et a suivre dans l'ordre. 
Cette approche disciplinee permet au developpeur de creer un meilleur produit, mais aussi de 
passer moins de temps a assurer l'entretien de son produit. Ce n'est pas une panacee, mais un 
outil puissant. 

Le cycle de vie du logiciel est separe en six domaines principaux. Ces domaines sont repris 
Figure 4.2. En les lisant, vous verrez qu'il ne s'agit que de bon sens. Mais vous seriez surpris 
de voir le nombre de developpeurs qui sautent plusieurs etapes et commencent a coder imme- 
diatement, puis sautent egalement les etapes suivant le codage. Examinez chaque etape et 
essayez de comprendre ses implications. 



Figure 4.2 

Le cycle de vie 

du logiciel. Maintenance 
et Operation 



ay 

LU 
I 

o 
< 



Test 



Code 



Conception 
Analyse 



TEMPS 



Analyse 



Lors de la phase d'analyse du developpement, vous devez vous efforcer de mieux definir le pro- 
bleme a resoudre et decider si apres tout une solution logicielle est bien adaptee. De nombreu- 
ses choses peuvent etre resolues bien plus facilement avec une feuille de papier et un crayon 
qu'avec un logiciel. 
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Vous avez certainement vu des applications vous demandant une masse de travail bien trop 
importante pour les resultats obtenus. II faut s'assurer qu'une solution informatique resout le 
probleme au lieu d'y ajouter. 

Lors de cette phase d'analyse, vous devez egalement determiner le type de ressources dont vous 
aurez besoin pour mener le projet a terme. II se peut que seuls vous, votre PC et Delphi2 soient 
necessaires. Pour des projets plus importants, vous aurez peut-etre besoin de l'assistance d'autres 
developpeurs, de redacteurs techniques, etc. II n'est pas encore question de choisir un langage. 
En effet, on ne peut choisir un langage qu'une fois le probleme bien cerne et la solution concue. 
Apres quoi, on peut alors selectionner le langage le mieux adapte a la solution envisagee. 

Sur de gros projets, le resultat de cette phase d'analyse debouche generalement sur la creation 
de specifications systeme. Ces specifications permettent de definir le systeme dans son ensem- 
ble, en etablissant quelles seront les fonctions systeme qui devront etre effectuees. 

Lors de cette phase, on ajoute souvent quelques details specifiques demandes par l'utilisateur. 
Ces details sont pris en compte afin de lui eviter de se fourvoyer dans une impasse de develop- 
pement, et sont rarement lies a l'implementation en elle-meme. lis concernent plutot des remar- 
ques generates d'ergonomie dont on deduit l'approche correcte a utiliser pour l'integralite de 
l'analyse. 

Cahier des charges 

Dans cette phase, vous prenez les fonctions definies dans la phase d'analyse et determinez un 
cahier des charges detaille pour chacune d'entre elles. Les specifications systeme servent de 
base pour cette phase, et des specifications logicielles precises en sont le resultat. Quelles fonc- 
tions le logiciel doit-il accomplir ? Ici, vous ne concevez pas la solution complete, uniquement 
les fonctions du logiciel. 

A ce stade, vous pouvez commencer a penser aux fonctions en termes de declarations d'unites, 
de fonctions et de procedures Delphi. Si vous avez deja choisi votre langage, en utilisant ici la 
syntaxe de Delphi, vous creerez une documentation mieux integree a la solution et plus facile 
a modifier. 

Conception 

C'est dans cette phase que tous les details de la conception sont affines. Comme vos idees sont 
claires, suite a la phase du cahier des charges, vous pouvez passer a l'etape suivante. Elle con- 
siste a developper un design detaille de votre solution logicielle, comprenant une definition des 
relations entre les di verses unites et un flux procedural detaille. 

A mesure que vous progressez, vous devez definir et decrire la facon dont tout fonctionnera. 
Vous devez mettre au point des exemples d'ecran, la disposition des boutons, etc. 

II est important que vous compreniez que votre client ne connaitra pas tous les details de prime 
abord (un client sait rarement ce qu'il desire, il sait simplement qu'il desire). C'est un processus 
iteratif. II est important de communiquer avec les destinataires du logiciel, pour se mettre 
d'accord sur le projet. 
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Un des avantages a utiliser Delphi comme langage de developpement est que vous pouvez l'uti- 
liser lors de ces phases comme une sorte de langage de definition permettant de montrer la logi- 
que generale de votre application. Si vous etes un tant soit peut anglophone, vous pouvez 
presque comprendre ce qui se passe en lisant simplement le code. 



Codage 



Cette phase de developpement commence ici et ne se termine jamais... Vous continuerez a 
coder pendant tout le cycle de vie du logiciel. 

Si vous avez bien concu votre logiciel et correctement defini les interfaces des differents modu- 
les, le code devrait s'ecrire tout seul ou presque. 

Cette phase aboutit a deux resultats. Tout d'abord, le code lui-meme bien sur, mais egalement, 
presque aussi important, des specifications completes du logiciel decrivant le produit tel qu'il 
a ete realise. Ceci servira d'outil de test et servira de base pour le manuel de l'utilisateur. 

Tesf 

Le but de cette phase est de tester le produit tel qu'il a ete cree, et de verifier sa conformite au 
cahier des charges. C'est lors de cette phase que vous savez si vous avez reussi a faire de vos 
desks une realite. Chaque fonction de l'application doit renvoyer a une specification du cahier 
des charges. Si une fonction ne correspond a aucune specification, cette fonction n'a pas de rai- 
son d'etre. 

On effectue generalement les tests en deux temps. Tout d'abord on procede au test d'unites. 
Cette phase consiste a prendre separement chaque unite, a ecrire des pilotes pour chacune et a 
tester leur fonctionnalite et leur fiabilite. Ensuite vient le test ^integration. Dans cette phase, 
vous reunissez les unites deja testees et vous verifiez qu'elles se comportent ensemble confor- 
mement a vos attentes. 

Le test des logiciels est un art en soi. Si vous ecrivez une application simple, les tests pourront 
etre tout aussi simples. Dans le cas de programmes plus importants, les tests peuvent devenir 
tres lourds a mener a bien si vous les menez sans discernement. II existe de nombreux livres 
consacres exclusivement aux tests de logiciel. 



Maintenance operation 



Vous pensez peut-etre en avoir fini. Le produit a ete livre et vous etes soudain debarrasse d'un 
sacre poids. Pas si vite... Vous devez savoir que 30 % des efforts et de l'argent sont depenses 
dans cette nouvelle phase. Vous devez maintenant suivre le parcours de votre logiciel chez les 
clients, qui trouveront des fonctions non documentees (un euphemisme pour bogues) auxquel- 
les vous devrez remedier. Puis votre application prendra doucement le chemin de l'obsolescen- 
ce. II est important de garder a l'esprit que plus le cycle de vie d'un produit raccourcit, plus les 
coflts de maintenance baissent. II vous faudra par contre vous adapter a cette nouvelle vitesse 
d'evolution, qui impose l'ajout constant de nouvelles fonctionnalites a vos logiciels, ainsi que 
la redaction et la maintenance des documentations liees au produit. 
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Cela n'a rien de tres gai effectivement car il n'est pas aussi amusant de maintenir un logiciel 
que de l'ecrire, mais c'est indispensable. Comment le nouveau qui vient d'arriver pourra-t-il 
assurer la maintenance de votre application une fois que vous serez attele a un nouveau projet ? 

Toute la documentation, manuel de l'utilisateur, documents de conception, cahier des charges 
et rapports de tests aideront le nouveau venu dans sa tache. Faire correctement votre travail 
signifie aussi vous arranger pour que vous puissiez passer a autre chose. 

Efensuife ? 

Maintenant que nous avons evoque certaines des etapes necessaires a une approche methodi- 
que, nous devons parler du niveau superieur. Ce qui etait necessaire autrefois (et qui le reste 
aujourd'hui selon certains) etait une discipline de programmation, c'est-a-dire un ensemble de 
regies servant de guide au programmeur, et aidant a suivre le processus de conception et a l'affi- 
ner sans cesse avec de nouvelles regies permettant d'obtenir un environnement plus stable. 

genie logiciel 

Un ingenieur logiciel est tres different d'un programmeur. Un ingenieur logiciel discute avec 
le futur utilisateur et ecrit noir sur blanc les besoins de l'utilisateur. II ecrit ensuite noir sur blanc 
ce qui doit etre fait pour construire le logiciel. Apres tout cela seulement l'ingenieur logiciel 
commence a ecrire son code. 

Ce n'est peut-etre pas toujours passionnant et necessite souvent beaucoup de travail, mais cela 
permet souvent d'ecrire un code tres solide. II est bien stir beaucoup plus amusant de s'asseoir 
devant son ordinateur et de se mettre a bricoler du code, mais dans les gros systemes il est enco- 
re plus amusant d'avoir, au bout du compte, un logiciel qui fonctionne. Le genie logiciel est la 
version disciplined de la programmation. 

ObjecNfs du genie logiciel 

Si vous vous sentez pret a adopter cette demarche, vous devez vous fixer un but. Si vous ne 
savez pas ou vous allez, vous aurez du mal a faire quoi que ce soit. Le premier objectif est que 
le produit fini corresponde au cahier des charges. Mais c'est un but trop general que vous devez 
subdiviser en plusieurs objectifs plus limites, mais aussi plus faciles a realiser et a garder a 
l'esprit. 

N'oubliez pas que les choses changent constamment. Comme nous l'avons dit auparavant, 
votre application passera la majeure partie de son cycle de vie dans la phase de maintenance. 
II est done important que notre ensemble d'objectifs prenne en compte les changements. Les 
quatre objectifs du genie logiciel sont done la capacite de modification, l'efficacite, la fiabilite 
et la comprehensibilite. 
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Capacife de modificaNon 

Dans le cycle de vie de votre logiciel, celui-ci devra etre modifie a de nombreuses reprises. Ce 
peut etre a la suite de la decouverte d'un bogue par vous ou par un client, ou pour ajouter une 
fonction demandee apres coup par les utilisateurs. Dans tous les cas de figure, il est important 
que votre travail, qui resulte d'un processus de conception rigoureux, ne soit pas detruit si vous 
apportez la moindre modification. 

Vous devez pouvoir apporter des modifications a votre application sans endommager les fon- 
dations. II faut done controler les modifications, en changeant certaines parties de votre appli- 
cation sans alterer les autres. Ce n'est pas chose facile. De nombreux langages ne permettent 
pas de le faire correctement et reagissent tres mal a la moindre modification. 

Le Pascal Objet est quant a lui un langage tres lisible. II fournit egalement un environnement 
vous permettant de proceder facilement a des modifications. Les typages de chaines minimisent 
les risques d'erreurs. Tous ces facteurs font que cet environnement est parfaitement adapte a la 
capacite de modification. Lorsque vous effectuez une modification vous devez toujours penser 
a la repercuter dans votre documentation. Vous pouvez meme pousser le zele jusqu'a ajouter la 
nouvelle specification correspondante au cahier des charges, puis suivre cette specification dans 
votre document de conception, avant d'effectuer la modification dans le code lui-meme. Cette 
facon de faire, aussi fastidieuse soit-elle, augmentera la stabilite de votre application. 

Efficacife 

Ce principe est simple. Votre application doit utiliser de facon optimale les ressources dispo- 
nibles. A l'epoque des ordinateurs disposant de 64 ko, la memoire dont nous disposions etait 
tres limitee mais comme les systemes d' exploitation n'etaient pas multitache, ce peu de memoi- 
re vous appartenait entierement. 

Aujourd'hui, la plupart des applications doivent s'executer simultanement. C'est pourquoi il est 
important que votre application fasse attention aux ressources et interagisse correctement avec 
d'autres applications. Le termes ressources s'applique a la fois a des ressources temporelles et 
spatiales. Votre application peut avoir a executer certaines choses en un temps requis, si elle 
collecte des donnees evoluant rapidement ou doit reprendre des depeches d'agence. De plus, 
vous etes aussi limite par le temps puisque vous devez laissez des cycles CPU a d'autres. Votre 
application doit savoir partager ce temps avec d'autres. Si elle thesaurise les cycles CPU, regar- 
dez l'aide concernant la fonction Application . ProcessMessages ( ) . 

Deuxieme ressource precieuse : l'espace. Comme vous avez du le remarquer, les logiciels 
deviennent de plus en plus gros. La plupart d'entre eux sont maintenant fournis sur CD-ROM 
car il serait trop cofiteux d'expedier des lots de quarante disquettes. La encore, tachez de vous 
moderer et de ne prendre que ce dont vous avez besoin. 

Fiabilife 

C'est probablement l'objectif le plus important, tout particulierement si votre application se 
charge de taches importantes au sein d'une entreprise. Les applications qui s'executent pendant 
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de longues periodes de temps sans intervention humaine doivent etre stables et meme pouvoir 
recuperer automatiquement en cas de probleme. 

Le cout des erreurs est tel qu'il vous faut un logiciel aussi fiable que possible. Vous devez des 
le debut de la conception assurer la fiabilite de l'ensemble. II existe de nombreux moyens pour 
vous assurer de ne pas provoquer des messages de type depassement numerique ou enregis - 
trement invalide. L'aspect fortement type du Pascal Objet vous evite de nombreuses erreurs 
plus faciles a faire sous des langages plus "laxistes". Par ailleurs, en activant la verification 
d'intervalle, vous pouvez eviter d'autres problemes. En effet la verification d'intervalle vous 
permet de vous assurer que les valeurs que vous pensez envoyer a vos variables sont vraiment 
envoyees. Ceci permet lors de la phase de test de denicher bien des bogues. 

Comprehensibilife 

Cet objectif vient du monde la programmation orientee objet. Pour que votre application soit 
comprehensible, et done modifiable, elle doit etre simplifiee. Or, il n'est pas toujours evident 
de simplifier tous les mecanismes d'un systeme complexe. 

Une facon de remplir cet objectif consiste a reproduire autant que possible la realite dans les 
modeles de conception et d'implementation de votre application. Si les objets de votre applica- 
tion renvoient a des objets de la vie reelle, vous pouvez plus facilement comprendre les rela- 
tions entre vos objets virtuels. C'est la raison pour laquelle la programmation orientee objet est 
preferable aux techniques plus anciennes. 

La lisibilite est une autre facon de rendre votre code comprehensible. L'usage de bonnes 
methodes de programmation et de commentaires ajoute a la comprehensibilite. Les objets du 
code doivent etre facilement reperables. 

Principes du genie logiciel 

Les objectifs dont nous venons de parler sont applicables a n'importe quelle application. Mais 
comment remplir ces objectifs ? Vous devez definir un ensemble de principes (repris dans le 
Tableau 4.1) sur lesquels vous vous appuierez pour atteindre vos objectifs. 

Les sept principes du genie logiciel : 



1. 


Modularite. 


2. 


Localisation. 


3. 


Abstraction. 


4. 


Dissimulation de l'information. 


5. 


Confirmabilite. 


6. 


Uniformite. 


7. 


Completude. 
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Ces principes sont pris en charge dans la structure de classe de Delphi. Certains decoulent natu- 
rellement des classes, tandis que d'autres doivent etre suivis consciemment par le developpeur. 



La modularite et la localisation decoulent directement de la structure de classe. Les classes sont 
par essence modulaires, et la localisation suppose que les modules soient organises logique- 
ment, chaque module devant regrouper des fonctions proches. Si vous construisez votre code 
en ecrivant des petits modules autonomes, ceux-ci pourront facilement etre utilises dans 
d'autres projets. C'est le principe du Referentiel d'objets. 

Le Referentiel d'objets contient des objets qui peuvent etre utilises et reutilises a l'envi. En fai- 
sant Fichier/Nouveau dans Delphi, vous avez acces au travail effectue pour vous par de nom- 
breux autres programmeurs. La cle du succes ici reside dans la modularite et l'independance du 
code. 



L'abstraction et la dissimulation de l'information sont tres bien prises en charge par les classes 
Delphi. Les mots cle private et protected permettent deux niveaux de dissimulation des infor- 
mations concernant des objets en dehors d'une classe donnee. L'abstraction est mise en place 
par le biais de la dissimulation de l'information et par la nature interface/implementation des 
fichiers de classe. Vous ne laissez publique que la nature abstraite de la classe. Les details de 
l'implementation restent caches. 

Un exemple de ce principe est illustre par la facon dont vous travaillez avec des fichiers de tex- 
te en Delphi. Lorsque vous ouvrez un fichier, vous specifiez le fichier a ouvrir et le mode (le 
mode indique que vous ouvrez le fichier pour le lire ou pour y ecrire). Delphi ne vous demande 
pas que vous sachiez dans quel secteur du disque dur reside le fichier. Les details d'implemen- 
tation du systeme de fichier vous sont caches. Ceci vous permet de lire indifferemment des 
donnees provenant d'un disque dur, d'une disquette ou d'un CD-ROM, meme si la structure 
physique de chacun de ces supports est differente des autres. 



La confirmabilite est obtenue en combinant des verifications de type poussees et la construc- 
tion de modules testables. La verification des types permet au compilateur de confirmer qu'une 
variable est utilisee correctement. Le typage des chaines fait partie de Delphi. Les modules qui 
peuvent etre testes permettent au programmeur de tester logiquement chaque module indivi- 
duel. Souvenez-vous qu'il est bien plus facile de construire des petits programmes sans erreur. 
Tous les modules de codes doivent etre presentes au Referentiel de code, accompagnes de pro- 
grammes pilotes testant le module. La confirmabilite implique que vous puissiez subdiviser 
votre application en plusieurs modules testables. 



Modularise er localisation 



Abstraction et dissimulation de l informaMon 



Confirmabilite 





Uniforms ercomplerude 

Luniformite et la completude sont du ressort du programmeur. Un code est facile a lire et a 
entretenir s'il est ecrit et commente d'une maniere uniforme. Les modules qui sont complets des 
leur premiere redaction n'ont pas besoin d'etre reecrits ou completes lorsqu'un nouveau besoin 
se fait sentir. La completude, tout comme un code sans erreur, est tres dure a obtenir. Mais si 
vous tendez vers cet objectif, vous pouvez rendre plus adaptable votre code et minimiser la 
necessite d'y apporter des modifications par la suite. Les modifications sont le meilleur moyen 
d'ajouter des bogues dans votre application. 

Tous ces principes du Genie logiciel ont pour but de combattre la complexite. Lorsque vous 
construisez vos classes, gardez ces principes a l'esprit, vous et votre code auront tout a y 
gagner. Et pensez egalement a ces principes quand vous examinez les classes de Delphi. II arri- 
vera souvent que vous vous demandiez pourquoi Borland s'est comporte si etrangement dans 
l'une de ses classes. Vous pouvez generalement trouver la reponse dans les principes decrits 
plus haut. La bibliotheque de classes de Delphi est un bon exemple de genie logiciel. 

flccouplemenf et cohesion 

Un des avantages de la methode de programmation modulaire est que vous pouvez extraire un 
module de code d'une application pour le placer dans une autre. Supposez que vous ayez ecrit 
une unite Delphi effectuant du chiffrement de donnees. Vous lui donnez un nom de fichier et 
le module lit ce fichier, le chiffre a l'aide d'une cle, et reecrit le fichier sur le disque. 

En ecrivant cette unite de code sous forme d'entite independante, vous pourrez l'utiliser dans 
de nombreuses applications en vous contentant d'appeler les fonctions de l'unite et de traiter les 
resultats. 

Le terme de cohesion signifie que les fonctions internes de vos modules de code doivent etre 
tres integrees. La deuxieme notion est celle d'accouplement. Vos modules doivent etre tres peu 
accouples a leurs voisins (en d'autres termes, ils doivent etre tres peu dependants les uns des 
autres, voire pas du tout). Si votre unite depend trop d'autres unites, elle ne pourra pas etre por- 
tee vers une autre application sans devoir emporter de nombreux bagages avec elle. Votre code 
doit done etre tres coherent et tres peu dependant. Ce n'est pas impossible, mais demande du 
travail. 

Conception orientee objet 

Si vous regardez un peu le monde reel, vous verrez que notre langage est forme de deux com- 
posants principaux : les noms (objets) et les verbes (operations). Pour que nos applications col- 
lent au plus pres a la realite, notre langage informatique doit adopter cette configuration. La 
plupart des langages component de nombreuses operations, mais disposent de tres peu de 



LE PR*)GRAMMEUR 



La programmaMon orienfee objeT 



"noms" pour decrire les objets. Et meme si certains langages sont capables de traiter des objets, 
ces objets sont plats, c'est-a-dire incapables d'heriter des attributs de leurs ancetres. Cela ne 
constitue pas une bonne modelisation du monde reel. Dans le monde reel les choses sont en 
relief, et nous avons done besoin d'un langage qui reflete cet aspect des choses. Delphi offre un 
ensemble tres complet de noms permettant de decrire des objets. 

Comment definir un objet ? Ce mot est galvaude. Selon Grady Booch (le maitre de l'Oriente 
objet), un objet est : "une entite qui a un etat, c'est-a-dire une valeur... le comportement d'un 
objet est defini par les actions qui l'affectent et vice versa... chaque objet est en fait une instance 
d'une classe d'objets". C'est un debut. 

L'objectif de la conception objet est que chaque module du systeme represente un objet ou une 
classe d'objets du monde reel. Grady Booch ajoute : "Un programme qui modelise la realite 
peut done etre considere comme un ensemble d'objets qui interagissent les uns avec les autres" . 
Vous pouvez concevoir un systeme qui reprend cette approche orientee objet en suivant ces 
etapes : 

1. Identifiez les objets et leurs attributs. 

2. Identifiez les operations qui affectent chaque objet, et les operations que chaque objet doit 
initier. 

3. Etablissez la visibility de chaque objet par rapport aux autres. 

4. Etablissez l'interface de chaque objet. 

5. Implementez chaque objet. 



Objets 



Lorsque vous identifiez les objets, vous devez penser en termes de noms. Dans un systeme de 
controle de chauffage, vous avez une source de chaleur, un detecteur de temperature, un ther- 
mostat et d'autres elements. Ces noms deviennent les elements principaux de votre systeme. 
Les objets peuvent etre tres grands et constitues d'objets plus petits. Ainsi, une voiture est un 
grand objet qui comprend des objets plus petits, comme le moteur, la transmission et la carros- 
serie. 



Operations 



Vous devez identifier les operations qu'effectue ou que subit chacun des objets definis lors de 
la phase precedente. Ainsi, un thermostat peut etre regie, un solenoide peut etre active et un 
detecteur de temperature peut effectuer une mesure de temperature. Vous devez egalement 
definir quelles seront les operations qui affecteront un objet en premier. Une automobile bien 
concue demarrera toute seule en passant du point mort a la premiere. 

Visibilite 

Ici, vous definissez la topologie. Vous avez besoin de tracer une carte indiquant quels objets 
sont vus par quels autres. Dans notre exemple de chauffage, le detecteur de temperature doit 
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pouvoir etre vu par le thermostat, mais le detecteur de temperature n'a pas besoin de voir le 
thermostat. 

Interfaces 

Ici, vous definissez la facon dont vos objets s'interfaceront avec les autres. Cette etape est tres 
importante pour concevoir un systeme reellement modulaire. Vous devez definir avec preci- 
sion la maniere dont les autres objets communiqueront avec votre objet. Vous pouvez utiliser 
des declarations d'appel de fonction ou de procedure pour definir l'interface de votre objet. 
Vous pouvez faire ceci si, et seulement si, le langage que vous utilisez est facilement lisible 
(c'est le cas pour Delphi). 

Implement les objets 

Dans cette etape, vous implementez chaque objet dans votre solution. Vous devez done ecrire 
le code des interfaces de chaque objet. Vous n'etes pas force d'ecrire le code de l'objet tout de 
suite. Si votre objet est complexe (s'il est compose d'objets plus petits), vous devez decomposer 
l'objets en ces divers constituants. Pour chacun de ces objets constituants, vous devez reprendre 
les etapes precedentes pour determiner leurs operations, leur visibilite et leurs interfaces. Une 
fois que vous avez cree des squelettes fonctionnels pourvus d'interfaces bien definies, le coda- 
ge du corps lui-meme est une formalite. 

En suivant ces etapes, vous pouvez concevoir un systeme bien pense et a la cohesion assuree. 
Comme le Pascal Objet vous permet de coder en suivant cette methode, tout est pour le mieux. 

ProgrommoMon orientee objet [POO] 

La programmation orientee objet existe depuis des annees et a pointe le bout de son nez dans 
des langages tels que Ada, SmallTalk, C++, Borland Pascal et dans Delphi. Le terme "d'objet" 
a meme acquis une connotation magique qui fait tomber en pamoison le plus imperturbable des 
responsables informatiques . 

La realite est plus terre a terre. On peut trouver des codes orientes objet plus execrables que le 
pire des codes ecrits en Pascal standard. II existe aussi des codes orientes objet de toute beaute. 
La programmation orientee objet n'est qu'un outil. 

Plusieurs composants du Pascal Objet le rendent oriente objet. Examinons ensemble la defini- 
tion de base des classes et quelques autres petits plus qui donnent au Pascal Objet son nom. 

Classes 

Delphi comporte un mot reserve, class, qui vous permet de definir un objet. Lorsque vous creez 
un nouveau projet dans Delphi, vous pouvez trouver dans les declarations de unitl une decla- 
ration de classe pour la fiche elle-meme : 
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type 

TForml = class (TForm) 
public 

{ Declarations publiques } 
protected 

{ Declarations protegees } 
private 

{ Declarations privees } 
end; 

C'est ainsi que vous definissez un objet. Dans la section d'interface, utilisez votre nom de type 
(TForml ) puis la classe de base dont il derive. Tous les objets doivent deriver de TOb j ect ou de 
l'un de ses objets enfant. 

La partie publique est reservee aux declarations accessibles au monde exterieure. Dans la partie 
privee, vous pouvez declarer des variables, des procedures et des fonctions qui ne seront utili- 
sees que dans votre classe. La partie protegee vous donne tous les avantages des deux parties 
precedentes. Les composants qui sont declares proteges ne sont accessibles qu'aux descendants 
du type declarant. 

Comme dans le cas des composants prives, vous pouvez cacher les details d'implementation a 
l'utilisateur. Cependant, a la difference des composants prives, les composants proteges restent 
disponibles aux programmeurs qui souhaitent deriver de nouveaux objets a partir de vos objets 
sans etre pour autant obliges de declarer les objets derives dans cette meme unite. 

Creez votre propre objet de donnees. Stockez le code de votre carte bancaire dans l'objet. La 
declaration sera : 

Secret = class (TObj ect ) 
private 

FCode : Integer; 

end; 



Vous pouvez remarquer que vous n'avez pas seulement declare une classe appelee Secret, 
mais que vous avez egalement une variable de donnees privees contenant la valeur du code lui- 
meme. Nous avons appele cette variable FCode. 



Proprietes 



Le mot reserve property vous permet de declarer des proprietes. Une definition de propriete 
dans une classe declare un attribut, pourvu d'un nom, pour les objets de la classe et les actions 
associees a la lecture et a l'ecriture de l'attribut. L'attribut que vous avez cree est FCode. Vous 
ne souhaitez pas permettre au programmeur de modifier directement cette valeur. II faut pour 
cela effectuer une entree et valider cette entree pour s'assurer que la modification est correcte. 
On retrouve la le principe de dissimulation de l'information developpe plus haut. 
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Utilisez une propriete appelee Code qui servira d' intermediate lors des acces a votre valeur. 
Lorsque vous appelez la propriete Code, vous obtenez la valeur de FCode. La difference ici est 
que la variable FCode est protegee de toute modification exterieure. II n'est possible de modifier 
sa valeur que par l'intermediaire de la procedure SetCode. 

Secret = class (TObj ect) 
private 

FCode : Integer; 
protected 

procedure SetCode (Nouveau_code : Integer); 
property Code : Integer read FCode write SetCode; 
end; 

Vous pouvez maintenant demander la valeur du code sans le modifier. Les selecteurs sont un 
element necessaire du modele d'objet. Si vous ne pouvez pas voir les donnees d'un objet, il est 
sans utilite. 

Heritage 

L'heritage est une des fonctions les plus puissantes d'un langage orient'e objet tel que Delphi. II 
permet a des classes de descendants de beneficier des propri'et'es de lews ancetres. lis heritent 
des champs, des propri'et'es, des methodes et des evenements de leur classe ancetre. En plus de 
disposer des attributs de ses ancetres, la classe enfant peut leur ajouter ses propres elements. 
Ceci vous permet de prendre une classe comportant la plupart des elements fondamentaux 
dont vous avez besoin, et d'ajouter de nouveaux objets qui adaptent cette classe a vos besoins. 

Si vous compilez un projet, meme nouveau, vous pouvez ensuite aller dans Voir/Scruteur pour 
visualiser la totalite de la base d'objets de Delphi (voir Figure 4.3). Le volet Inspecteur (fenetre 
gauche) vous permet de choisir une classe particuliere de votre projet. Vous pouvez voir grace 
aux arborescences quelles classes sont ancetres des objets que vous avez selectionnes. En uti- 
lisant l'onglet Heritage, vous pouvez voir tous les ancetres et descendants de la classe selec- 
tionnee dans le volet Inspecteur. 
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Figure 43 

Le Scruteur d'objets 
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Recapifulatif 

La programmation orientee objet n'est peut-etre pas la panacee, mais elle peut nous rendre bien 
des services. La philosophic qui la sous-tend encourage l'organisation. Nous vous avons mon- 
tre comment Borland a adopte l'Objet et vous permet de faire de meme. 

Lors de cette journee, nous avons evoque les principes et les objectifs du genie logiciel. Vous 
avez pu voir le cycle de vie du logiciel et vous avez, sans doute, mieux compris les stades de 
revolution de votre projet. Enfin, nous avons decouvert rapidement le monde des objets. 

Cette lecon ne fait qu'effleurer des sujets qui meriteraient plus ample developpement. Si cette 
partie a eveille votre curiosite vous irez de vous-meme a la recherche de plus de renseigne- 
ments. 

Je vous invite a vous interesser egalement a d'autres techniques de developpement logiciel. La 
technique de cycle de vie parallele recursif, et d'autres, permettent d'aborder sous differents 
aspects les problemes de developpement logiciel. Utilisez la technique qui vous est la plus 
naturelle. 

Lors du cinquieme jour, vous apprendrez comment gerer une application Delphi du point de 
vue des fichiers : quels sont les fichiers qui composent une application Delphi, et comment uti- 
liser l'environnement de Delphi 3 pour organiser vos projets. 



Rtelier 

L'atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu de 
cette le?on. La section Questions - Reponses vous donne des questions qu'on pose couram- 
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ment, ainsi que leur reponse, la section Questionnaire vous pose des questions, dont vous trou- 
verez les reponses en consultant 1' Annexe A, et les Exercices vous permettent de mettre en 
pratique ce que vous venez d'apprendre. Tentez dans la mesure du possible de vous appliquer 
a chacune des trois sections avant de passer a la suite. 

Questions - Reponses 

Q Peut-on appliquer les principes du genie logiciel avec un langage non oriente objet ? 

R Oui, tout est possible. Mais si votre langage ne permet pas facilement d'etablir une cor- 
respondance entre ses structures et le monde reel, il s'averera difficile d'appliquer les prin- 
cipes cites plus haut. La maintenance du code posera elle aussi probleme, car le code cree 
sera bien moins intuitif . 

Q Peut-on faire de la programmation orientee objet sans faire de conception orientee 
objet? 

R Bien sur, mais la encore c'est la coherence de la demarche qui fait le succes d'un projet. 
II vaut mieux choisir : tout ou rien (tout de preference...). 

Questionnaire 

1 . Quels sont les objectifs du Genie logiciel ? 

2. De quelle maniere le Pascal Objet assure-t-il la dissimulation de l'information ? 

3. En quoi le principe d'heritage aide le Pascal Objet a modeliser l'environnement 
Windows ? 

Exercice 

1. Creez votre propre objet appele Personne et contenant des informations concernant une 
personne (nom, adresse, numero de telephone par exemple). Creez ensuite une propriete 
qui recupere les valeurs de Personne et une methode qui modifie les valeurs de l'objet 
Personne. 
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Lors de cette journee, nous examinerons les differents elements qui composent une application 
Delphi, ou plutot, un projet Delphi. En bout de chaine, l'application Delphi sera un executable 
ou un groupe d'executables et de DLL. Si vous avez utilise des controles ActiveX, ces derniers 
seront integres eux aussi. Les controles ActiveX sont des controles OLE que vous pouvez ecri- 
re en Delphi, en C++ et dans quelques autres langages, et utiliser dans vos projets. Ces contro- 
les ne sont pas pour autant integres a votre executable. Vous en apprendrez plus au sujet des 
controles ActiveX dans le Chapitre 13, "Creer des Composants Visuels". Pour le moment, ce 
qui nous interesse vraiment est de savoir quels sont precisement les fichiers, fiches, formes, 
unites, composants, ressources, etc. qui sont constants par vous ou par Delphi. 



Composition d une application Delphi 

A premiere vue, un programme simple semble n'etre compose que d'un fichier de projet et 
d'une unite. En realite, d'autres fichiers sont crees pour vous en coulisse a mesure que vous tra- 
vaillez sur votre programme. Pourquoi se soucier des fichiers crees par Delphi ? Imaginez un 
peu votre tete si vous effaciez par megarde un fichier indispensable a l'application critique sur 
laquelle vous vous echinez depuis des semaines... Dans tous les cas de figure, il n'est jamais 
inutile de bien comprendre ce qui compose un projet Delphi et de savoir d'ou viennent tous ces 
fichiers supplementaires que vous n'avez pas crees, et ce qu'ils font. 

Cette partie aborde plusieurs sujets importants, qui pour certains meriteraient qu'on leur con- 
sacre une journee entiere. Mais nous ne ferons que tracer les grandes lignes d'un projet Delphi. 
Si vous avez besoin de plus de details concernant un sujet particulier, vous pouvez vous repor- 
ter a l'aide en ligne, aux manuels Delphi, ou a d'autres lecons de ce livre. Cette section se pro- 
pose de vous donner une vue d'ensemble, facilement assimilable. 

Une fois que vous saurez ce qui constitue un projet Delphi, vous serez a meme de gerer des 
projets. L'EDI de Delphi comprend un Gestionnaire de projet qui vous assiste dans cette tache. 
Cependant, la gestion de projet ne se limite pas a l'utilisation d'un menu. Si vous desirez un 
projet organise et bien gere, vous devez penser a definir une structure de repertoires apte a stac- 
ker votre code, en utilisant des noms appropries pour les fichiers, les fiches, les composants et 
les variables. La meilleure methode consiste a vous organiser des le debut et a vous tenir a cette 
organisation jusqu'a l'achevement du projet. 

Projete 

Un projet Delphi est constitue de fiches, d'unites, de parametres d'options, de ressources, etc. 
Toutes ces informations resident dans des fichiers. La plupart de ces fichiers sont crees par Del- 
phi a mesure que vous construisez votre application. Les ressources telles que les bitmap, les 
icones, etc. se trouvent dans des fichiers provenant de sources tierces ou sont creees avec les 
nombreux outils et editeurs de ressources dont vous disposez. De plus, des fichiers sont egale- 
ment crees par le compilateur. Jetons un bref coup d'ceil sur ces fichiers. 
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Un projet Delphi est constitue defiches, d'unites, de parametres d'option, de ressources, etc. 
Les fichiers suivants sont crees par Delphi a mesure que vous concevez votre application : 

• Le fichier projet (.dpr). Ce fichier stocke des informations concernant les fiches et les 
unites. Le code d'initialisation se trouve aussi la. 

• Le fichier d'unites (.pas). Ce fichier stocke du code. Certaines unites sont associees a des 
formes, d'autres se contentent de stacker des fonctions et des procedures. La plupart des 
fonctions et procedures de Delphi se trouvent dans des unites. 

• Fichier de fiches (.dfm). Ce fichier binaire est cree par Delphi pour stocker des informa- 
tions concernant vos fiches. A chaque fiche correspond un fichier Unit (.pas). Ainsi, a 
mafiche.pas est associe un fichier mafiche.dfm. 

• Fichier d'options de projet (.dfo). Les parametres d'option du projet sont stockes dans ce 
fichier. 

• Fichiers d'informations de paquet (.drf). Ce sont des fichiers binaires utilises par Delphi 
pour la gestion des paquets. 

• Fichier de ressources (.res). Ce fichier binaire contient une icone utilisee par le projet. Ce 
fichier ne doit pas etre cree ou modifie par l'utilisateur. Delphi met a jour ou recree cons- 
tamment ce fichier. 

• Fichiers de sauvegarde (.~dp, .~df, .~pa). Ce sont des fichiers de sauvegarde pour les 
fichiers de projet, de fiches et d'unites, respectivement. 

Les fichiers suivants sont crees par le compilateur. 

• Fichier executable (.exe). Cest le fichier executable de votre application. II s'agit d'un 
fichier executable independant qui n'a besoin de rien d'autre que lui-meme, sauf si vous 
utilisez des bibliotheques contenues dans des DLL, VBX ou autres. 

• Fichier d'objet unite (.dcu). Ce fichier est la version compilee des fichiers d'unites (.pas) et 
sera lie dans le fichier d'executable final. 

• Bibliotheque de liaison dynamique (ou DLL) (.dll). Ce fichier est cree si vous concevez 
vos propres DLL. 

Enfin, voici d'autres fichiers Windows qui peuvent etre utilises avec Delphi. 

• Fichiers d'aide (.hip). Ce sont des fichiers d'aide Windows standard qui peuvent etre 
utilises avec votre application. 

• Fichiers graphiques ou d'images (.wmf, .bmp, .ico). Ces fichiers sont frequemment utilises 
dans les applications Windows pour leur donner un aspect agreable et convivial. 

Le fichier de projet (Apr) lui-meme contient en fait du code Pascal Objet et constitue la partie 
principale de votre application qui lance les choses lorsque vous executez votre application. 
Ce qui est amusant, c'est que vous pouvez construire une application Delphi sans jamais etre 
oblige de voir ce fichier. II est cree et modifie automatiquement par Delphi a mesure que votre 
application se construit. Le nom que vous donnez a votre fichier de projet sera aussi celui de 
votre fichier executable. Le code ci-apres montre a quoi ressemblerait un fichier de projet si 
vous commenciez un projet sans changer les noms des fichiers ou des fiches. 
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program Projectl 

uses 

Forms, 

Unitl in 1 UNIT1 . PAS ' {Forml}; 



{$R *.RES} 



fltte 



Info 
ntion 



begin 

Application. CreateForm(TForm, Forml ) ; 
Application. Run(Form1 ) ; 
end. 

Le mot program a la premiere ligne indique a Delphi qu'il s'agit du code du programme prin- 
cipal. Program sera remplace par library (bibliotheque) si vous construisez une DLL. 

Ce fichier est g'er'e automatiquement par Delphi. II n'est pas recommande de modifier un 
fichier de projet, a moins de vouloir 'ecrire une DLL ou defaire de la programmation avancee. 

Cependant, vous pouvez si vous le desirez voir le code source du projet en selectionnant Voir I 
Source du projet. Vous en apprendrez plus a ce sujet au Jour 6. 



Fiches 

Le mieux, dans un programme Windows, c'est bien la fiche. Avant de commencer a ecrire des 
programmes Windows, nous programmions surtout des applications DOS en C. C est un tres 
bon et tres puissant langage, mais il est loin d'etre facile ou souple des qu'il s'agit de s'atteler a 
la programmation Windows. Nous avons alors suivi des cours de C++, puis des cours de pro- 
grammation Windows, et nous avons commence a programmer en C/C++. II nous fallait des 
heures pour creer une simple fiche comportant un bouton, et plus d'heures encore pour com- 
prendre ce que nous venions de faire et comment fonctionnait le code. La quantite de code 
source necessaire a la creation d'une simple fenetre en C est gigantesque. 

En C++, les choses sont un peu plus faciles si vous utilisez un kit de developpement, comme 
OWL (Object Windows Library) de Borland ou MFC (Microsoft Foundation Class) de Micro- 
soft, mais vous avez tout de meme besoin d'une solide connaissance de la programmation 
orientee objet (voir le Jour 4 a ce sujet) et du langage lui-meme pour savoir ce que vous faites 
et ce que vous pouvez faire. Meme les compilateurs C++ les plus recents ne proposent pas la 
programmation visuelle a laquelle excelle Delphi. Delphi donne la possibilite de creer de vrais 
programmes Windows qui detronent certaines applications developpees dans d'autres environ- 
nements visuels. Les programmes Delphi tourneront a des vitesses proches de celles des pro- 
grammes C++. Delphi se charge de la plus grosse partie du travail et vous laisse vous consacrer 
a la partie de code la plus specifique a votre application. 
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Comme vous le savez, un programme Windows est constitue d'une fenetre ou d'un ensemble de 
fenetres, appelees fiches dans Delphi. Lorsque vous demarrez Delphi, il cr'ee automatique- 
ment unefiche a votre usage. Les fiches accueillent vos contrbles, composants, etc. 

L'application Delphi (comme du reste la plupart des applications Windows) est centree autour 
de la fiche. Bien que d'autres programmes puissent utiliser le concept de fenetres ou de fiches, 
pour qu'une application soit entierement conforme a l'esprit de Microsoft Windows, elle doit 
respecter les specifications de Microsoft dans sa disposition et la structure de son aspect. Les 
informations concernant les fiches Delphi sont stockees dans deux fichiers : les fichiers .dfm 
et .pas. Le fichier .dfm contient en fait des informations sur l'apparence, la taille, l'emplacement 
de votre fiche. Vous n'avez pas besoin de vous preoccuper de ce fichier, Delphi s'en charge, 
mais il n'est pas inutile que vous sachiez quelle est sa fonction. 

Le code de la fiche et le code des controles qu'elle contient sont stockes dans le fichier .pas, 
aussi appele unite. C'est le fichier sur lequel vous passez le plus de temps lorsque vous ecrivez 
une application Delphi. Chaque fois que vous ajoutez un gestionnaire d'evenements pour une 
fiche, ou que vous double-cliquez sur un controle pour y ajouter du code, le fichier .pas est mis 
a jour et Delphi place le curseur a l'emplacement adequat, pour que vous completiez ou modi- 
fiiez votre code. Lorsque vous ajoutez d'autres fiches, elles possedent elles aussi leurs propres 
fichiers .dfmet .pas. 

Une autre chose a savoir concernant les fiches est qu'elles ont des proprietes. Ces proprietes 
peuvent etre definies pour controler l'aspect et le comportement de la fiche. Grace a ces pro- 
prietes, vous pouvez modifier la couleur, la taille, l'emplacement de la fiche, indiquer si elle est 
centree, placee a un endroit precis, visible, invisible, etc. Une forme comporte aussi un certain 
nombre de gestionnaires d'evenements ( segments de code s'executant lorsque des evenements 
specifiques lies a la fiche surviennent). Vous pouvez inclure des gestionnaires d'evenements 
pour des evenements tels qu'un clic de souris ou un redimensionnement de fiche. 

Nous avons pratiquement tout dit des fichiers qui composent un projet Delphi. Pour la plupart 
d'entre eux, ces fichiers seront synchronises par Delphi lorsque vous procederez a vos mises a 
jour. II est recommande de toujour s utiliser Delphi pour changer le nom des fichiers ou pour 
les mettre a jour, afin d'eviter que les fichiers ne soient de synchronise s . Si vous passez outre, 
vous risquez de provoquer des erreurs lors du chargement ou de la compilation de vos 
programmes . Autrement dit, si vous cliquez sur un composant avant de le supprimer, laissez 
Delphi supprimer lui-meme le code associ'e. Ne le supprimez pas vous-meme dans Vediteur, 
Delphi se charge tres bien defaire le menage. 

Unites 

On compte trois types d'unites : les unites associees a des fiches (elles sont les plus courantes), 
les fichiers d'unites qui stockent les fonctions et procedures, et les fichiers d'unites permettant 
de construire des composants. 

Les fichiers d'unites sont des fichiers de code source comportant Vextension .pas. En 
travaillant avec Delphi, vous utiliserez sans cesse des unites. 



LE PR*)GRAMMEUR 




Examinons ensemble une unite simple associee a une fiche (voir Listing 5 . 1 ) . Le nom de l'unite 
figure a la premiere ligne qui suit le mot unit. Au dessous de l'en-tete unit ce trouve la partie 
interface qui contient les clauses uses, type et var. Enfin, la partie implementation contient 
les fonctions et procedures de vos controles (les gestionnaires d'evenements), de meme que vos 
propres fonctions, procedures, et de maniere generale tout le code qui sera utilise dans l'unite. 
La partie Implementation peut egalement contenir une clause uses. 

Listing 5.1 : Unitel 
unit Unitel ; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; 
type 

TForml = class(TForm) 

procedure FormCreate (Sender : TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .FormCreate(Sender: TObject); 
begin 

end; 
end. 



Le code ci-avant, accompagne du code du fichier de projet, suffit pour creer un executable Del- 
phi qui ouvre une fenetre. Le programme ne fera pas grand-chose de plus, mais c'est un pro- 
gramme Windows fonctionnel dans sa forme la plus simple. Ce code est le code cree par defaut 
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par Delphi lorsque vous commencez un nouveau projet. II ne se compilera pas si vous le tapez 
vous-meme dans l'editeur de code sans creer de nouveau projet. 

Regardez les noms qui figurent dans la clause uses. Ce sont les noms d'autres unites. Si vous 
decidez d'ecrire une serie de fonctions et de procedures utiles, vous pouvez creer votre propre 
unite, y placer tous vos utilitaires, et compiler cette unite pour en faire usage ulterieurement. 
Chaque fois que vous souhaitez utiliser votre unite faite maison, il vous suffit d'ajouter son nom 
dans la clause uses. Examinons ensemble les differentes parties qui composent l'unite du 
Listing 5.1. 

• L'en-tete de l'unite. Un en-tete d'unite identifie le code comme une unite, et il est suivi du 
nom, et de celui du fichier de l'unite, dont l'extension sera .pas. 

• interface. Cette clause marque le debut de la partie interface de l'unite, dans laquelle sont 
declares variables, types, procedures, etc. La partie interface determine ce qui dans cette 
unite est disponible pour les autres unites et parties du programme. La partie interface 
s'acheve pour laisser la place a la partie implementation. 

• uses. La clause uses indique au compilateur quelles sont les bibliotheques de fonctions et 
de procedures qui doivent etre compilees dans l'executable final. Delphi en inclut certaines 
automatiquement. Si vous ecrivez votre propre unite, vous devez vous souvenir d'en 
inclure le nom dans la clause uses lorsque vous avez besoin des fonctions qu'elle contient. 

• type. La partie declaration de type permet de creer les types definis par l'utilisateur. Ces 
types peuvent ensuite etre utilises pour definir des variables. 

Les specificateurs de visibility suivent la clause type dans la partie interface (voir Listing 5 . 
1). Les specificateurs suivants sont utilises pour controler la visibilite d'un objet pour 
d'autres programmes ou objets. 

• Private. Les declarations dans cette section sont traitees comme publiques dans le 
module, mais resteront inconnues et inaccessibles en dehors de l'unite. 

• Public. Les declarations placees dans cette partie sont visibles et accessibles en dehors de 
l'unite. 

Les deux specificateurs suivants sont utilises pour la creation de composants (ils ne sont pas 
necessaires dans le Listing 5.1, et nous les traiterons en detail au Jour 13). Nous les men- 
tionnons ici par souci d'exhaustivite. 

• Published. Utilise pour creer des composants. Les proprietes publiees sont affichees dans 
l'lnspecteur d'objets pour vous permettre de les modifier au cours de la conception. 

• Protected. Un composant. Les champs, methodes et proprietes declares comme protegees 
sont accessibles aux descendants (dont nous parlerons au Jour 4) du type declare (les types 
ont ete decrits au Jour 3). 

Les quatre specificateurs (private, public, protected et published) font partie de la defi- 
nition de classe . 
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• var. Utilise pour declarer les variables et les variables des objets. Dans une unite de fiche, 
var est utilise dans la partie interface (Delphi place cette declaration pour vous) pour 
declarer la fiche comme instance de l'objet TForm. Var est egalement utilise pour declarer 
les variables dans la partie d'implementation ainsi que dans les procedures et les fonctions. 

• implementation. C'est la que toutes les fonctions et procedures declarees dans la partie 
interface seront placees. Toute declaration faite dans cette partie est privee pour l'unite (elle 
n'est done pas disponible pour les autres unites). Vous pouvez cependant ajouter une clause 
uses dans la section implementation afin d'avoir acces a d'autres unites. 

• {$R *.DFM}. Dans une unite de fiche, Delphi insere l'entree $R *.DFM a votre place. 
Cette entree est tres importante car elle lie la forme a son fichier .dfm dont nous avons 
parle tout a l'heure. Pour vous eviter des problemes, ne retirez pas cette entree de votre 
programme, 

Le bloc de code suivant s'execute lorsque votre fiche est creee. C'est la que vous devez placer 
le code de demarrage qui doit etre execute lorsque la fiche commence a se charger. Pour creer 
cette procedure, utilisez l'lnspecteur d'objets pour visualiser le menu Evenements de la fiche, 
puis double-cliquez sur l'evenement OnCreate. L'lnspecteur d'objets est decrit en detail au 
Jour 8. 

procedure TForml .FormCreate(Sender: TObject); 
begin 

end; 

N'oubliez bien stir pas d'ajouter le end. et remarquez le point qui le suit. Cela signifie qu'il s'agit 
de la fin de l'unite. 

end . 

Enfin, vous pouvez eventuellement placer deux autres parties dans votre unite. Reportez-vous 
a l'aide en ligne pour en savoir plus a ce sujet. 

• initialization La partie d'initialisation est utilisee pour inclure le code permettant 
d'initaliser et de preparer l'execution de votre unite. 

• f inalization La partie de finalisation vous permet de faire un peu de menage avant que 
votre unite ne s'acheve completement. 

Ici s'acheve notre examen d'une unite associee a une fiche. II est important que les en-tetes, les 
clauses et le reste se trouvent en ordre correct. Delphi se charge pour une bonne partie de tout 
cela puisqu'il cree l'unite et le code a mesure que vous apportez des modifications a la fiche. II 
vous suffit d'ajouter votre code a la section adequate. Nous ne parlerons pas ici des deux autres 
types d'unites, les unites associees a un composant et les unites qui stockent les fonctions et les 
procedures. L'unite qui stocke les fonctions et les procedures est tres similaire a une unite de 
fiche qui ne comporterait pas de declarations concernant les fiches. Pour plus de details a ce 
sujet, consultez les manuels ou l'aide en ligne. 
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Bibliotheque des composants visuels [VCL] 

La bibliotheque des composants visuels (VCL) est constituee d'une riche selection d'objets 
ecrits en Pascal Objet Delphi pour servir de controles (ou composants) dans les fiches Delphi. 
Ces composants prets a l'emploi utilisent l'API de Windows et vous permettent d'interagir avec 
Windows sans connaitre grand-chose du fonctionnement sous-jacent des API. II existe deux 
types fondamentaux de composants : visibles et invisibles. Les composants visibles sont places 
et programmes pour l'utilisateur. Les composants invisibles donnent un controle ou une inter- 
face de programmation speciale a l'usage du programmeur. Un timer est un exemple de com- 
posant invisible tandis que la boite d'edition est un exemple de composant visible. 

Les differentes categories de composants comprennent les boutons, les boites de listes, les 
libelles, les boites d'edition, les composants sensibles aux donnees, les timers, les boites a ima- 
ges, les boites de selection, et bien d'autres encore. Vous apprendrez a connaitre et a apprecier 
ces composants car ils forment les blocs de construction de votre application Delphi. Chacun 
de ces composants est associe a un code parfois consequent qui assure son fonctionnement, et 
vous n'avez pas a ecrire ce code. II vous suffit de placer les composants sur la fiche pour qu'ils 
soient prets a l'emploi. Les composants ont des proprietes, des evenements et des methodes qui 
permettent au programmeur de les utiliser et de controler leur comportement. Nous traiterons 
de la VCL plus en detail au Jour 8. 

Composants flcNveX facuiraNfs 

Un controle ActiveX est un controle ou un composant Windows 32 bits, base sur OLE et pret 
a l'emploi, qui peut etre utilise par Delphi 3 et par tout autre langage prenant en charge 
ActiveX. La plupart du temps, les controles ActiveX sont developpes par des programmeurs 
ou editeurs independants , et cre'es en C++, mais Delphi, comme vous le verrez au Jour 13, 
permet de cr'eer des controles ActiveX. 

Delphi 3 prend en charge les controles ActiveX. C'est une bonne et une mauvaise chose. 
L'avantage est qu'il existe sur le marche des myriades de controles ActiveX prets a l'emploi. 
Vous pouvez trouver un ActiveX pour n'importe quel usage, des onglets d'agenda aux contro- 
les de communications dotes de toutes les fonctions imaginables. L'inconvenient des ActiveX 
est qu'ils ne sont pas compiles dans votre executable, et que vous devez en consequence les 
fournir avec votre application. II est important de toujours garder a l'esprit que, lorsque vous 
avez vraiment besoin d'un ActiveX, si vous trouvez celui qui fonctionne avec Delphi et repond 
a vos besoins, n'hesitez pas. La demarche conseillee passe cependant par l'utilisation de com- 
posants Delphi. Petit a petit, le nombre de composants Delphi proposes augmentera et vous 
n'aurez plus besoin d' ActiveX. 

Les controles ActiveX sont les nouveaux venus dans le petit monde de la reutilisabilite des 
composants. Ils sont reconnus par la grande majorite des environnements graphiques de deve- 
loppement, et peuvent etre utilises sur l'lnternet et dans des applications Web. Les controles 
ActiveX remplacent les controles OCX de Delphi 2. Vous en apprendrez plus a ce sujet au 
Jou 13. 
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Codes de procedures, de fonch'ons et de gesNonnaires 
d'evenemente crees par ruh'lisareur 

Les procedures, les fonctions et les gestionnaires d'evenements crees par l'utilisateur forment 
une partie importante de votre application. A mesure que vous construisez votre application, 
vous creez des fiches utilisant les composants, mais vous avez besoin a un moment ou a un 
autre de tout lier ensemble au moyen de votre propre code. Tous ces composants sont sans 
grande utilite si vous ne disposez pas d'un moyen pour y acceder afin d'obtenir des informa- 
tions, ou pour leur indiquer ce qu'ils doivent faire. Le Pascal Objet qui sous-tend Delphi vous 
propose une large gamme d'outils pour construire vos programmes. De plus, vous ressentirez 
vite le besoin d'ecrire vos propres routines en Pascal Objet. 

Ressources graphiques 

II ne faut pas oublier ce qui fait tout le charme d'un programme : les graphismes. Vous ne pou- 
vez construire une application un tant soit peu agreable sans y faire figurer quelques graphis- 
mes. Delphi est fourni avec quelques icones et bitmap, mais vous ne tarderez pas a commencer 
votre propre collection. Lorsque vous choisissez une icone pour votre programme, Delphi la 
stocke dans le fichier .res. Les icones ne sont pas cependant les seules ressources utilisees par 
un programme Delphi. Les curseurs, les bitmap et les metafichiers Windows (.wmf) sont ega- 
lement des ressources. 

Tous ces objets deviennent partie integrante de votre executable, mais ce sont a l'origine des 
ressources exterieures a votre code source. Vous choisissez generalement les ressources que 
vous desirez en definissant des proprietes dans un composant ou en specifiant un nom de 
fichier. Ainsi, le composant charge le bitmap, l'icone ou tout autre graphique. Le graphique est 
ensuite charge dans le projet, ou il sera pret a l'emploi lorsque vous selectionnerez Executer ou 
Compiler. 



Organiser son projet Delphi 

Maintenant que vous savez de quoi sont constitues les projets Delphi, il est temps de penser a 
la fagon de les organiser et de les gerer. Vous pouvez fort bien travailler sur de petits program- 
mes ou projets simples sans trop vous soucier de gestion de projet, mais si vous n'y prenez pas 
garde, vous risquez de supprimer ou d'ecraser des fichiers indispensables. II est aussi tres facile 
de ne plus tres bien savoir si un fichier appartient a un projet ou a un autre, pour peu que vous 
ne soyez pas organise. C'est pourquoi, dans le reste de cette lecon, nous allons voir ensemble 
comment prendre de bonnes habitudes d' organisation et s'y tenir. Cela ne demande pas beau- 
coup d'efforts, mais vous gagnerez du temps et vous epargnerez du travail si vous savez par- 
faitement ou se trouvent tous les fichiers de votre projet quand vous voulez travailler sur 
certains d'entre eux, en supprimer, en sauvegarder, et plus generalement, les manipuler. 
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Creer des repertoires disNncrs 



Commencons par le plus simple. II est bien de creer un repertoire source sous le repertoire du 
compilateur. Sur notre ordinateur, ce repertoire est C:\program files\Borland\Delphi 3.0\sour- 
ce. En aval du repertoire source, nous creons en general un repertoire pour chacun de nos pro- 
jets. Cela permet de trouver ou de sauvegarder un projet plus facilement, et cela garantit 
egalement que les fichiers ne seront pas modifies accidentellement. Supposez qu'un de vos pro- 
jets utilise une unite appelee mainmenu.pas et qu'un autre projet soit copie dans le meme reper- 
toire. Ce projet possede lui aussi un mainmenu.pas. Oui, vous avez devine, le mainmenu.pas 
initial est perdu. Observez done cette structure de repertoire : 

C:\PR0GRAM F I LES \ BORLAND \ DELPHI 3.0\ 



Si vous mettez en place une structure de ce type, les projets ont peu de chance d'entrer en col- 
lision. Lorsque vous selectionnez Fichier Ouvrir ou Fichier Enregistrer sous dans le menu 
Fichier de Delphi, le repertoire que vous avez selectionne s'affiche. Un autre avantage de cette 
methode est que vous savez toujours ou vont vos fichiers et vos executables mis a jour (a sup- 
poser que vous ne vous soyez pas place entre temps dans le mauvais repertoire ou que vous 
n'ayez pas demande a Delphi d'enregistrer les fichiers ailleurs). Cette structure fait de la sau- 
vegarde un jeu d'enfants. Vous pouvez utiliser l'Explorateur Windows, le Gestionnaire de 
fichier ou un utilitaire de sauvegarde pour effectuer une sauvegarde de C:\program 
files\borland\Delphi 3.0\source et de tous ses repertoires. 



Une autre bonne habitude a prendre pour mieux vous organiser (et pour savoir ce que sont vos 
fichiers source Delphi d'un simple coup d'ceil) consiste a utiliser une convention de nommage 
pour vos noms de fichiers. Autrement dit, n'utilisez pas les noms fournis par defaut, tels que 
projectl.dpr et unitl.pas. La meilleure maniere de ne pas prendre de mauvaises habitudes est 
sans doute de faire immediatement Projet Enregistrer sous lorsque vous demarrez un nouveau 
projet. Donnez aux fichiers unitl.pas et projectl.pas de nouveaux noms lorsqu'il vous en est 
fait la demande. Bien entendu, chaque fois que vous ajoutez une fiche, vous devez lui donner 
un nouveau nom lorsque vous l'enregistrez. Toutefois, si vous nommez toutes les fiches lors- 
que vous commencez, vous pouvez de temps en temps enregistrer le projet sans devoir vous 
occuper de noms de fichiers et vous beneficierez ainsi des avantages que nous venons d'evo- 
quer. Si vous ne faites pas cela, imaginez un peu le casse-tete quand vous reviendrez 6 mois 
plus tard sur votre source et essaierez de deviner ce que peuvent bien faire unitl.pas et unit2. 
pas dans le projet projectl.dpr... 




S0URCE\ 



PR0JET1 
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Conventions de nommage 
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Applications. Fichiers et GesNonnaire de projeTs 




En fait, une bonne convention de nommage devrait s'appliquer non seulement a vos fichiers, 
mais aussi aux fiches, aux composants et aux variables que vous utilisez dans votre application. 
On est facilement tente d'utiliser les noms par defaut donnes aux fiches et aux composants au 
fur et a mesure de la conception. Cependant, une fois que vous avez donne aux fichiers des 
noms uniques, vous pouvez quand meme vous retrouver avec un projet ingerable s'il est de 
taille importante. Imaginez votre projet, dans lequel figurent FORM1 , FORM2, FORM3, cha- 
cune avec son lot de BUTTON1 , BUTTON2, BUTTON3... Vous verrez souvent des exemples 
de ce genre de code, y compris dans ce livre. Quand il s'agit d'une seule fiche ne comportant 
que quelques composants, ce n'est pas trop grave. Mais si votre projet prend de l'ampleur, vous 
finirez par perdre du temps a regarder a l'interieur du code pour voir ce que fait tel ou tel com- 
posant ou une fiche. En prenant l'habitude de donner des noms descriptifs (et uniques) a vos 
fichiers, fiches, composants, etc., vous gagnerez du temps et vous epargnerez des frustrations. 

Pour mieux me faire comprendre, nous allons comparer deux listings. Le premier est un listing 
(Listing 5 .2) qui cree une fiche a l'ecran chargee de prendre le nom d'un utilisateur. Toutes les 
donnees par defaut pour les noms de fichiers, les titres et les proprietes de nom ont ete modi- 
fiers pour etre plus descriptives . Le second, le Listing 5.3, reprend le meme code mais n'utilise 
que les noms par defaut affectes par Delphi lors de la creation de l'unite. 

ii.l. Les noms de fichier doivent suivre les regies de longueur et de caracteres autorises du 
liUIC systeme d' exploitation auquel I'application est destinee (Windows 95 ou Windows NT par 

exemple). Les titres ont une taille maximale de 255 caracteres et doivent etre des chalnes 
\ Pascal valides. Les noms ont une taille maximale de 63 caracteres et doivent suivre les regies 

qui s'appliquent aux identificateurs Pascal (pour plus de details sur les identificateurs, 

reportez-vous a I'aide en ligne). 

Listing 5.2 : Lirenom 
unit Lirenom; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs 
type 

TEntreeNomUtilisateur = class(TForm) 
Bouton_EntreeNom: TButton; 
Edit_EntreeNom: TEdit; 
procedure FormCreate(Sender: TObject); 
procedure Bouton_EntreeNomClick (Sender : TObject); 
procedure Edit_EntreeNomChange (Sender: TObject); 
private 

{ Declarations publiques } 
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public 

{ Declarations privees } 
end; 

var 

EntreeNomUtilisateur : TEntreeNomUtilisateur ; 
implementation 
{$R * . DFM} 

procedure TEntreeNomUtilisateur. FormCreate(Sender: TObject); 
begin 

end; 

procedure TEntreeNomUtilisateur. Bouton_EntreeNomClick(Sender: TObject) ; 
begin 

end; 

procedure TEntreeNomUtilisateur . Edit_EntreeNomChange (Sender : TObject) ; 
begin 

end; 
end . 

Voyons maintenant un code identique, a ceci pres que tous les noms par defaut ont ete conser- 
ves tels quels (Listing 5.3). 

Listing 5.3 : Unitl (avec les noms par defaut) 
unit Unitl ; 
interface 
uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs; 



type 
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TForml = class(TForm) 
Buttonl : TButton; 
Editl : TEdit; 

procedure FormCreate (Sender: TObject); 

procedure Button1Click(Sender: TObject); 

procedure Edit1Change(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .FormCreate(Sender: TObject); 
begin 

end; 

procedure TForml .Button1Click(Sender: TObject); 
begin 

end; 

procedure TForml .Edit1Change(Sender: TObject); 
begin 

end; 
end. 



Le Listing 5 .2 est bien plus facile a suivre car les noms decrivent avec precision la nature et la 
fonction de chaque objet. Prenons Bouton_EntreeNom, il est clair qu'il s'agit d'un bouton cense 
prendre un nom. Alors que Buttonl ... Ces conventions de nommage fixees, vous etes pare pour 
passer au Gestionnaire de projet afin d'apprendre a conduire un projet Delphi. 
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Exemple de projef 



Nous allons constmire un petit projet dans son integralite. A mesure que nous progresserons, 
vous apprendrez a mettre en pratique les notions que nous avons presentees au debut de cette 
journee. Vous decouvrirez egalement le Gestionnaire de projet et d'autres fonctionnalites de 
Delphi qu'il vous est necessaire de connaitre pour travailler sur des projets. Vous allez creer 
une application Delphi simple qui comporte deux fiches interagissant l'une avec l'autre. 

Pour bien demarrer, mettons en place une structure de repertoire bien organisee. 

Commencez par creer les fichiers de projet : 

1 . Creez un repertoire source en aval du repertoire de Delphi (si ce repertoire source n'existe 
pas deja), C:\program files\borland\Delphi 3.0\source par exemple. 

2. Creez un repertoire dans lequel vous allez stacker votre projet. Appelons-le CauseFiche 
(C:\program files\borland\Delphi 3.0\source\causefiche). Si vous vous demandez la rai- 
son de ce nom, elle vient du fait que dans notre application, une fiche parlera a l'autre, ou 
plus precisement, elle mettra a jour les informations d'une autre fiche. 

3. Si Delphi ne tourne pas deja, lancez-le. Creez un nouveau projet en faisant Fichier/Nou- 
veau, selectionnez l'icone Application dans la boite de dialogue Nouveaux elements, puis 
cliquez sur OK (voir Figure 5.1). 

Figure 5.1 

Boite de dialogue 
Nouveaux elements avec 
l'icone Application en 
surbrillance . 




4. Cliquez sur l'icone Fiche ou selectionnez Fichier I Nouvelle fiche afin d'ajouter une se- 
conde fiche au projet. 

5. Maintenant, vous devez modifier certaines des proprietes de la fiche et des ses compo- 
sants, toujours dans un souci d'organisation. Utilisez l'lnspecteur d'objets pour modifier 
la propriete caption (titre) pour qu'elle devienne Fiche d'entree, et la propriete name en 
Fiche d'entree. 

6. A l'aide de l'lnspecteur d'objets, changez le nom du titre de la nouvelle fiche en Fiche de 
sortie et le nom en Fiche de sortie egalement (le titre correspond a la propriete caption, 
et le nom a la propriete name). Cette fiche est destinee a recevoir la sortie provenant de la 
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fiche d'entree. Les donnees seront transferees vers cette fiche apres entree des donnees et 
appui sur le bouton d'envoi. 

7 . Enregistrez la fiche, en changeant unitl .pas pour un autre nom, comme indique Figure 5 .3 : 

C: \ program files \borland\ Delphi 3.0\source\causefiche\ sortie. pas 

Cette fiche sera la fiche de saisie destinee a demander des informations a l'utilisateur. En- 
registrez ensuite Unit2 sous le nom sortie . pas. 



Figure 5.2 

L' option de menu 
Fichier I Enregistrer 
projet sous. 




application 
fiche 

>au module de donnees 



Enregistrer 
Enregistrer. 



lout enregistrer 
Fermer 
Tout termer 



Utiliser unite... 
Ajouter au projet... 
Supprimer du projet. 




Figure 53 

La botte de dialogue 
Enregistrer sous. 



Norn : |Unit1.pas Entegistre7~| 

|Unites Delphi ['pas) ~z\ Annulei | 

Aide | 



8. Pour enregistrer le fichier projet, selectionnez Fichier I Enregistrer projet sous (cf. 
Figure 5.2). Dans la boite de dialogue qui apparait alors (voir la Figure 5.4), selectionnez 
le repertoire et le nom de fichier afin d'enregistrer le fichier de projet sous : 

C:\program f iles\borland\Delphi 3.0\source\causefiche\causefi- 
che.dpr 
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Figure 5.4 

La boite de dialogue 
Enregistrer projet sous. 
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A present, construisez la fiche en procedant comme suit : 

1 . Ajoutez une boite d'edition a chacune des fiches ainsi qu'un bouton sur la fiche d'entree 
(les onglets et composants de la VCL sont traites en detail au Jour 8). Ensuite, a l'aide de 
l'lnspecteur d'objets, effacez le contenu de la propriete text dans chacune des deux boites 
d'edition. 

2. Donnez a la boite d'edition de la fiche d'entree le nom TexteEntree, et a celle de la fiche 
de sortie le nom TexteSortie. Definissez le titre du bouton de la fiche d'entree comme 
"Envoi" et definissez sa propriete de nom comme EnvoyerTexte. 

3. Pour vous assurer que les deux fiches seront visibles, vous devez utiliser l'lnspecteur 
d'objets pour modifier la propriete visible de chacune des fiches ajoutees (a l'exception 
de la premiere fiche que vous creez lorsque vous demarrez un nouveau projet) en True 
(Vraie). 

4. Ajoutons maintenant une ligne de code au bouton, afin de rendre notre programme fonc- 
tionnel. Double-cliquez sur le bouton Envoi et ajoutez cette ligne de code : 

FicheSortie . TexteSortie . Text : =FicheEnt ree . TexteEntree . Text ; 

Si tout s'est bien passe, vous devriez etre en mesure de lancer le programme et de le tester en 
procedant selon les etapes suivantes : 

1. Cliquez sur l'icone Executer ou appuyez sur F9. Le message suivant apparait dans une 
boite de dialogue : 

8 La fiche ' FicheEntree 1 reference la fiche 'FicheSortie' declaree dans 
l'unite 'Entree' 
qui n'est pas dans la liste USES, voulez-vous l'ajouter? 

4. Cliquez sur le bouton Oui. 

5. Cliquez sur l'icone Tout Enregistrer, ou selectionnez Fichier I Tout enregistrer. Le code 
necessaire est ajoute automatiquement. 

6. Relancez le programme (cliquez sur l'icone Executer ou appuyez sur F9). Vos fiches de- 
vraient apparaitre a l'ecran. 

7 . Testez le programme en saisissant du texte dans la zone d'edition de la fiche de saisie , puis 
en cliquant sur le bouton Envoi. 
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Regardons maintenant a quoi ressemble notre programme. Le Listing 5 .4 contient le code sour- 
ce qui est cree et stocke dans votre fichier de projet. Utilisez Voir/Source du projet pour visua- 
liser le contenu du fichier de projet. 

Listing 5.4 : CauseFiche 

I program CauseFiche; 
uses 
Forms , 
Entree in 'ENTREE. PAS' {FicheEntree} , 
Sortie in 'SORTIE. PAS' {FicheSortie} ; 
{$R *.RES} 
begin 
Application. CreateForm(TFicheEntree, FicheEntree) ; 
Application. CreateForm(TFicheSortie, FicheSortie) ; 
Application. Run; 
end. 

La clause uses inclut l'unite Forms (qui est le code Delphi permettant de creer des fenetres), et 
les unites Entree et Sortie qui contiennent le code des fiches que vous avez creees. 

Apres le premier begin, vous vous pouvez remarquer les declarations de methode Applica- 
tion . Initialize et Application . CreateForm. Ces methodes executent le code necessaire au 
lancement et a la creation de vos fiches. Pour simplifier, les methodes sont des sections de code 
contenues dans un objet (notre fiche en l'occurrence), qui sont executees lorsque la methode 
est appelee, comme dans notre exemple. Nous reviendrons plus en detail sur les methodes et 
leur utilisation au Jour 8. 

La derniere declaration est Application .Run. Ceci lance notre application et execute le code 
associe a nos fiches (n'oubliez pas qu'une partie du code est ajoutee par Delphi, et l'autre partie 
par vous). La source du projet est mise a jour par Delphi a votre place lorsque vous ajoutez ou 
supprimez des fiches. 

A present, double-cliquez sur la fiche Entree afin de voir le code ci-apres (voir Listing 5.5). 
Vous pouvez remarquer a quel point le code est agreable a lire grace aux noms descriptifs que 
vous avez choisis. 

Listing 5.5 : Unite Entree 

8 unit Entree; 
interface 
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uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
OutPut, StdCtrls; 

type 

TFicheEntree = class(TForm) 
TexteEntree: TEdit; 
EnvoiTexte: TButton; 

procedure EnvoiTextClick (Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 



var 



FicheEntree: TFicheEntree; 



implementation 



{$R * . DFM} 



procedure TFicheEntree. EnvoiTextClick(Sender: TObject); 
begin 

FicheSortie . TexteSortie . Text : =FicheEntree . TexteEntree . Text ; 

end; 

Regardez le code de la fiche Sortie (Listing 5.6). La lecture du code des fiches Entree et Sor- 
tie devrait etre facile grace a l'utilisation de noms descriptifs pour les fichiers, les titres et les 
noms. Imaginez un projet complexe comportant de nombreuses fiches et controles. Avec les 
bonnes habitudes que vous avez prises, ce projet complexe vous posera beaucoup moins de 
problemes. Grace aux noms qui donnent une bonne idee de la nature et de la fonction des divers 
fiches et composants, il vous sera facile de naviguer meme dans le plus imposant des projets. 

Le code de cette application reside dans l'unite Entree. La clause uses de la section implemen - 
tation de l'unite Entree comporte une reference a l'unite Sortie. Ceci permet d'acceder au 
code contenu dans cette unite. L'application fonctionne en executant la ligne de code suivante 
lorsqu'on appuie sur le bouton Envoi : 

FichierSortie. TexteSortie. Text := FicheEntree. TexteEntree. Text; 
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Listing 5.6 : Unite Sortie 
unit Sortie; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls; 

type 

TFicheSortie = class (TForm) 

TexteSortie: TEdit; 
private 

{ Declarations privees} 
public 

{ Declarations publiques } 
end; 

var 

FicheSortie: TFicheSortie; 
implementation 
{$R * . DFM} 
end. 

Ce code a ete cree par Delphi lorsque vous avez cree la fiche Sortie. Comme cette fiche ne 
nous sert qu'a afficher les donnees envoyees par la fiche Entree, elle ne contient pas de code 
cree par l'utilisateur. Les sections de code de cette unite devraient vous etre maintenant fami- 
lieres. 

GesNonnaire de projef 

Maintenant que vous avez un projet sur lequel travailler, voyons ensemble les fonctions offer- 
tes par le Gestionnaire de projet et les autres options de Delphi. Une fois un projet charge, 
ouvrez le Gestionnaire de projet. Selectionnez Voir/Gestionnaire de projet pour faire apparaitre 
l'interface utilisateur du Gestionnaire de projet (Figure 5.5). 
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Figure 5.5 

Le Gestionnaire de projet. 
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Dans l'interface du Gestionnaire de projet, vous pouvez remarquer que le nom de chaque unite 
figure dans la liste (Entree et Sortie dans notre exemple), ainsi que le nom de la fiche et le 
chemin d'acces (qui est vide pour l'instant puisque vous ne l'avez pas encore defini). Au-des- 
sous de la barre de titre se trouve une barre d'icones comportant quelques fonctions utiles. 

Observez bien les options proposees par la barre d'icones. Comme la plupart de ces options 
affectent l'unite selectionnee, assurez-vous que vous selectionnez la bonne unite avant de cli- 
quer sur un des boutons de la barre d'icones. 

Ajouter unite. Vous permet d'ajouter un fichier d'unite. Ceci est bien pratique car vous 
pouvez vous retrouver avec une fiche concue pour un autre programme et qui s'avere tout 
a fait adaptee au projet en cours. II vous suffit alors d'ajouter la fiche au projet. Lorsque 
vous cliquez sur le bouton Ajouter fiche, la boite de selection de fichiers standard appa- 
rait. II ne vous reste plus qu'a parcourir les repertoires et a selectionner le fichier de fiches 
a ajouter. 

Supprimer unite. Supprime du projet l'unite selectionnee (le fichier n'est pas supprime, 
mais simplement retire du fichier de projet). 

Voir unite. Vous permet de voir le code de l'unite selectionnee. 

Voir fiche. Affiche la fiche associee a l'unite selectionnee. 

Options... Fait apparaitre les Options du projet, une boite de dialogue a onglets proposant 
di verses options (nous en reparlerons dans la section qui suit). 

Mise a jour. Ce bouton est desactive si vous n'avez pas modifie manuellement le fichier 
de projet. Le bouton permet de synchroniser le fichier de projet avec les fiches et unites 
listees dans le Gestionnaire de projet. 

// n'est pas recommande de modifier le fichier source de projet a moins que vous ne soyez en 
train d'ecrire une DLL ou que vous ne vous adonniez a de la pro >gr -animation avancee. Delphi 
se charge en temps normal de la plupart des modifications a effectuer. 

Comme vous pouvez le voir, le Gestionnaire de projet vous permet de naviguer rapidement 
dans votre projet, d'y ajouter ou d'y supprimer des fichiers, et d'aller dans la boite de dialogue 
Options. 
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En plus du Gestionnaire de projet, vous utiliserez les menus Fichier, Voir, Projet, Groupe de 
travail (qui n'est disponible que si vous installez PVCS, dont nous parlerons brievement a la 
fin de cette lecon) et Outils, ainsi que la barre d'icones (qui vous permet d'acceder a des fonc- 
tions concernant le projet) lorsque, travaillant sur votre projet, vous aurez besoin de creer, de 
supprimer, de fermer et plus generalement de manipuler des fichiers de projet. Nous allons 
done nous interesser aux options et fonctions qui se rapportent directement a la gestion d'un 
projet. 

Options de projet 

La boite de dialogue a onglets Options de projet vous permet de definir de nombreuses options 
concernant votre projet. Ces informations seront enregistrees dans le fichier .dfo dont nous 
avons parle precedemment. Notre boite de dialogue comprend sept onglets, comme le montre 
la Figure 5.6. Ces sections sont Fiches, Applications, Compilateur, Lieur, Repertoires/Condi- 
tions, Version et Paquets. Examinons ces onglets et les options qu'ils renferment. Vous pourrez 
par la meme occasion verifier les parametres de votre projet CauseFiche. 



Figure 5.6 

La boite de dialogue 
Options de projet ( onglet 
Fiches). 




Onglet Fiches 

Le premier onglet est l'onglet Fiches (voir Figure 5.6). C'est l'onglet qui est actif lorsque vous 
ouvrez la boite de dialogue Options de projet. Au sommet, vous trouvez la liste Fiche princi- 
pale. Cette liste vous permet de selectionner la fiche principale de votre menu. La fiche princi- 
pale demarre en premier avec le code de son evenement OnCreate. En temps normal, la 
premiere fiche que vous creez est la fiche principale. Pour ce projet, ce sera FicheEntree. Si 
vous cliquez sur la fleche vers le bas de la liste deroulante, vous verrez que vous pouvez choisir 
FicheSortie (qui est la seule autre fiche dans notre projet). 

Dans l'onglet Fiches se trouvent egalement les boites de liste Auto-creer fiches et Fiches dis- 
ponibles . Par defaut , les fichiers apparaissent dans la boite de liste Auto-creer fiches . Les fiches 
disponibles font partie de votre projet mais devront etre deplacees dans la section auto-creees 
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si vous souhaitez qu'elles soient creees au lancement. Dans le cas contraire, vous devez les acti- 
ver au moment de l'execution avant qu'elles ne soient utilisees. Lorsqu'une forme est ajoutee a 
la liste Auto-creees, le code adequat est ajoute au fichier de projet sous la forme d'une declara- 
tion telle que 

Application. CreateForm(TFicheEntree, FicheEntree) ; 

Vous ne pouvez pas referencer unefiche tant qu'elle n'a pas ete creee. 

Pour deplacer des fiches d'une boite de liste a une autre, vous pouvez utiliser les controles (les 
boutons sur lesquels figurent une fleche simple et une fleche double) qui se trouvent entre les 
deux boites. Vous pouvez egalement glisser-deplacer les fichiers entre les deux boites ou modi- 
fier leur ordre. 

Si vous jetez un ceil au projet sur lequel vous avez travaille (CauseFiche), FicheEntree devrait 
etre la fiche principale, FicheEntree et FicheSortie devraient toutes deux se trouver dans la 
boite de listes Auto-creees et la boite de liste Fiches disponibles devrait etre vide. Une fois que 
CauseFiche aura ete debogue et execute, amenez FormeSortie dans la boite de liste fiches dis- 
ponibles, puis executez l'application. Entrez test dans la boite de texte de la fiche d'Entree et 
cliquez sur le bouton Envoi. Une erreur doit survenir. En effet, votre application n'a pas trouve 
la fiche de Sortie. Replacez FicheSortie dans la boite de listez Auto-creees et relancez le 
programme. Votre application doit maintenant fonctionner normalement. 

Enfin, la case a cocher Defauts permet de faire des options courantes les options par defaut de 
tout nouveau projet. Vous ne cocherez pas cette case sauf si vous souhaitez que tous vos projets 
a venir utilisent les memes parametres. 

Ongler Application 

Cette section vous permet de definir le titre, l'icone et le fichier d'aide de l'application, comme 
le montre la Figure 5.7. Toutes ces rubriques sont en principe vierges lorsque vous venez dans 
cet ecran pour la premiere fois. Ces champs sont facultatifs, mais remplissez-les au fur et a 
mesure que vous lisez ce qui suit. 



Figure 5.7 

L'onglet Application. 
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Tout d'abord, le titre de l'application. C'est le texte que Windows affiche a cote de l'icone lors- 
que l'application est reduite. Sous Windows 95 et Windows NT 4.x, il apparait dans la barre de 
taches. Si vous laissez vide ce champ, l'application affichera le nom du projet. Ajoutez le nom 
Application Fiches bavardes. Ceci ajoutera la ligne suivante au code source du projet. Utilisez 
Voir/Source du projet pour voir cette ligne : 

Application. Title := 'Form Talk Application 1 ; 

Executez le projet et reduisez-le. Vous pouvez remarquer que Applications fiches bavardes est 
le nom de l'application qui apparait a gauche de l'icone sur la barre des taches de Windows 95. 
Si vous supprimez le texte dans l'ecran du projet et executez celui-ci, vous verrez apparaitre 
CauseFiche a la place. Assurez-vous que Application Fiches bavardes figure bien dans la boite 
de texte avant de passer a la suite. 

Juste au-dessous de la boite de texte Titre de l'application se trouvent la boite de texte Fichier 
d'aide et le bouton Parcourir. Vous pouvez selectionner un fichier d'aide Windows standard 
pour l'associer a votre application. Essayez done, en suivant ces etapes : 

1 . Cliquez sur Parcourir. 

2. Placez-vous dans le repertoire \program files\borland\Delphi 3 .0\help (selon la facon 
dont vous avez installe Delphi, les noms de repertoires peuvent etre differents sur votre 
machine) et selectionnez un des fichiers d'aide .HLP (delphi.hlp par exemple). 

3. Visualisez de nouveau le code source. Vous pouvez voir que la ligne suivante a ete 
ajoutee : 

Application. HelpFile := 'c:\program f iles\borland\Delphi 3. 
0\help\delphi .hip; 

Meme s'il n'a pas grand-chose a voir avec votre programme, le fichier d'aide est associe au pro- 
jet. Si vous configuriez correctement les numeros d'aide contextuelle dans les fiches et compo- 
sants, il suffirait d'appuyer sur Fl pour faire apparaitre l'aide Delphi associee au contexte defini 
pour la fiche ou le composant selectionnes. Cette aide Delphi ne traite certes pas de votre appli- 
cation, mais c'est le principe de la configuration du fichier d'aide qui est important ici. 

Ensuite se trouve une boite d'image contenant l'icone par defaut ou celle deja selectionnee, qui 
apparait sous la boite d'edition Fichier d'aide et qui est suivie par un bouton Charger l'icone. Ce 
bouton Charger l'icone fait apparaitre une boite de selection de fichier vous permettant de choi- 
sir l'icone de l'application. Cette icone est affichee lorsque vous reduisez la fiche principale de 
l'application. Cliquez sur le bouton Choisir icone, puis selectionnez 

C:\program f iles\borland\Delphi 3.0\images\icons\chip.ico 

et cliquez sur OK. Vous ferez ainsi apparaitre un microprocesseur dans la boite d'image. 

Executez de nouveau l'application. Reduisez-la, et vous devriez voir la nouvelle icone (repre- 
sentant un microprocesseur) ainsi que le titre Application fiches bavardes. Faites Fichier/Enre- 
gistrer projet. 
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Vous n'etes pas oblige de definir les options precedentes, mais elles sont recommandees car 
elles donnent un aspect plus "fini" a vos applications. La case a cocher permet d'indiquer que 
les options courantes deviendront les options par defaut pour tous les projet ulterieurs. 

Enfin, au bas de l'onglet, dans la zone Options de Destination, vous pouvez preciser l'extension 
du fichier destination, par exemple . OCX pour un controle ActiveX. 

Onglef Compilateur 

Les sections de cet onglet (voir Figure 5.8) comprennent Generation de code, Erreurs d'execu- 
tion, Options de syntaxe et Options debug. Chacune de ces sections comprend un certain nom- 
bres d'options que vous pouvez activer ou desactiver. Pour la plupart des projets, les parametres 
par defaut conviennent parfaitement. La case a cocher permet d'indiquer que les options cou- 
rantes deviendront les options par defaut pour tous les projet ulterieurs. 




V onglet Compilateur 

Les options du compilateur ne rentrent pas dans le cadre de notre ouvrage. Cependant, a titre 
d'exemple, vous pouvez remarquer que sous les options de Generation de code figure une 
option appelee FDIV securise Pentium. Cette option compile un code qui detecte la presence 
'eventuelle d'un microprocesseur Pentium comportant le bogue de division en virgule fiottante , 
et empeche que ce bogue ne se manifeste. Si vous savez que votre application ne sera pas 
ex'ecutee sur des systemes Pentium bogu'es, il vous suffit de desactiver cette option et votre 
code sera un peu plus rapide et compact. Nous vous recommandons cependant de laisser cette 
option activee, car il existe surement des gens qui n'ont jamais profit'e de Voffre de remplace- 
ment des microprocesseurs defectueux par Intel. Vous ne perdrez presque rien a laisser 
Delphi contourner un eventuel bogue. Cette option est mentionnee pour vous donner une idee 
des implications des options de compilateur, car elles affectent la taille de V executable et la 
rapidite de votre application. Pour plus de details, vous pouvez vous reporter aux manuels 
Delphi ou a I'aide en ligne de Delphi a laquelle vous accedez en appuyant sur Fl lorsque 
vous vous trouvez dans cet onglet. 
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Onglet Lieur 

Les options du Lieur (voir Figure 5.9) comprerment Fichier map, Sortie lieur, options EXE et 
DLL, Tailles memoire et Description de l'EXE. Comme dans le cas de l'onglet Compilateur, 
les options de cet onglet depassent le cadre de ce livre. Pour plus de details sur ces options, 
reportez-vous aux manuels Delphi et a l'aide en ligne. La aussi, les options par defaut convien- 
dront pour la plupart des projets. 




Onglet Repertoires/Conditions 

Dans la partie Repertoires (voir Figure 5.10), se trouvent trois groupes d'options : Repertoires, 
Conditionnels et Alias. 



Figure 5.10 

L'onglet Repertoires! 
Conditions. 




Le groupe Repertoires contient le repertoire de destination et les chemins de recherche. Le 
repertoire de destination vous permet d'indiquer l'emplacement oil vous souhaitez que soient 
places les executables (.exe). Destination unites vous permet d'indiquer oil vous voulez placer 
les unites compilees (.dcu). Nous avons pour habitude de ne rien indiquer dans ces deux 
champs et de deplacer les fichiers compiles dans un autre repertoire une fois le travail fini. 
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Lorsque cette boite de texte est laissee vide, les fichiers .dcu et .exe sont stockes dans le meme 
repertoire que le code source. 

Le chemin de recherche vous permet de specifier la ou seront recherches les fichiers .dcu. Lors- 
que vous compilerez le programme, le compilateur ne recherchera que dans le chemin de 
recherche defini ici, dans le chemin de recherche de bibliotheque et dans le repertoire courant. 
Vous pouvez indiquer plusieurs entrees de chemins d'acces en les separant par un point- virgule 
(;), chacun de ces chemins d'acces ne devant pas depasser 127 caracteres de long. Vous utilisez 
l'option Chemin de recherche si vous souhaitez que votre projet utilise des fichiers qui se trou- 
ve dans un autre repertoire que le repertoire courant ou le chemin de recherche de bibliotheque. 
Une erreur surviendra si les fichiers sources sont introuvables au moment de la compilation. 

La zone Debogage source vous permet de specifier l'emplacement de recherche des fichiers 
quand ils ont ete deplaces depuis la derniere compilation. II est inutile en regie generate de 
modifier cette option. Pour plus de renseignements, consultez l'aide en ligne. 

La boite de liste Conditions vous permet d'entrer ou de selectionner dans une liste des directi- 
ves et des symboles conditionnels de compilation (voir Figure 5.10). Ces symboles affectent 
le deroulement de la compilation, en fonction de certaines conditions. Pour plus de details sur 
les directives et symboles de compilation, reportez-vous aux manuels Delphi ou a l'aide en 
ligne. La case a cocher permet d'indiquer que les options courantes deviendront les options par 
defaut pour tous les projet ulterieurs. 

La boite Alias vous permet d'entrer des alias pour d'autres unites. Vous pouvez remarquer 
l'apparition de l'entree suivante : 

WinTypes=Windows ;WinProcs=Windows 

Ceci assure la compatibilite ascendante, puisque les unites Windows et WinProcs ont ete rem- 
placees par l'unite Windows. Vous pouvez egalement ajouter la vos propres alias. 

Maintenant que nous avons vu ensemble les differentes options permettant de g'erer votre 
projet, regardons les menus Fichier, Voir, Groupes de travail et Outils, ainsi que diverses 
options de la barre d'icones. Vous allez decouvrir quelques raccourcis bien pratiques. 

Onglet Version 

L'onglet Version, visible Figure 5.11, est utilise pour associer a votre projet des informations 
de version, notamment des informations de copyright. Pour en savoir plus a ce sujet, reportez- 
vous a l'aide en ligne de Delphi. 
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Figure 5.11 

L'onglet Version. 
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L'onglet Paquefs 

L'onglet Paquets vous permet de specifier les options de paquets de Delphi. C'est ici que vous 
selectionnerez les paquets requis par votre projet et que vous activerez leur gestion. Les 
paquets sont des DLL particulieres qui vous permettront de diminuer de facon significative la 
taille de vos executables. 




Creer un projef 

La fin de cette journee est consacree aux fonctions de gestion de projet de Delphi. Je vous 
recommande de completer la lecture de cette lecon en consultant l'aide en ligne ainsi que les 
manuels Delphi. Si vous avez deja utilise Delphi 1 .0, vous remarquerez l'apparition d'un certain 
nombre de nouveaux elements, quelques modifications de noms et certaines modifications 
dans l'emplacement des menus. Lorsque vous demarrez Delphi, vous pouvez generalement 
voir une fiche et un projet vierges. La fiche et le projet vierges sont crees par defaut par Delphi. 
Vous pouvez modifier cette configuration par defaut, comme nous l'evoquerons rapidement. 
Vous connaissez maintenant la fiche et le code par defaut, interessons-nous done aux autres 
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options dont vous disposez lors de la creation d'un projet. Dans le menu Fichier se trouve un 
menu appele menu Nouveaux elements. Vous pouvez trouver la toute une serie d'onglets tres 
pratiques (voir Figure 5.13). 



Figure 5.13 

La boite de dialogue 
Nouveaux elements. 
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Faisons un rapide tour d'horizon de ce qui est disponible dans chacun de ces onglets. Si vous 
souhaitez plus de details sur tel ou tel element, reportez-vous a l'aide en ligne ou aux manuels 
Delphi. 



DngleT Nouveau 

L'onglet Nouveau (voir la Figure 5.13) permet de creer de nouvelles applications , fiches , objets 
d'automatisation, objets d'edition de texte, composants et DLL. Cliquez sur l'icone qui vous 
interesse et appuyez sur OK. Si Delphi a besoin d'informations supplementaires concernant 
l'objet selectionne, une nouvelle boite de dialogue fera son apparition. 



Ongler AcNveX 

L'onglet ActiveX (voir Figure 5.14) vous permet de creer des controles et applications Acti- 
veX. Cliquez sur l'icone qui vous interesse et appuyez sur OK. Si Delphi a besoin d'informa- 
tions supplementaires concernant l'objet selectionne, une nouvelle boite de dialogue fera son 
apparition. 



Figure 5.14 

L'onglet ActiveX. 
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Onglel" Fiches 

L'onglet Fiches (voir Figure 5.15) vous propose divers modeles de fiches que vous pouvez uti- 
liser lors de la creation d'une nouvelle fiche. Vous pouvez egalement creer vos propres modeles 
et les faire figurer dans cet onglet, comme nous le verrons plus loin dans cette lecon. Cliquez 
sur l'icone qui vous interesse et appuyez sur OK. Si Delphi a besoin d'informations supplemen- 
taires concernant l'objet selectionne, une nouvelle boite de dialogue fera son apparition. 




Onglel" Dialogues 

Tout comme l'onglet Fiches, l'onglet Dialogues (voir Figure 5.16) contient des modeles pour 
des boites de dialogue preconstruites . Vous pouvez egalement creer de tels modeles et les faire 
figurer dans cet onglet. Cliquez sur l'icone qui vous interesse et appuyez sur OK. Si Delphi a 
besoin d'informations supplementaires concernant l'objet selectionne, une nouvelle boite de 
dialogue fera son apparition. 



Figure 5.16 

L'onglet Dialogues. 
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Modules de donnees 

L'onglet Modules de donnees (voir Figure 5.17) permet de stocker des objets contenant des 
tables de donnees predefinies ainsi que d'autres composants. Un exemple de module clientele 
est fourni, mais vous pouvez creer les votres en utilisant les informations donnees dans le 
Jour 1 1 . Pour plus d'informations, consultez l'aide en ligne et les manuels Delphi. Cliquez sur 
l'icone qui vous interesse et appuyez sur OK. Si Delphi a besoin d'informations supplementai- 
res concernant l'objet selectionne, une nouvelle boite de dialogue fera son apparition. 
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Figure 5.17 

L'onglet Modules de donn'ees. 




DngleT ProjeTs 

L'onglet Projets (voir Figure 5.18) contient des modeles de projets. Vous pouvez gagner du 
temps en utilisant les projets predefinis qui vous sont proposes, ou creer vos propres modeles. 
Cliquez sur l'icone qui vous interesse et appuyez sur OK. Si Delphi a besoin d'informations 
supplementaires concernant l'objet selectionne, une nouvelle boite de dialogue fera son appa- 
rition. 



Figure 5.18 

L'onglet Projets. 




Un dernier point. Vous avez peut etre deja remarque que si vous travaillez sur un projet, celui- 
ci sera ajoute au menu Nouveaux elements, immediatement apres l'onglet Nouveau. Ceci vous 
permet de voir ce que vous avez ajoute, mais vous pouvez egalement y effectuer des selections 
si vous devez creer une fiche ou un objet similaire a ceux qui figurent deja dans le projet. Cet 
onglet disparait des que vous fermez le projet en cours. 
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ReferenNel d'objets 

En Delphi 1 .0, la Galerie servait a stocker des modeles et des experts. Elle a ete remplacee par 
le Referentiel. Le menu Options du referentiel d'objets se trouve dans le menu Outils/Referen- 
tiel que vous pouvez voir Figure 5.19. 



Figure 5.19 

La boite de dialogue 
Referentiel d'objets. 




Vous trouverez ici cinq choix : Experts fiches, Objets fiches, Experts projets, Modeles projets 
et Referentiel d'objets. Dans ce menu vous pouvez ajouter, supprimer et editer des selections, 
mais aussi modifier les parametres par defaut utilises lors de la creation d'une nouvelle fiche 
ou d'un nouveau projet. Vous pouvez creer vos propres pages et objets, et les ajouter au refe- 
rentiel a partir de cette boite de dialogue. Pour en savoir plus a ce sujet, consultez l'aide en 
ligne. 

Le referentiel d'objets est un excellent moyen de reutiliser du code dans Delphi. Comme vous 
pouvez le voir, les fonctions les plus usuelles sont deja a votre disposition, mais vous pouvez 
etendre votre champ d'action bien au-dela en creant vos propres modeles que vous ajoutez au 
referentiel d'objets. 

Nous allons maintenant parler de la creation de modeles et d'experts. Cela nous permettra de 
nous faire une meilleure idee des processus en jeu. 

Experts ef modeles 

Comme vous le savez sans doute, un expert est un programme installe avec Delphi qui vous 
fait passer par une serie de questions et de choix, et qui, en s'appuyant sur vos reponses cons- 
tant pour vous un cadre de travail permettant de bien commencer une fiche ou un projet com- 
plexe. Un expert peut vous faire gagner un temps precieux. Les modeles sont un peu similaires, 
en ceci qu'ils se chargent des aspects repetitifs a votre place, mais cette fois sans vous poser de 
questions permettant d'affiner le resultat. Avec un modele, vous effectuez en fait une copie de 
ce que vous souhaitez, pour l'inserer dans votre nouveau projet. Les experts et les modeles 
apparaissent dans le menu Nouveaux elements, et sont done faciles d'acces. 
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Experts 



II existe deux types d'experts : les Experts de fiche et les Experts de projet. Pour savoir ce qui 
est disponible, vous pouvez aller dans le Referentiel des objets et cliquer sur l'onglet adequat. 
Les experts disponibles sont affiches dans les onglets correspondant a leur fonction. 

Pour utiliser un expert, il vous suffit de selectionner Nouveau, puis de selectionner l'expert sou- 
haite dans le menu Nouveaux elements. Une fois que l'expert est lance, on vous demande diver- 
ses informations. Enfin, l'expert cree une fiche ou un projet et vous pouvez commencer a 
ajouter votre propre code, ou vous pouvez simplement y apporter quelques modifications. 

Juste pour vous faire la main, selectionnez Fichier/Nouveau. Puis, dans le menu Nouveaux ele- 
ments, selectionnez l'onglet Dialogues. Double-cliquez sur l'icone Expert dialogue. L'expert 
dialogue demarre alors (voir Figure 5.20). 

Figure 5.20 J^SUSM^^^^^^^^^^^^MM 

V Expert dialogue . I 



Un modele est en fait un projet, une fiche ou une partie de code qui a ete preconstruit pour etre 
immediatement utilisable. Lorsque vous selectionnez un modele, celui-ci est simplement copie 
dans votre projet, et vous pouvez y apporter les ajouts ou modifications que vous desirez. Par 
exemple, si vous avez cree une superbe fiche d'ecran que vous tenez absolument a utiliser dans 
tous vos programmes, vous pouvez creer un modele "superbe" contenant votre logo, vos cou- 
leurs, etc. Pour l'utiliser dans vos programmes, il vous suffit de l'enregistrer dans le Referentiel 
d'objets. Creez un modele simple et utilisez-le dans un projet. 

Si vous voulez creer votre propre modele, concevez votre fiche ou votre application comme 
pour toute autre application ou fiche, puis, une fois la conception et les tests termines, ajoutez- 
la au referentiel d'objets en procedant comme suit : 

1 . Selectionnez Projet I Ajouter au referentiel. La boite de dialogue Ajout au referentiel ap- 
parait alors, comme sur la Figure 5.21 . 

2. Saisissez le titre et la description, selectionnez la page dans laquelle vous desirez effec- 
tuer le stockage, saisissez le nom de l'auteur, et selectionnez une icone. 




Creer ef uriliser des modeles 
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Appuyez sur OK. Voila, vous venez de creer votre premier modele. Pour utiliser un modele, 
procedez comme suit : 

1 . Selectionnez Fichier I Nouveau afin de faire apparaitre la boite de dialogue Nouveaux ele- 
ments. 

2. Selectionnez l'onglet dans lequel figure le modele voulu. 

3. Cliquez sur l'icone du modele que vous desirez utiliser. 

Chaque fois que vous lancez Delphi et que vous selectionnez Fichier I Nouveau ou Fichier I 
Nouvelle application, vous avez recours a des modeles. 

A mesure que vous vous habituez a la programmation Delphi et que vous commencez a bien 
cerner les taches que vous souhaitez accomplir, il peut etre utile de passer un peu de temps a 
creer des fiches et des boites de dialogue usuelles que vous convertirez en modeles. Plus votre 
collection de modeles sera etendue, plus vous gagnerez de temps sur les taches de routine. 

Console de versions 

Jusqu'ici, nous avons vu ce qui constitue un projet, comment s'organiser, comment travailler 
avec le Gestionnaire de projet de Delphi, et comment utiliser les fonctions permettant de gerer 
vos projets. Nous avons meme parle du gain de temps qu'offrent modeles et experts. II est 
temps d'aborder le sujet du controle de versions. Etre bien organise sans logiciel de controle de 
versions n'est pas tres difficile si vous travaillez seul, mais peut le devenir si plusieurs program- 
meurs travaillent sur le meme projet. 

Un systeme de controle des versions vous permet de gerer des projets sans risque de disorga- 
nisation ou de pertes. Ainsi, si un groupe de programmeurs travaille sur le meme projet, un 
systeme de controle de versions vous permet de verrouiller certaines parties du code que vous 
ne souhaitez pas voir modifiees, ou d'acceder a une partie du code et d'empecher les autres 
membres du projet d'y apporter des modifications tant que vous travaillez dessus. Vous pouvez 
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conserver des archives des versions precedentes, ce qui vous permet de revenir en arriere ou 
de consulter une version plus ancienne de votre code. 

Delphi prend en charge PVCS Version Manager 5.1 ou superieur, logiciel qui est inclus dans 
l'edition Client/Serveur de Delphi. Les fonctions de controle de versions sont disponibles dans 
le menu Groupes. Pour acceder a ces fonctions, il vous suffit de suivre une procedure simple 
(pour plus de details, reportez-vous a l'aide en ligne). Nous ne parlerons pas dans cet ouvrage 
du controle de versions, sachez simplement que ce produit existe et qu'il offre de nombreux 
avantages. Si vous developpez seul une application en utilisant la version standard de Delphi, 
il vous suffit, pour arriver a un resultat similaire, d'adopter des methodes simples de gestion de 
projet, en creant des repertoires distincts pour chaque version et en utilisant un ensemble stan- 
dard de modeles. Par contre, si vous faites partie d'une equipe de developpeurs travaillant sur 
un meme projet, il est conseille de vous munir du logiciel de controle de versions. 

Recapifulatif 

Lors de cette journee, nous avons vu tous les fichiers qui composent un projet Delphi, qu'ils 
soient crees au moment de la conception ou de la compilation. Nous avons parle des fiches, des 
unites, de la VCL et des OCX en tant que composantes de votre projet, et nous avons vu com- 
ment inclure dans votre projet des fonctions, des procedures et des evenements crees par l'utili- 
sateur. Les ressources telles que les bitmap, les icones, etc. n'ont pas non plus ete oubliees. Nous 
avons ensuite vu comment mettre en place une structure de repertoires facilitant la recherche, 
l'entretien et la sauvegarde de vos fichiers. Avec le Gestionnaire de projet, vous avez appris 
comment naviguer dans votre projet, ajouter ou supprimer des fichiers. Nous avons vu la boite 
a onglets des Options du projet, recelant diverses options permettant d'affecter la compilation 
de votre projet. Ensuite, nous avons parle du Referentiel d'objets et vous avez appris a l'utiliser 
pour choisir comme defauts divers experts et modeles. Vous avez appris a vous servir d'experts 
pour creer fiches et projets. Nous avons vu comment choisir un modele lors de la creation d'un 
nouveau projet ou d'une nouvelle fiche, et comment creer vos propres modeles qui seront stoc- 
kes dans le Referentiel des objets pour un usage ulterieur. Enfin, nous avons evoque la prise en 
charge par Delphi du Gestionnaire de version PVCS d'Intersolv en soulignant les avantages de 
ce produit. 

Atelier 

L'atelier vous donne trois moyens de verifier que vous avez correctement assimile le contenu 
de cette lecon. La section Questions - Reponses reprend des questions posees couramment, et 
y repond, la section Questionnaire vous pose des questions, dont vous trouverez les reponses 
en consultant 1' Annexe A, et les Exercices vous permettent de mettre en pratique ce que vous 
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venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Puis-je creer mes propres experts ? 

R Oui, cela est theoriquement possible, et Delphi permet bien de creer facilement un expert. 
Les experts sont des produits ajoutes. 

Q Pourquoi le systeme de controle de version PVCS ou son menu Groupes associes ne 
sont-ils pas disponibles dans le menu principal de Delphi ? 

R Le systeme PVCS est un produit optionnel et doit etre installe separement. Pour l'activer, 
recherchez "PVCS" dans l'aide et suivez les instructions qui vous seront fournies. 

Questionnaire 

1 . Quels sont les fichiers crees par Delphi lors de la conception ? Et lors de la compilation ? 

2. Quelles sont les differentes parties qui composent une unite ? 

3. Comment ajoutez-vous une fiche a un projet ? Comment supprimez-vous une fiche d'un 
projet ? 

4. Si vous supprimez une fiche d'un projet, supprimez-vous le fichier de fiche associe ? 

Exercice 

Creez un modele de projet contenant une fiche principale comportant des menus Fichier et 
Aide. Le menu d'aide devra comporter une option A propos. Ensuite, creez une fiche de boite 
A propos... et faites figurer dans le bouton OK du code permettant d'enlever la fiche de la 
memoire. 
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L'edifeur ef 
le debogueur 
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Aux premiers temps de l'informatique, les programmeurs utilisaient nombre d'outils pour creer 
leurs logiciels. Parmi ces outils, on trouvait le plus souvent un editeur, un compilateur, un edi- 
teur de liens et un debogueur. Ces utilitaires etaient souvent fournis par differents editeurs de 
logiciels, et rien ne les reliait, excepte la volonte du programmeur. Les premiers pionniers ne 
disposaient meme pas de tous ces outils, ils en etaient reduits a relire des milliers de pages de 
code et a s'user les yeux sur des cartes perforees. De nos jours, les EDI (Environnements de 
Developpement Integres) comprennent tous ces outils, regroupes de facon coherente au sein 
d'une meme interface afin de simplifier la vie du developpeur. Cette lecon vous apprend a en 
tirer parti pour devenir plus productif . Nous commencerons par l'editeur avant de nous pencher 
sur le debogueur integre a Delphi. 



L'editeur 

Comme vous le savez, l'editeur de Delphi apparait lorsque vous double-cliquez sur une fiche 
ou sur un controle, et vous amene a la section de code relative a l'objet sur lequel vous avez 
clique, comme indique Figure 6.1 . De cette facon, Delphi batit le code source de l'application 
pour vous au fur et a mesure que vous ajoutez des composants et saisissez le code specifique a 
votre application dans chaque section. Bien entendu, il vous est possible de parcourir le code 
et de rechercher pour revision des procedures deja ecrites. 



Figure 6.1 

L'editeur de code. 



l-lnlxl 



unit Unitl; j 
interface 

II i odours, Hesssges, SysUtils, Classes, Graphics, Controls, 
type 

TForml = class (TFcriii) 
private 

( Declarations privees ) 
public 

( Declarations publiques ) 



Forwl: TForinl; 



: 1 IModille Insertion 



Delphi met a votre disposition nombre de fonctionnalites qui vous simplifieront la vie. Mieux 
vous les connaitrez, plus vite vous irez. En voici quelques-unes : 

• Mise en evidence de la syntaxe, 

• Annulations multiples, 

• Edition Brief, 

• Raccourcis clavier, 

• Choix de l'organisation des raccourcis clavier, 

• Menus d'acces rapide, 
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• Zone de messages d'erreurs, 

• Mise en evidence des erreurs. 

En outre, vous pouvez configurer les couleurs et le comportement general selon vos gouts. 
Pour vous familiariser avec l'editeur et certaines de ces fonctionnalites, nous allons creer une 
petite application. Elle vous permettra d'etudier ensuite le fonctionnement du debogueur. 

Foncfionnfllifes de l'editeur et personnolisotion 

Avant de nous lancer dans la construction d'une application, nous allons detailler quelques 
options courantes des menus et des boites de dialogue utilisees pour personnaliser l'editeur. 

Selectionnez Outils I Options d'environnement pour faire apparaitre la boite de dialogue 
Options d'environnement. Celle-ci vous propose plusieurs onglets, notamment Editeur, Affi- 
chage et Couleurs. Ces onglets comprennent de nombreuses options qui vous permettront de 
personnaliser l'editeur. Passons-les en revue. 

L'ongler Editeur 

L'onglet Editeur (voir Figure 6.2) comporte plusieurs options de parametrage du comporte- 
ment de l'editeur. 



Figure 6.2 

L'onglet Editeur. 




Dans la zone de liste Options predeterminees, vous pouvez d'un seul clic de souris modifier le 
parametrage du clavier : Clavier par defaut, EDI classique, Emulation BRIEF, ou Emulation 
Epsilon. Les principales differences entre ces options sont les suivantes : 

• Clavier par defaut : Auto-indentation, Insertion, Tabulation intelligente, Retour arriere 
desindente, Grouper recuperer, Ecraser blocs, et Mise en evidence de la syntaxe. 

• IDE Classique : Auto-indentation, Insertion, Tabulation intelligente, Retour arriere desin- 
dente, Curseur entre tabs, Grouper recuperer, blocs persistents, et Mise en evidence de la 
syntaxe. 
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• Emulation BRIEF : Auto-indentation, Insertion, Tabulation intelligente, Retour arriere 
desindente, Curseur entre tabs, Curseur apres fin de fichier, Conserver espaces de fin, 
Expressions regulieres BRIEF, Forcer couper/copier active, et Mise en evidence de la 
syntaxe. 

• Emulation Epsilon : Auto-indentation, Insertion, Tabulation intelligente, Retour arriere 
desindente, Curseur entre tabs, Grouper recuperer, Ecraser blocs, et Mise en evidence de la 
syntaxe. 

La zone Options de l'editeur comporte plusieurs options que vous pouvez activer ou desactiver 
grace a des cases a cocher. Ces parametrages vous permettent un controle plus fin que les qua- 
tre options que nous venons de voir, qui sont simplement des combinaisons predefinies de ces 
options. Pour plus d'informations sur la fonction exacte de chaque option, consultez l'aide en 
ligne de Delphi. 

Enfin, vous trouverez au bas de cette boite de dialogue les options permettant de modifier 
l'indentation des blocs, le nombre d'annulations possibles (Limite Recuperer), les Arrets de 
tabulations et les extensions de syntaxe. 

L'ongler flffichage 

L'onglet Affichage, repris Figure 6.3, est divise en groupes qui vous permettent d'intervenir sur 
les options suivantes : Options d'affichage et de fichier, Affectation des touches, marges et 
polices. 




Les options d'affichage et de fichier vous permettent d'activer ou de desactiver les formes de 
curseur BRIEF, les fichiers de sauvegarde, la preservation des fins de ligne et le zoom plein 
ecran. 

L'affectation des touches reprend les options que nous avons vues dans la section precedente 
(Defaut, Classique, Brief, ou Epsilon), mais les applique au clavier et non a l'editeur. Par exem- 
ple, Ctrl+K+R lit un bloc depuis un fichier dans les modes Defaut et Classique, alors que le 
mode Brief utilise Alt+R. 
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Les options restantes vous permettent de configurer les marges, les gouttieres et les polices, 
afin de vous donner un maximum de souplesse dans la gestion de l'apparence de la fenetre 
d'edition. 

l/onglef Couleurs 

Cet onglet, repris Figure 6.4, offre plusieurs options permettant de personnaliser l'allure des 
differents elements du code dans l'editeur. C'est la que vous parametrez la mise en evidence de 
la syntaxe. Comme dans les deux onglets precedents, des options predeterminees sont a votre 
disposition. Vous pouvez, si vous le preferez, personnaliser vous-meme chaque element en uti- 
lisant le reste de l'onglet. La derniere zone vous permet d'observer le resultat de vos choix sans 
avoir a les appliquer a tout l'editeur. 



Figure 6.4 

V onglet Couleurs. 
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L'editeur 

Nous allons a present creer une application des plus simples afin de faire connaissance avec 
l'editeur. Cette application se contente de demander deux nombres a l'utilisateur, de les addi- 
tionner lorsque celui-ci clique sur un bouton, puis d'afficher le resultat. La fiche se compose 
d'un bouton, de deux boites d'edition, et de quatre labels. 

Si vous ne l'avez pas deja fait, lancez Delphi. Vous voyez alors apparaitre un projet vierge con- 
tenant une fiche par defaut. Si vous etiez en train de travailler sur une application, selectionnez 
Fichier I Nouveau puis double-cliquez sur l'icone Application de la boite de dialogue Nouveaux 
elements. 

Une fois le nouveau projet cree, utilisez les etapes suivantes afin de construire l'application 
Addition. La Figure 6.5 vous guidera dans la disposition des composants sur la fiche. 
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1 . Dans la palette des composants de Delphi, selectionnez l'onglet Standard. 

2. Dans la palette standard, cliquez sur l'icone representant un bouton, puis cliquez sur la 
fiche. Vous verrez alors apparaitre un bouton sur la fiche, bouton que vous pouvez redi- 
mensionner et deplacer a votre guise. Placez-le en bas de la fiche. 

3. Pour donner un sens au bouton, modifions son intitule. Cliquez sur le bouton afin de le 
selectionnez, puis utilisez l'inspecteur d'objets pour donner a la propriete Caption du 
bouton la valeur Aj outer. 



Figure 6.6 

L'inspecteur d'objets. 
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4. A present, placez deux labels et deux boites d'edition sur la fiche, comme vous l'avez fait 
pour le bouton. L'icone de label ressemble a un A, et celle de la boite d'edition... a une 
boite d'edition. Placez de bas en haut Labell , Editl , Label2 et Edit2. 

5 . Tout comme pour le bouton, utilisez l'inspecteur d'objets pour modifier l'intitule de cha- 
cun des labels. Les proprietes Caption de Labell et Label2 vaudront respectivement 
ValeuN et Valeur2. 

6. Modifiez la propriete Text des deux boites d'edition en supprimant le texte qu'elles con- 
tiennent. 
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7. Ajoutez deux labels sous Edit2. Ces deux labels doivent etre cote a cote, avec Label3 a 
gauche et Label4 a droite. Modifiez la propriete Caption de Label3 et donnez-lui la va- 
leur Somme. Effacez la propriete Caption de Label4. 

8. Avant d'ajouter du code pour le bouton, vous devez appeler l'editeur de code. Delphi 
creera automatiquement le code pour l'evenement OnClick et le fera apparaitre dans 
l'editeur, comme indique Figure 6.7. 



Figure 6.7 

Lafenetre d' edition de 
code prete a recevoir le 
code de V'ev 'eminent 
OnClick du bouton. 
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9. Vous allez a present inserer le code necessaire au bouton (Buttonl ). II devra ressembler 
a celui-ci : 



procedure TForml .Button1Click(Sender: TObject); 
Var 

Valeurl ,Valeur2, Total : integer; 
begin 

Valeurl :=StrToInt(Edit1 .Text) ; 
Valeur2:=StrToInt(Edit2.Text) ; 
Label4 . Caption : =IntToStr (Valeurl +Valeur2) ; 

end; 

10. Pour enregistrer le projet, selectionnez Fichier I Enregistrer sous. Sauvegardez l'unite 
sous le nom FICHEADDITION . DPR, et le projet sous le nom ADDITION . DPR. 

1 1 . Vous pouvez a present tester l'application pour vous assurer qu'elle fonctionne. Pressez 
la touche F9 pour executer l'application. Si tout s'est bien passe, vous devez voir appa- 
raitre la fiche, dans laquelle vous saisissez deux nombres. Lorsque vous cliquez sur le 
bouton Ajouter, la somme apparait normalement dans Label4. 
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Delphi ajoute du code a votre projet au fur et a mesure que vous ajoutez des composants sur la 
fiche. Dans l'etape 9, vous avez ajoute du code pour ButtoM . Le code definitif devrait ressem- 
bler a celui du Listing 6.1 

Listing 6.1 : Le programme Addition 
unit ADDITION; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls; 

type 

TForml = class (TForm) 
Buttonl : TButton; 
Labell : TLabel; 
Label2: TLabel; 
Editl : TEdit; 
Edit2: TEdit; 
Label3: TLabel; 
Label4: TLabel; 

procedure Button1Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .Button1Click(Sender: TObject); 
var 

ValeuN ,Valeur2, Total : integer; 
begin 

ValeuN :=StrToInt(Edit1 .Text) ; 
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Valeur2:=StrToInt(Edit2.Text) ; 

Label4. Caption :=IntToStr(Valeur1+Valeur2) ; 

end; 
end . 

Le code qui permet a cette application de fonctionner est celui que vous avez place dans l'eve- 
nement OnClick du bouton. II se contente de prendre le texte saisi par l'utilisateur dans les boi- 
tes d'edition, de le convertir du format chaine au format nombre grace a la fonction 
StrToInt(), de stacker les deux entiers dans deux variables nominees Valeurl et Valeur2, 
d'ajouter ces deux valeurs, de convertir le resultat au format chaine, puis de placer le resultat 
dans la propriete Caption de Label4. Delphi a cree tout le reste du code. 

MnFo ^ l'utilisateur saisit des donn'ees non numeriques, une erreur se produit. 

Lorsque vous utilisez l'editeur, vous pouvez tirer profit des fonctionnalit'es vues pr'ec'e- 
demment, afin de le parametrer selon vos gouts. Pour en savoir plus a ce sujet, reportez- 
I vous a Vaide en ligne. 

Nous avons passe en revue les principales options de l'editeur, et vu comment utiliser l'editeur 
pour saisir du code. Referez-vous a l'aide en ligne de Delphi ou aux manuels papier pour en 
savoir plus sur l'editeur. Nous nous sommes contentes d'un apercu de ces fonctionnalites, mais 
vous avez deja pu apprecier la richesse de cet environnement de travail ; il dispose egalement 
bien evidemment de toutes les fonctions classiques de copier/coller que vous avez pu decouvrir 
dans d'autres applications Windows. Nous allons a present nous pencher sur le code. 

fluditeur de code 

Cette nouvelle fonctionnalite devrait interesser aussi bien les novices que les programmeurs 
confirmes en Delphi. Si vous apprenez Delphi, il vous arrivera souvent de ne pas vous souvenir 
de la syntaxe d'une instruction, par exemple If, For ou While. Ce probleme peut egalement 
survenir si vous passez souvent d'un langage a un autre : vous savez ce que vous voulez faire 
mais la syntaxe exacte vous echappe. Cette fonctionnalite vous fera gagner du temps et des 
frappes clavier, vous evitant nombre d'erreurs. 

Voici les trois elements qui peuvent vous aider : 

• Expert Modele de code 

• Expert Achevement de code 

• Expert Parametres de code 

Supposons que vous soyez en train de taper du code et que vous desiriez commencer une ins- 
truction If. Tapez If puis Ctrl+J, et un menu surgissant apparait, mettant a votre disposition 
toutes les variantes possibles de l'instruction If . II vous suffit de selectionner la variante desi- 
ree pour qu'elle soit automatiquement inseree dans le code. II ne vous reste plus alors qu'a rem- 
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plir les blancs. Cette operation est realisee grace a un modele de code. Delphi est fourni avec 
plusieurs modeles de code courant prets a l'emploi. 

L'expert Achevement de code acheve la ligne de code a votre place lorsque vous saisissez un 
nom de classe suivi d'un point (.)• Ceci peut vous aider lorsque vous ecrivez des composants 
complexes ou d'autres applications ou certaines taches sont frequemment reutilisees. Pour 
avoir un exemple de cette fonctionnalite, essayez la classe TApplication. Tapez Application 
dans la fenetre d'edition, et vous obtenez une liste des proprietes, methodes et evenements dis- 
ponibles. Selectionnez l'entree qui vous interesse et le code sera automatiquement saisi a votre 
place. 

L'expert Parametres de code affiche les parametres des fonctions, procedures et methodes sous 
forme de bulles d'aide. II est desormais inutile de fouiner dans les fichiers d'aide a la recherche 
des parametres exacts d'une fonction : tapez simplement le nom de la procedure, methode ou 
fonction, ouvrez la parenthese, et une bulle d'aide apparait automatiquement pour vous rappel- 
ler les parametres a utiliser. Par exemple, imaginons que vous tapiez : 

FileOpen( 

La bulle d'aide apparait automatiquement des que vous entrez la ligne precedente. II ne vous 
reste plus qu'a continuer votre travail. 

Vous etes maintenant pret a passer au debogage et a ses techniques. Nous reviendrons ensuite 
sur notre programme pour y inserer une erreur qui nous donnera l'occasion d'utiliser le debo- 
gueur. 

Debogage 

Quelle que soit l'application a programmer, vous commettrez toujours des erreurs. 

Ce n'est pas parce que le code de votre projet se compile sans erreurs que votre application en 
est exempte. Certaines erreurs sont simples a retrouver et a corriger, d'autres peuvent vous 
demander de longues heures de travail. La premiere regie en la matiere est de se souvenir qu'un 
utilisateur ne pense pas de la meme facon qu'un developpeur, et qu'en consequence, il trouvera 
toujours dans votre programme des failles inattendues. 

Comment limiter ces erreurs ? Commencez par anticiper le comportement de l'utilisateur en 
prevoyant la gestion des fichiers absents, des formats de donnees incorrects, etc. La liste des 
points susceptibles de poser probleme est malheureusement longue, et elle depend de ce que 
fait votre application. 

Vous pouvez vous eviter nombre d'ennuis en gerant les erreurs et/ou en prevenant l'utilisateur 
du type de probleme et des methodes a suivre pour le corriger, quand c'est possible. Ne soyez 
pas surpris de voir un utilisateur planter votre application en quelques minutes alors que vous 
avez passe des heures, voire des semaines, a la rendre robuste. Quelqu'un trouvera toujours une 
facon de la planter. Lorsque c'est possible, demandez a d'autres personnes de tester votre appli- 
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cation. Demandez-leur de tester toutes les fonctionnalites et de vous informer des problemes 
qu'ils rencontrent. De cette facon, vous pourrez corriger et prevenir les erreurs. 

Lorsque vous decouvrez une erreur, il vous faut localiser rapidement la portion de code ou elle 
se produit. Vous trouverez parfois du premier coup d'ceil, mais ce ne sera pas toujours le cas. 
On rencontre frequemment deux types d'erreurs : des erreurs d'execution, et des erreurs de logi- 
que. 

Les erreurs d'execution sont celles que le compilateur a laisse passer mais qui se produisent 
lors de l'execution d'une portion specifique de votre code. Par exemple, si vous tentez d'ouvrir 
un fichier absent du disque sans vous etre assure de sa presence. 

Les erreurs de logique sont des imperfections dans la conception du code. Un bon exemple est 
une routine qui entre dans une boucle infinie, attendant un evenement qui ne se produit jamais. 
Le programme s'arrete alors. Ce probleme peut etre cause par une simple faute de frappe. 

II existe bon nombre de scenarios pour chacune de ces categories, et il est important de toujours 
les garder en tete lorsque vous ecrivez du code ou lorsque vous le deboguez. Dans la section 
suivante, vous apprendrez a retrouver rapidement les erreurs. 

debogueur 

Qu'est-ce qu'un debogueur ? Pour dire les choses simplement, c'est un logiciel qui vous permet 
d'executer votre code ligne par ligne afin d'examiner et de modifier la valeur des variables, 
constantes, objets, etc. Sans debogueur, vous etes oblige d'inserer du code de Debogage afin 
d'afficher a l'ecran, sur 1'imprimante ou dans un fichier, la valeur des variables et autres infor- 
mations que vous voulez surveiller. Ce processus prend du temps, et peut meme masquer cer- 
taines erreurs, comme celles liees a un timeout. Delphi dispose fort heureusement d'un 
debogueur de belle facture integre a l'EDI, qui vous permet de retrouver rapidement les erreurs 
afin de les corriger. Si vous n'etes pas habitue aux debogueurs, il vous faudra un peu de temps 
et de pratique avant d'utiliser correctement cet outil, mais le jeu en vaut la chandelle. Commen- 
90ns par un tour d'horizon du debogueur. 

Paramefrage des options de debogage 

Commencons par examiner les options de debogage de l'onglet Preferences de la boite de dia- 
logue Options d'environnement. Nous nous interesserons dans un premier temps aux options 
de debogage suivantes : Debogage integre, Pas a pas bloc programme et Stopper si exception. 
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Figure 6.8 

L'onglet Preferences de la 
boite de dialogue 
Options d'environnement. 




Le mieux est de conserver le parametrage par defaut, mais voici une breve description de ces 
options : 

• Debogage integre : Active le debogueur integre. 

• Pas a pas bloc programme : Arrete le programme a la premiere initialisation d'une unite 
comportant du code de debogage (ce code est insere par Delphi lors de la phase de compi- 
lation). 

• Stopper si exception : Force le debogueur a s'arreter pour afficher des informations rela- 
tives a l'erreur. 

L'onglet Compilateur de la boite de dialogue Options de projet (voir Figure 6.9) contient 
d'autres parametrages relatifs au debogage. Pour acceder a cette boite de dialogue, Selection- 
nez Projet I Options. Le groupe de debogage comporte quatre parametres : Informations de 
debogage, Symboles locaux, Informations sur symboles, et Assertions. 



Figure 6.9 

L'onglet Compilateur de la 
boite de dialogue Options de 
projet. 




Ici encore, nous vous conseillons de laisser les valeurs par defaut. Voici cependant la signifi- 
cation des options : 

• Informations de debogage : Stocke les informations de debogage dans les fichiers . DCU lors 
de la compilation. 
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• Symboles locaux : Stocke des informations sur les symboles dans les fichiers .DCU, ce qui 
vous permet d'utiliser le debogueur integre, ou un debogueur externe, afin d'examiner ou 
de modifier les variables locales au module. 

• Informations sur symboles : Permet de generer des informations relatives aux objets de 
l'application, informations stockees dans les fichiers . DCU. 

• Assertions : Permet de generer des assertions dans un fichier source. Cette option est 
activee par defaut, mais vous pouvez utiliser les directives de compilation $C+ et $C- pour 
l'activer ou la desactiver dans le code. 

Enfin, l'onglet Lieur de la boite de dialogue Options de projet comporte une autre entree 
interessante : Inclure infos de debogage TD 32. Cette option doit etre active si vous envisagez 
d'utiliser Turbo Debugger pour Windows. Quand elle est activee, cette option place des infor- 
mations supplementaires dans l'executable. Cette option est desactivee par defaut, et nous n'en 
aurons pas besoin dans le cadre de cet ouvrage. 

Les point's d'arret 

Nous allons, dans l'application Addition creee precedemment, inserer quelques modifications 
(dont l'une provoquera des erreurs) afin de voir comment fonctionne le debogueur lorsque vous 
recherchez une erreur dans une application. 

Tout d'abord, nous allons deplacer le code responsable de l'addition dans une procedure, et 
demander au gestionnaire d'evenement OnClick d'appeler cette procedure. Pour ce faire, ajou- 
tez la procedure suivante dans la section implementation : 

I implementation 
{$R * . DFM} 
procedure TForml .Aj outeNombre ; 
Var 
ValeuN ,Valeur2, Total : integer; 
begin 
ValeuM :=StrToInt(Edit1 .Text) ; 
ValeuM :=StrToInt(Edit2.Text) ; 
Label4 . Caption : =IntToStr (ValeuM +Valeur2) ; 
end; 

A present, ajoutez la ligne suivante a l'evenement OnClick, et supprimez le code qui y figurait 
precedemment : 

procedure TForml .Button1Click(Sender: TObject); 
begin 

AjouteNombre; 

end; 
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L edireur eV le debogueur 



Enregistrez les fichiers sous ces nouveaux noms : AdditionFiche2 . pas et Addition2 . dpr. 

Votre programme modifie devrait ressembler a celui du Listing 6.2. Assurez-vous qu'il est 
identique, car une erreur a ete inseree. 

Listing 6.2 : Application Addition contenant une erreur 
unit ajoutefiche2; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls; 

type 

TForml = class (TForm) 
Buttonl : TButton; 
Editl : TEdit; 
Edit2: TEdit; 
Labell : TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 

procedure Button1Click(Sender: TObject); 
private 

{ Declarations privees } 
procedure AjouteNombre; 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 



procedure TForml .AjouteNombre; 
Var 

Valeurl ,Valeur2, Total : integer; 



[ 190 DELPHI 3 




begin 



end . 



end; 



procedure TForml .Button1Click(Sender: TObject); 
begin 



AjouteNombre; 

end; 



Valeurl :=StrToInt(Edit1 .Text) ; 
Valeurl :=StrToInt(Edit2.Text) ; 
Label4 . Caption : =IntToStr (Valeurl +Valeur2) ; 



Lancez le programme et observez le resultat. Saisissez deux petits nombres a additionner et cli- 
quez sur le bouton Ajouter. Le resultat devrait etre incorrect. Utilisez le debogueur afin d'exa- 
miner le code et d'y trouver la cause du probleme. 

Le premiere chose a faire est d'etablir un point d'arret. Un point d'arret force le programme a 
s'arreter a la ligne sur laquelle il est place, sans executer ladite ligne. 

Pour definir un point d'arret, cliquez dans la gouttiere (la zone grisee a gauche du code dans la 
fenetre d'edition) de la ligne sur laquelle vous voulez definir un point d'arret ; dans notre cas, 
la ligne suivante : 

Valeurl :=StrToInt(Edit1 .Text) ; 

La ligne devrait apparaitre en surbrillance rouge, avec un point rouge situe dans la gouttiere, 
comme indique Figure 6.10 (en supposant que vous utilisiez le parametrage par defaut de 
Delphi). 

La gouttiere est visible par defaut, mais elle peut etre desactivee par les options d'environne- 
ment (onglet Affichage, en decochant la case gouttiere). Si la gouttiere est invisible, cliquez 
sur le premier caractere de la ligne oil vous desirez definir le point d'arret, et la ligne appa- 
raitra en rouge. 

Si vous definissez un point d'arret sur une ligne de code optimisee par Delphi, vous recupererez 
au moment de la compilation une boite de dialogue d'avertissement vous informant de ce qui 
s'est produit et vous demandant si vous desirez quand meme continuer. La meme boite de dia- 
logue apparait quand vous tentez de definir un point d'arret sur une ligne de declaration de 
variables. Lorsqu'une variable que vous desirez examiner a ete optimisee de la sorte, choisissez 
Voir I Gestionnaire de projet, et selectionnez l'onglet Compilation dans la boite de dialogue 
Options de projet. Vous pourrez alors desactiver l'optimisation dans la section Generation de 
code. Reportez-vous a l'aide en ligne pour avoir plus de details. 
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Figure 6.10 

L'editeur de code, gouttiere 
visible. 
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Mil I'D 8 0utt ^ re est une innovation de Delphi 3. Elle permet de reperer visuellement les lignes de 
I1UIC code, les lignes comportant un point d 'arret et la ligne en cours d' execution. Lorsqu'elle est 
invisible, ces lignes se reperent enfonction de leur couleur dans Vediteur de code. 

Executez le programme a nouveau. Tapez 4 comme valeur 1, et 5 comme valeur 2, puis 
appuyez sur le bouton Ajouter. L'editeur de code devrait apparaitre, indiquant l'emplacement 
du point d'arret, comme indique Figure 6.1 1 . Le point d'arret fait a present apparaitre une coche 
verte dans la gouttiere, indiquant que le programme est arrete a cet endroit. La ligne n'a done 
pas encore ete executee. En d'autres termes, la coche verte designe la prochaine ligne de code 
qui sera executee. 



Figure 6.11 

Vediteur de code en mode 
debogage, indiquant 
V endroit oil s'est arrete le 
programme. 




Une derniere chose concernant les points d'arret : vous pouvez definir des points d'arret spe- 
ciaux qui ne stopperont l'execution du code que lorsqu'une certaine condition sera remplie, ou 
lorsque le passage a la ligne mentionnee se sera fait un certain nombre de fois. Ceci peut etre 
utile, notamment lorsque votre code echoue au milieu d'une tres longue boucle. Pour utiliser 
ces fonctionnalites avancees, utilisez l'option de menu Executer I Ajouter point d'arret afin 
d'acceder a la boite de dialogue Modification de point d'arret. Nous n'en parlerons pas plus lon- 
guement ici ; referez-vous a l'aide en ligne pour plus d'informations. 
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flutres options de debogage 

Le menu Executer de Delphi comporte d'autres options de debogage, avec leur raccourci 
clavier : 

• Executer (F9) : Compile et execute, ou (en mode debogage) reprend l'execution. 

• Pas a pas (F8) : Execute le code ligne par ligne, sans tracer dans les appels de fonctions et 
procedures. 

• Pas a pas approfondi (F7) : Execute le code pas a pas, y compris les procedures et 
fonctions. 

• usqu'a la prochaine ligne (Shift+F7) : Va a la ligne suivante. 

• Jusqu'au curseur (F4) : Continue l'execution jusqu'au curseur. 

• Montrer le point d'execution : Place le curseur sur le point d'execution. 

A present que vous maitrisez les options de debogage, revenons a notre programme d'addition. 

Examiner la valeur des variables en uNlisant des points 
de suivi 

II existe deux facons d'examiner la valeur stockee dans une variable : en utilisant des points de 
suivi, ou alors une nouvelle fonctionnalite appelee l'evaluateur d' expressions (dont nous parle- 
rons dans la prochaine section) . 

Un point de suivi vous permet d'indiquer le nom des variables que vous desirez surveiller et 
d'avoir leur valeur affichee dans une petite fenetre. Pour ajouter un point de suivi, vous pouvez 
soit appuyer sur Ctrl+F5, soit selectionner Executer I Ajouter point du suivi. Vous accederez 
ainsi a la boite de dialogue Proprietes du point de suivi presentee Figure 6.12. Vous pouvez 
pour chaque point de suivi specifier le nom de variable, le type, et des expressions telles que 
Valeur1+Valeur2 ou IntToStr(Valeur1 ). 



Figure 6.12 

La boite de dialogue 
Proprietes du point de suivi. 
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Dans cette boite de dialogue, tapez Valeurl dans la zone de texte Expression. Vous devriez 
alors voir apparaitre la fenetre de suivi dans laquelle les variables suivies ainsi que leur valeur 
s'affichent, comme indique Figure 6.13. 



Figure 6.13 

La boite de dialogue Liste 
des points de suivi. 




Si la variable n'a pas encore ete creee ou n'a pas encore recu d'affectation, differents messages 
sont affiches, indiquant le statut de la variable, a la place de sa valeur. Le message peut etre 
Valeur inaccessible, ce qui signifie soit que le code qui cree la variable n'a pas encore ete exe- 
cute, soit qu'il a ete execute et que la variable a ete retiree de la memoire. Vous pouvez egale- 
ment voir apparaitre le message Inaccessible ici du fait de l'optimisation, comme indique 
Figure 6.13, ce qui signifie le plus souvent que la variable n'a pas encore ete affectee. Lorsque 
les lignes affectant ou modifiant la valeur de la variable sont executees, cette valeur apparait 
dans la fenetre. 

Dans notre application Addition, ajoutez un point de suivi pour les variables Valeur2 et Total. 
Pour ce faire, acceder a la boite de dialogue de suivi d' expression comme indique ci-avant, 
tapez le nom de la variable que vous desirez surveiller (par exemple Valeur2) dans la zone de 
texte Expression, puis cliquez sur OK. Vous devez proceder de meme pour chacune des varia- 
bles que vous desirez surveiller. Appuyez ensuite sur F8 (Pas a pas) deux fois afin de passer 
dans le reste de la procedure, ce qui vous permettra d'inspecter le contenu des variables. Que 
decouvrez-vous alors ? Valeurl a la valeur qui aurait du etre affectee a Valeur2, Valeur2 com- 
porte une valeur etrange que vous ne lui avez jamais affectee, et Total comporte un message 
indiquant qu'il a ete supprime par le lieur. 

Revenez a la procedure Aj outeNombre du Listing 6.2, et vous verrez que la valeur de Edit2. 
Text a ete affectee a Valeurl au lieu de Valeur2. Cette erreur se produit le plus souvent lors- 
qu'en recopiant une ligne par un copier/coller, vous oubliez d'adapter la ligne apres sa copie. 
De ce fait, Valeur2 n'a jamais ete initialisee, et contient une valeur aberrante. 

Voici pour Valeurl et Valeur2, mais que s'est-il passe pour Total ? Dans notre exemple, cette 
variable n'a jamais ete utilisee, le lieur l'a done supprimee. Ceci se produit souvent lorsque vous 
laissez dans votre code des variables que vous pensiez utiles et qui n'ont jamais servi. II ne 
s'agit pas a proprement parler d'une erreur, mais le compilateur vous signale le fait afin que 
vous puissiez, si vous le desirez, supprimer la variable incriminee. 
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Indicateur de stalvr pendont le debogoge 

Remarquez la zone de liste situee sous l'editeur. Elle affiche les erreurs, les avertissements, etc. 
Des barres de defilement apparaissent quand tous les messages ne tiennent pas dans la zone 
visible (cf. Figure 6.11). Vous trouverez la des informations utiles pendant les sessions de 
debogage. 

Voici les erreurs affichees par le programme Addition : 

Conseil:...(36) : Valeur affectee a 'ValeuM' jamais utilisee. 
, Avertissement :...(38) : La variable 'Valeur2' n'est peut-etre pas initialisee. 
. Conseil:...(34) : La variable 'Total' est declaree mais jamais utilisee dans 

'AjouteNombre ' . 

Maintenant que vous avez decouvert certaines erreurs en utilisant le debogueur, vous pouvez 
modifier le code afin de les corriger et faire fonctionner correctement le code. Assurez-vous de 
sortir du programme avant d'effectuer des corrections. Pour ce faire, appuyez sur CTRL+F2. 
Revenez a la procedure AjouteNombre et changez ValeuN en Valeur2 dans ladeuxieme ligne 
apres le begin. Supprimez egalement la variable Total de la section de declaration des varia- 
bles. Relancez le programme en tapant F9. Lorsque vous appuierez sur le bouton apres avoir 
saisi deux valeurs, le programme s'arretera au point d'arret que vous aviez defini, mais les 
erreurs auront disparu ; elles devraient apparaitre conformes a vos attentes au fur et a mesure 
de votre parcours du code (touche F8). 

Examiner la valeur des variables avec I'Evaluateur 
^expressions 

La deuxieme facon d'inspecter la valeur des variables utilise une nouvelle fonctionnalite appe- 
lee I'Evaluateur d'expressions. Vous pouvez placer le curseur sur une variable, un objet ou un 
parametre, et sa valeur s'affichera dans une info-bulle placee a cote du curseur. 

Cette methode est beaucoup plus rapide et simple d'emploi que l'utilisation des points de suivi. 
Vous gagnerez un temps precieux si vous ne vous interessez qu'a un petit nombre de variables 
sur une petite section de code. 

Deboguer une DLL 

Delphi 3 dispose d'une nouvelle fonctionnalite de debogage qui vous evitera pas mal de nuits 
blanches. II est a present possible de deboguer les DLL Delphi en utilisant le debogueur de 
Delphi. En definissant un point d'arret dans le code d'une DLL, si vous fournissez le nom d'un 
programme appelant la DLL, Delphi lance l'application hote et attend que cette derniere appel- 
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le la DLL. L execution sera suspendue des que le point d'execution atteindra un point d'arret 
dans la DLL. Voila qui devrait vous simplifier la tache. 



Dans le passe, il fallait plusieurs programmes de debogage, ou bien extraire le code des DLL 
pour le faire tourner dans une application Delphi classique, en esperant que tout se passe bien 
une fois le code reintegre dans la DLL. Bien que ces methodes aient fait leurs preuves, la 
methode proposee par Delphi est beaucoup plus agreable et rapide d'emploi. 

Sans trop entrer dans les details, voyons cependant comment se passe une session de debogage 
de DLL en Delphi. Creez la DLL suivante en choisissant Fichier I Nouveau et en selectionnant 
DLL dans la boite de dialogue Nouveaux elements, puis enregistrez le resultat sous le nom 
MYMATH . DPR. 



Listing 6.3 : Debogage d'une DLL, listing d'exemple 
library mymath; 

{ Remarque importante a propos de la gestion memoire des DLL: ShareMem 
doit etre la premiere unite dans la classe USES de votre bibliotheque 
ET dans la classe USES de votre projet (selectionnez Voir-Source du 
projet) si vos DLL exportent des procedures ou des fonctions passant en 
parametre des chaines ou des resultats de fonction. Ceci s 1 applique a 
toutes les chaines passees par ou a vos DLL--memes celles qui sont 
imbriquees dans des enregistrements ou des classes. ShareMem est l'unite 
d'interface au gestionnaire de memoire partagee DELPHIMM.DLL, qui doit 
etre deploye avec vos propres DLL. Pour eviter l'emploi de DELPHIMM.DLL, 
passez vos chaines en utilisant des parametres PChar ou ShortString. } 

uses 

SysUtils, 
Classes; 

function Sqr(Num : integer) : integer; export ; 
begin 

Sqr:=Num*Num; 

end; 
exports 
Sqr; 
begin 
end. 
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Analyse du code 

Ce programme cr'ee une DLL disposant d'une fonction appelee sqr, qui se contente d'elever 
un nombre au carre avant de renvoyer le resultat au programme appelant. 

II nous faut maintenant un programme a meme d'appeler la DLL afin de la deboguer. Creez une 
nouvelle application Delphi en selectionnant Fichier I Nouvelle application. Disposez sur cette 
fiche trois labels, un bouton et un champ d'edition, et utilisez le code du Listing 6.4. Enregistrez 
l'unite sous le nom SQRTEST . PAS et le projet sous le nom TESTSQR . DPR (dans le repertoire ou 
vous avez cree la DLL). Selectionnez Projet I Tout construire. 

Listing 6.4 : Application TESTSQR servant a tester la DLL pour debogage 
unit sqrtest; 
interface 
uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls; 



type 

TForml = class (TForm) 
Editl : TEdit; 
Buttonl : TButton; 
Labell : TLabel; 
Label2: TLabel; 
Label3: TLabel; 

procedure Button1Click(Sender: TObject); 
private 

{ Private declarations } 
public 

{ Public declarations } 
end; 

var 

Forml : TForml ; 

function Sqr(Num : integer) : integerjfar; external 'mymath.dll'; 
implementation 

{$R * . DFM} 
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procedure TForml .Button1Click(Sender: TObject); 
begin 

Label3.Caption:=IntToStr(Sqr(StrToInt(Edit1 .Text) ) ) ; 

end; 
end. 

Inffl Analyse du code 

I Ce code appelle la fonction sqr definie dans la DLL que vous avez cr'e'ee au Listing 6,3. La 
valeur de Editl . Text est pass'ee a la DLL lors de Vappel a sqr. La valeur renvoy'ee par la 
DLL est affichee dans Label3. Caption. 

Une fois ces deux programmes compiles sans erreur, testez la DLL en executant le programme 
TESTSQR. EXE. Si tout se passe bien, une fenetre apparait dans laquelle vous pouvez saisir une 
valeur (cf. Figure 6.14). Lorsque vous cliquez sur le bouton Carre, le carre du nombre devrait 
apparaitre. Par exemple, tapez 4 et appuyez sur le bouton Carre. 1 6 s'affiche alors dans la boite 
d'edition. A present, editez le source de la DLL et choisissez Executer I Parametres pour obtenir 
la boite de dialogue Parametres d'execution. Saisissez le chemin d'acces et le nom de Implica- 
tion note, dans notre cas : TESTSQR . EXE. Lorsque vous executez, Delphi lance l'application hote 
mais s'arrete a tout point d'arret defini dans la DLL. Les procedures de debogage sont alors 
identiques a celles des applications classiques. 

Vous avez vu a quel point le debogage des programmes est facilite par le debogueur integre a 
Delphi. Mais que faire lorsque quelque chose d'inattendu se produit au niveau de Windows ou 
dans des programmes que vous n'avez pas ecrits ? Cette question nous amene a la derniere sec- 
tion de cette journee, consacree a WinSight32. 



WinSighf32 

Une etude approfondie de WinSight32 sortirait du cadre de ce livre, d'autant plus que cet outil 
repose sur le fonctionnement interne de Windows et que les connaissances associees sont dif- 
ficiles d'acces. C'est pourquoi cette presentation de WinSight32 sera des plus breves : il ne 
s'agit que de vous mettre au courant de l'existence de cet outil. 

WinSight32 fait partie de la famille des espions systeme. II permet d'examiner les process Win- 
dows en cours d'execution, de tracer les fenetres et process enfant, d'intercepter les messages 
systeme, et plus encore. Si vous rencontrez des problemes avec une application (le plus souvent 
des problemes de communication entre Windows et votre application ou une autre), 
WinSight32 peut vous permettre de verifier les messages passant entre les deux process. 
Reportez-vous a la documentation en ligne si vous desirez approfondir le sujet. 
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Recapifulatif 

Lors de cette journee, vous avez decouvert des fonctionnalites et des options de l'editeur de 
Delphi, notamment des systemes de completion automatique de commande ou de rappel des 
parametres sous forme d'info-bulles. Vous avez appris a utiliser le debogueur, aussi bien dans 
des applications Delphi classiques que dans des DLL. Enfin, nous avons tres brievement parle 
de WinSight32, un outil qui vous permet d'observer les objets, messages et process Windows. 

Nous ne vous avons donne dans cette partie qu'un apercu des techniques de debogage, mais 
vous devriez cependant en savoir assez pour savoir quelles informations rechercher et quelles 
methodes adopter lors de votre prochaine session de debogage. N'hesitez pas a vous reporter a 
l'aide en ligne de Delphi ainsi qu'aux manuels pour en savoir plus. 

Atelier 

L'atelier vous donne trois moyens de verifier que vous avez correctement assimile le contenu 
de cette lecon. La section Questions - Reponses reprend des questions posees frequemment et 
y repond, la section Questionnaire vous pose des questions dont vous trouverez les reponses 
en consultant l'Annexe A, et les Exercices vous proposent de mettre en pratique ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Y a-t-il d'autres touches de raccourci actives dans l'editeur ? 

R Oui. Si vous avez deja pratique des editeurs WordStar, vous devriez etre familier de 
Ctrl+Y pour effacer une ligne. Soyez cependant prudent : si vous passez en environne- 
ment Brief ou Epsilon, les raccourcis clavier avec lesquels vous avez grandi peuvent se 
reveler surprenants. 

Q La case Application note est grisee dans la boite de dialogue Parametres d'execution. 
Pourquoi ? 

R Cette zone n'est utilisable que lorsque vous etes en train de travailler sur une DLL. 
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Questionnaire 



1 . Quelles sont les options predeterminees de l'editeur ? 

2. Ou active-t-on la mise en evidence de la syntaxe ? 

3. A quoi la gouttiere sert-elle ? 

4. Comment debogue-t-on une DLL ? 

5. Qu'est-ce que WinSight32 ? 

6. Comment peut-on evaluer la valeur des variables sans utiliser les points de suivi ? 

7. Lorsque vous definissez un point d'arret sur une ligne, cette ligne est executee avant que 
le programme suspende son execution. Vrai ou Faux ? 

8. Comment relance-t-on l'execution d'un programme apres un point d'arret ? 



1. Dans le menu Outils I Options d'environnement, modifiez les options d'affichage et les 
options de l'editeur. Parcourez l'aide en ligne afin de connaitre les fonctionnalites et les 
raccourcis clavier des options que vous avez choisies. Effectuez cette demarche pour au 
moins deux options, dont l'option par defaut. 

2. Lancez WinSight32, testez les differentes options et parcourez l'aide en ligne. 



Exercices 
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Une des grandes qualites de Windows pour un utilisateur c'est que la plupart des applications 
ont un aspect et un ordonnancement similaires. Une fois que vous avez utilise plusieurs appli- 
cations, vous pouvez presque automatiquement deviner ou se trouvera telle ou telle fonction 
dans une application que vous utilisez pour la premiere fois. Ceci est valable pour tout, de l'ins- 
tallation au menu d'aide qui se trouvera toujours a l'extreme droite de la barre de menus. Vous 
avez deja du vous rendre compte de cela, sans savoir forcement pourquoi tout semble se con- 
former a quelque mysterieuse regie. 

Microsoft a donne des specifications de conception pour les logiciels Windows afin de modi- 
fier la philosophie de l'utilisateur. Le plus important n'est plus d'apprendre les nuances de 
l'interfacage avec votre application, mais de devenir productif avec elle. Microsoft essaye de 
faire appliquer ces specifications dans le cadre de son programme d' action Logo Win95. Selon 
ce nouveau programme, votre application doit satisfaire aux criteres Microsoft si vous souhai- 
tez pouvoir faire figure "Concu pour Windows 95" sur l'emballage de votre logiciel. Lorsque 
vous voyez un tel logo sur un logiciel ou un peripherique, vous pouvez etre stir que le produit 
fonctionnera parfaitement dans l'environnement Windows 95 et qu'il est concu en accord avec 
les specifications de conception. Delphi 3 est concu pour vous aider a developper des applica- 
tions qui satisfont aux specifications du Logo Win95. Borland vous fournit les outils, mais le 
plus gros des efforts vous incombe. Lors de cette journee, je vous montrerai comment conce- 
voir votre application pour la rendre plus facile d'usage, et comment la rendre eligible pour le 
logo Windows 95 . 



Pourquoi une interface graphique ufilisofeur ? 

Apres tout, est-ce qu'une interface graphique utilisateur (GUI en anglais) est vraiment 
indispensable ? La reponse est non. Les utilisateurs ont utilise des lignes de commandes pen- 
dant des decennies et ont survecu, et rien ne nous empecherait d'en utiliser pendant des decen- 
nies encore. Sauf peut-etre qu'on se rendrait terriblement malheureux. Quand des utilisateurs 
DOS passent a Windows 3.1 puis a Windows 95 leurs yeux s'illuminent a mesure qu'ils com- 
prennent ce que ces interfaces graphiques peuvent signifier en terme de gain de productivity. 

Une interface utilisateur graphique (IGU ou GUI) est un type de format d'affichage qui 
permet a un utilisateur de choisir des commandes, de lancer des programmes et d'afficher des 
listes defichiers et d'options en pointant sur des representations pictographiques (des icbnes) 
et sur des listes d'elements de menu presents a V'ecran. On effectue gen'eralement des choix au 
moyen d'un clavier ou d'une souris. Windows 95 est un exemple de GUI. 

Les GUI existent parce que nous en avons besoin. Quand on doit chaque jour acceder a pas 
moins de 12 applications, on passerait son temps a lancer et a refermer des applications si on 
ne disposait que d'une ligne de commande et il resterait peu de temps pour vraiment travailler. 
Tout est question de productivite. La productivite s'ameliore si Ton peut acceder simultanement 
a plusieurs applications. Basculer entre cc:Mail, Delphi 3, WinZip, WinCim, l'Explorateur, etc. 
est un jeu d'enfant dans l'environnement Windows. Inutile de refermer une application pour 
acceder a une autre, ce qui fait gagner un temps fou. 
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Prototypage ef developpement rapide 



Vous avez peut-etre deja entendu ce terme barbare de prototypage rapide. Ce terme d'ecrit la 
methode consistant a cr'eer des modeles fonctionnels de V interface de votre application dans 
les premiers temps du processus de conception. 

Vous pouvez alors presenter cette interface a vos clients et recueillir leurs impressions sur le 
comportement, le placement des objets, la facon dont les fonctions sont incluses, etc., tout en 
leur donnant le sentiment que vous vous preoccupez de leurs desks. Plusieurs produits existent 
qui se chargent de faciliter le prototypage rapide. Ces logiciels construisent des applications en 
"trompel'oeil" qui ne traitent aucune donnee mais donnent une bonne idee de l'interface. Les 
choses ont evolue cependant, et ces logiciels sont devenus obsoletes. 

Avec l'arrivee d'une nouvelle generation d'outils RAD comme Delphi 3 et Visual Basic 4, ces 
outils de prototypage rapide ne sont plus necessaires. Vous pouvez maintenant utiliser les 
outils RAD eux-memes pour creer ces squelettes d'application destines a la demonstration. 

Le terme de RAD (developpement rapide d 'applications) est assez parlant. A Vaide d'un 
ensemble d'outils sophistiques (Delphi 3, par exemple), le programmeur developpe rapide- 
ment des applications finalisees. En effet, les outils permettent au programmeur de mettre en 
ceuvre les fonctionnalites les plus complexes sans fournir un travail d'emesur'e. Ainsi, vous 
pouvez utiliser les boites de dialogue Ouvrir et Enregistrer, qui sont des boites de dialogues 
communes de Windows 95, au lieu de devoir les concevoir en partant de zero. Vous pouvez 
aussi utiliser le contrble conteneur OLE pour incorporer une feuille de calcul Excel dans 
V application, sans devoir ecrire un tableur en Delphi. Delphi 3 est Vexemple meme d'un envi- 
ronnement de developpement RAD, puisqu'il met a votre disposition des outils permettant de 
cr'eer de tres bonnes applications en peu de temps et moyennant peu de codage. 

Voila done resolu le probleme de la repetition des efforts. Quand vous creiez une interface de 
demonstration et que le client s'en estimait satisfait, vous deviez recoder l'interface en utilisant 
les outils permettant de generer une veritable application. II fallait faire deux fois la meme cho- 
se. Avec Delphi 3, vous pouvez commencer par developper l'interface, la montrer a votre 
client, puis terminer l'application, et tout cela dans le meme environnement. 

Pour que la conception de votre GUI se deroule bien, vous devez prendre un autre facteur en 
consideration : votre equipe de developpement de GUI. Vous travaillez peut-etre seul pour 
l'instant, mais a mesure que les produits que vous developperez gagneront en taille et en com- 
plexity, vous aurez besoin d'aide. Lorsque vous mettez sur pied une equipe de developpement 
GUI, n'allez surtout pas faire appel a des programmeurs ! Les programmeurs sont les pires con- 
cepteurs car ils estiment evidentes nombre de choses qui depassent l'utilisateur moyen. Votre 
equipe de developpement GUI doit etre constituee de personnes venant d'horizons divers, par- 
mi lesquelles des redacteurs, ergonomistes, mais aussi des utilisateurs de divers niveaux de 
competence. Evidemment vous ne disposez peut-etre pas des ressources necessaires a l'embau- 
che de tout ce petit monde, mais vous comprenez le principe. La constitution d'une bonne equi- 
pe est primordiale au developpement d'une interface utilisateur reellement efficace. 
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Une fois que votre produit a ete code, les tests d'utilisabilite vous montreront ce que vaut votre 
conception. Le meilleur testeur de votre logiciel est votre vieille maman qui ne connait rien a 
l'informatique. II est inutile de prendre en consideration les exigences d'un crack de l'informa- 
tique en ce qui concerne l'interface utilisateur, a moins que votre logiciel ne soit justement des- 
tine a un public de "cracks". 



Priorife a I'ufilisafeur 

Lorsque vous construisez votre application, il est important que vous gardiez a l'esprit les prin- 
cipes qui ont guide l'ecriture de Windows 95. Pour satisfaire les besoins de l'utilisateur, Micro- 
soft s'appuie sur sept principes. Examinons-les ensemble. 

• L'utilisateur a le controle 

• Etre direct 

• La coherence 

• Etre magnanime 

• Du repondant 

• De l'esthetique 

• De la simplicite 

1/uNlisateur a le controle 

Personne n'aime se sentir manipule, a plus forte raison par un ordinateur. L'utilisateur doit tou- 
jours sentir qu'il a le controle de ce qui se deroule a l'ecran. II doit avoir l'impression que c'est 
lui qui prend l'initiative d'une action au lieu de reagir aux desirs de l'ordinateur. Si vous comp- 
tez automatiser grandement votre application, vous devez vous assurer que l'utilisateur garde 
le controle sur ces evenements automatises. 

Chaque utilisateur est un individu a part. II a des gouts et des besoins qui lui sont propres. II est 
important de pre voir un moyen de personnaliser votre application. Voyez par exemple comme 
il est aise de personnaliser l'interface de Windows 95 . La possibilite de modifier les polices, les 
couleurs, les icones et tant d'autres elements permet de donner un aspect personnel au systeme. 
La plupart de ces attributs Windows vous sont accessibles a vous, le programmeur. Tirez-en 
partie et donnez la possibilite a votre programme de suivre les choix de couleurs et de polices 
deja en place dans le systeme sinon, votre application semblera rigide et austere. 

Avez-vous deja regarde la facon dont une bonne application interagit avec l'utilisateur ? Une 
bonne application vous indique ce qui se passe ou dans quel "etat" ou quel "mode" vous vous 
trouvez. Si vous etes en mode ecrasement dans Microsoft Word, les lettres RFP apparaissent 
dans la barre d'etat. Votre application doit etre aussi interactive que possible. Elle doit savoir 
repondre aux sollicitations et ne jamais laisser l'utilisateur se demander ce qui se passe. 
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Eire direcr 



Permettez aux utilisateurs de manipuler directement les objets dans leur environnement. La 
phrase "une image vaut mille mots" prend chaque jour plus de sens. II est bien plus facile de se 
souvenir a quoi ressemble quelque chose que de memoriser la syntaxe d'une commande. Je 
vois souvent des utilisateurs se souvenir comment accomplir une tache en disant " Je fais glisser 
ce machin et je le pose sur ce truc-la et 9a imprime" . Meme si ce n'est pas le cas pour vous, c'est 
comme 5a que la plupart des gens raisonnent. Essayez de concevoir votre logiciel pour qu'il 
soit visuellement intuitif . Permettez aux utilisateurs de voir comment ce qu'ils font affecte les 
objets a l'ecran. 

Un des modes d'interaction les plus directs entre l'homme et l'ordinateur se fait par l'interme- 
diaire de metaphores. L'usage de metaphores a une bonne part dans le succes du Macintosh. La 
notion de dossier est bien plus parlante que celle de repertoire ou de fichier. Une "armoire" est 
remplie de "dossiers", qui contiennent a leur tour des "documents". Tout ceci est immediate- 
ment comprehensible et la maitrise de l'ordinateur en est simplifiee. Avec les metaphores, l'uti- 
lisateur reconnait au lieu de devoir apprendre. Les utilisateurs se souviennent generalement 
plus facilement d'un objet que d'une commande. 

La coherence 

C'est un des aspects les plus importants de la conception d'un programme Windows. C'est prin- 
cipalement par un souci de coherence que le logo Windows 95 a ete developpe. Si toutes les 
applications sont coherentes dans leur maniere de presenter des donnees et dans leur facon 
d'interagir avec l'utilisateur, ce dernier passe son temps a accomplir les taches, et pas a appren- 
dre a communiquer avec votre application. Cette coherence doit s'exprimer sur plusieurs 
points : 

• Assurez-vous que votre application fonctionne comme le systeme d'exploitation Windows. 
Si c'est le cas, l'utilisateur peut facilement mettre a profit ses connaissances de Windows 
dans votre application. 

• Verifiez la coherence interne de votre application. Si Ctrl + C sert de raccourci pour 
l'impression sur un ecran, n'utilisez pas Ctrl + D sur un autre ecran. 

• Assurez-vous de la coherence de vos metaphores. Si une icone Trou noir est la meme que 
la Corbeille, les utilisateurs penseront qu'ils peuvent aussi recuperer les documents dans 
cette icone (alors que votre Trou noir fait disparaitre definitivement vos fichiers). 

Nous reviendrons sur la coherence un peu plus loin dans cette lecon lorsque nous parlerons des 
menus, des barres d'outils et des autres controles usuels. 

Eire magnanime 

On passe souvent un bon moment a explorer une nouvelle application, a appuyer sur les bou- 
tons pour voir ce qui se passe. Dans une application bien ecrite, cela ne pose jamais de proble- 
me. Si Ton est sur le point d'effectuer une action qui formatera le disque dur, une boite de 
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dialogue apparait et previent de ce qui risque d'arriver. II suffit alors d'appuyer sur le bouton 
Annuler qui est obligeamment propose, et rien n'est perdu. 

C'est la le concept de magnanimite. Vous devez laisser les utilisateurs explorer votre applica- 
tion. Toutes les actions de l'utilisateur doivent etre reversibles ou corrigibles. Les utilisateurs 
doivent etre prevenus a Vavance de l'aspect potentiellement dangereux d'une action qu'ils 
s'appretent a effectuer. II arrive aussi que l'utilisateur clique au mauvais endroit. L'erreur est 
humaine. Vous devez en tenir compte et exiger confirmation de toute action potentiellement 
destructive, au cas ou il s'agirait d'une erreur. 

Mnl-Q Vous pouvez eventuellement donner a l'utilisateur la possibility de d'esactiver certains 
I1UIG messages de confirmation une fois qu'il est habitue au fonctionnement de Vapplication. Une 
boite de dialogue d'options a onglets permettant a l'utilisateur de d'esactiver la confirmation 
| des suppression de clients, de fichiers, etc. serait bien utile dans le cadre d'une utilisation 
professionnelle de votre application. 

Du repondanf 

II n'y a rien de plus irritant qu'un ordinateur qui fait son mysterieux. On ne sait pas ce qu'il est 
en train de faire, et il n'indique rien. Une regie d'or : faites toujours savoir a l'utilisateur ce qui 
se passe. Tenez-le informe regulierement. Vous pouvez combiner des indices visuels et sono- 
res pour montrer a l'utilisateur que vous ne l'avez pas oublie. 

II est important que la reaction s'exprime pres de l'endroit ou l'utilisateur travaille. S'il entre des 
donnees au sommet de l'ecran, n'affichez pas un message d'erreur en bas (a moins qu'il n'y ait 
une barre d'etat). Vous pouvez changer la forme du curseur pour indiquer une condition parti- 
culiere (comme le tristement celebre sablier qui indique que le systeme est occupe). Un utili- 
sateur ne supporte pas que son ordinateur fasse le mort plus de quelques secondes. 

De resfheNque 

Votre application doit aussi etre visuellement agreable. Cela suppose plusieurs choses. En plus 
d'utiliser les couleurs systemes pour votre ecran (pour que votre application se fonde dans 
l'environnement), le design de l'ecran lui-meme est de toute importance. La disposition des 
objets determine la facilite d'usage de votre ecran, de meme que le nombre d'objets sur votre 
ecran. Dans la mesure du possible, respectez la "regie de sept". Ne donnez que sept choix a 
l'utilisateur (a deux pres). Ce nombre de cinq a neuf choix decoule de recherches sur le nombre 
de choses que le cerveau peut embrasser simultanement. Avec plus de neuf objets, l'utilisateur 
s'embrouille. Nous reviendrons sur la conception de l'ecran dans la suite de cette partie. 

De la simplicite 

Le dernier principe de conception est la simplicite. Votre application doit etre facile d'appren- 
tissage et d'usage. Vous devez trouver un equilibre entre deux concepts opposes : permettre 
faeces a toutes les fonctions et informations de l'application tout en gardant l'interface et la 
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manipulation de l'application aussi simple que possible. Une bonne application sait menager 
ces deux principes. 

Ne soyez pas trop verbeux quand vous creez vos ecrans. Dans vos libelles de champs d'entree 
de donnees, ecrivez "Nom" et pas "Le nom de famille du client". Essayez de vous exprimer en 
un minimum de mots sans pour autant perdre en sens. Microsoft recommande egalement le 
concept de revelation progressive. En d'autres termes, presentez les donnees seulement lorsque 
c'est necessaire. Ainsi, dans un programme de repertoire, vous pouvez montrer le nom et le 
numero de telephone d'une personne sur l'ecran initial, et laisser l'utilisateur appuyer sur un 
bouton s'il desire la totalite des informations concernant la personne. 

Conception cenfree sur les donnees 

Vous avez sans doute deja utilise sans le savoir une application dont la conception est centree 
sur les donnees. 

Une conception centree sur les donnees signifie que l'utilisateur peut manipuler des donnees 
specifiques sans devoir f aire appel a des editeurs ou des applications ext'erieures. Lorsque 
l'utilisateur commence a agir sur les donnees (pour les visualiser ou les editer), les outils 
adequats deviennent automatiquement disponibles. 

Ce concept est applique dans des applications telles que Microsoft Word. Ainsi, lorsque vous 
cliquez sur un dessin, la barre d'outils Dessin apparait au bas de l'ecran, proposant tous les 
outils necessaires a la manipulation du dessin. 

Le concept de document permet de bien mettre en place les concepts dans l'esprit de l'utilisa- 
teur. La vision des choses centree sur le document est facile a memoriser. Et les documents ne 
se limitent pas aux applications de traitement de texte. De nombreuses applications autres que 
des traitements de texte utilisent des documents. Dans certains logiciels de communication, les 
transferts de fichiers sont meme appeles "transferts de documents". 

Quel modele pour son Application? 

Nous devons maintenant parler de la gestion des fenetres. II existe deux modeles d'application 
differents, l'interface de document unique (SDI en anglais) et l'interface de documents multi- 
ples (MDI en anglais). En choisissant Fichier/Nouveau/Projets, puis application SDI ou appli- 
cation MDI, vous pouvez creer un squelette d'application. Si vous n'avez jamais eu affaire a 
des applications MDI, vous ne savez pas forcement quels sont les avantages du MDI sur le SDI, 
ni quels sont les criteres vous permettant de choisir une methode plutot qu'une autre. 

Dans la quasi-totalite des cas, une application peut etre interfaced avec l'utilisateur par le biais 
d'une fenetre primaire unique. Si des informations supplementaires doivent etre affichees ou 
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collectees, une fenetre secondaire peut etre utilisee. Un bon exemple d'application SDI est 
l'Explorateur. L'Explorateur comporte une unique fenetre primaire qui contient pratiquement 
toutes les informations necessaires a son utilisation. Lorsque vous consultez des proprietes, une 
fenetre secondaire apparait. Avec une application SDI il est plus facile pour vous, le deve- 
loppeur, de gerer la relation exclusive entre l'ecran et les donnees qu'il contient. 

Une application MDI comporte aussi ses avantages. Microsoft Word est un bon exemple 
d'application MDI. Une application MDI a une fenetre parent (la fenetre primaire) et plusieurs 
fenetres enfant (aussi appelees documents). II arrive qu'il soit plus efficace d'afficher des infor- 
mations dans plusieurs fenetres qui partagent des elements d'interface (comme une barre 
d'outils ou une barre de menus). Les fenetres de document sont controlees ou decoupees par le 
parent. Si vous reduisez la taille de la fenetre parent, les fenetres enfant peuvent etre masquees. 

Dans quel cas doit-on utiliser une application MDI ? Ces cas sont rares. Tout d'abord, MDI ne 
doit etre utilise que lorsque toutes les fenetres enfant seront utilisees pour contenir des objets 
identiques (tels que des documents ou des feuilles de calcul). N'utilisez pas MDI si vous comptez 
avoir differents types de fenetres enfant (des documents et des feuilles de calcul ensemble par 
exemple). N'utilisez pas MDI si vous souhaitez decider de la fenetre qui sera au sommet en utili- 
sant la propriete "rester au sommet", si vous souhaitez controler la taille des enfants, ou encore si 
vous souhaitez pouvoir masquer et montrer une fenetre enfant. MDI a ete con§u pour un type tres 
particulier d'application, comme Word ou Excel, pour qui les enfants sont tous uniformes. 
Essayer de "forcer" une implementation MDI sur une application d'un autre genre rendra malheu- 
reux developpeur et utilisateurs . Enfin, il convient de remarquer que Microsoft n'encourage pas 
le developpement de nouvelles applications MDI (en grande partie a cause du grand nombre de 
pietres applications MDI developpees sous les versions precedentes de Windows). 



Les composanfs d une fenetre 

Nous allons revoir ensemble les bases de l'interface. Une fenetre type est constituee d'un cadre 
et d'une barre de titre identifiant le nom de l'application dans la fenetre, ou l'objet actuellement 
visualise dans la fenetre, comme indique Figure 7.1. Si l'objet visualise est plus grand que la 
fenetre, des barres de defilement apparaissent pour que l'utilisateur puisse faire defiler l'ensem- 
ble de la fenetre. 



DELPHI 3 



Figure 7.1 

Une fenetre generique. 





Le cadre de la fenetre (s'il est dimensionnable) doit inclure une poignee de dimensionnement 
situee dans le coin en bas a droite. En plus de la barre de titre, plusieurs autres elements peuvent 
se trouver sur la fenetre, tels que des menus, des barres d'outils, des barres d'etat et d'autres 
encore. Examinons ensemble chacun de ces elements, en insistant sur la facon dont on doit les 
construire pour qu'ils satisfassent les exigences d'une bonne conception. 

Icones de barre de hire 

Lorsque vous construisez une application Windows, votre fenetre primaire doit contenir une ver- 
sion reduite de l'icone de votre application. Cette icone represente le produit, si ce produit n'est 
pas un utilitaire ou un outil qui cree ou visualise un document d'aucune sorte. La Figure 7.2 
montre une barre de titre standard. 



Figure 7.2 

Barre de titre d'utilitaire. 



Si la fenetre primaire est utilisee pour visualiser des documents, il est preferable de placer dans 
le coin superieur gauche de la fenetre une icone de document plutot que celle de l'application. 
Placez cette icone, meme si l'utilisateur n'a pas enregistre le document qu'il cree ou visualise. 
II s'agit la d'une question de coherence. Nous devons faire en sorte que l'application soit uni- 
forme et coherente dans sa representation des donnees et dans sa forme. 



Figure 7.3 

Barre de titre d'outils pour 
un document. 



captures.txt - Bloc-notes 
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Les interfaces de documents MDI sont un cas particulier. Dans une application MDI, l'icone 
de l'application se trouve dans la fenetre primaire et l'icone de document est placee dans toutes 
les fenetres enfant. Delphi 3 se charge lui-meme d'un grand nombre d'elements par defaut con- 
cernant les fenetres et vous decharge generalement de ces considerations. 



Figure 7.4 

Une application MDI. 
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Texfe de la barre de Nfre 

La fonction principale d'une barre de titre est d'identifier le nom du document visualise dans la 
fenetre. Ainsi, par exemple, si l'utilisateur ouvre un document appele "Mon CV" dans une 
application MDI, la barre de titre devra comporter l'icone de document representant le type de 
document concerne, suivie du nom du document, "Mon CV" en l'occurrence. De plus, vous 
pouvez inclure le nom de l'application a la suite du nom du document. Si vous faites figurer le 
nom de l'application, separez par un tiret le nom du document et celui de l'application. La 
Figure 7.5 en montre un exemple classique. 



Ki 8 ,,ie i u .. i , i. ga aga— man 

Exemple de Vordre 

des textes dans une barre 

de titre. 



Si l'application est un utilitaire ou un outil et n'a pas de nom de document qui lui soit associe, 
vous pouvez utilisez l'icone de l'application, suivie par le seul nom de l'application. La calcu- 
latrice est un bon exemple d'une telle application. Dans le cas d'une application comme l'Explo- 
rateur (qui permet de visualiser de nombreux types d'objets), vous pouvez placer le nom de 
l'application, suivi d'un texte specifiant le type de donnees en cours de visualisation. 

La encore les applications MDI sont un cas a part. Dans une application MDI, vous affichez le 
nom de l'application dans la fenetre parent, et le nom du document dans la fenetre enfant. Lors- 
que l'utilisateur agrandit l'enfant, la fenetre parent suit les memes conventions que les utilitai- 
res, en faisant figurer le nom de l'application, puis un tiret et le nom du document. 

Nouveaux documents 

Plusieurs questions sont a prendre a consideration au sujet du titrage des fenetres. Si votre 
application permet a l'utilisateur de creer de nouveaux documents, votre application doit auto- 
matiquement nommer les fenetres a l'aide du type de fichier suivi d'un identificateur unique. 
Par exemple, l'usage de document(l) ou feuille(l) (comme e'est le cas dans Windows et Excel) 
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est un moyen rapide de poursuivre les operations immediatement apres la creation d'un docu- 
ment par l'utilisateur. Vous ne devez pas demander le nom d'un document lors de la creation. 
C'est au moment ou l'utilisateur enregistre son document pour la premiere fois qu'il faut lui 
demander un nom. 

Par ailleurs, lorsque votre application cree la fenetre (et le document) temporaire, il est impor- 
tant que son nom soit unique. C'est la raison pour laquelle la plupart des applications se con- 
tentent d'incrementer le chiffre qui se trouve a la fin du nom de fichier (documentl , document2, 
etc. par exemple). II est primordial que le nom ne soit pas le meme que celui d'une fenetre deja 
existante. Le nom temporaire (documentl) doit etre le titre de la fenetre de document jusqu'a 
ce que l'utilisateur lui fournisse un nom definitif. Le nom temporaire sera alors remplace par 
celui fourni par l'utilisateur. 

Boutons de la barre de hire 

Les derniers elements de la barre de titre que nous allons evoquer sont les boutons. 
Windows 95 comporte un nouvel ensemble de boutons qui peuvent preter a confusion pour les 
utilisateurs de Windows 3.1 . Les boutons qui sont maintenant pris en charge par Windows 95 
sont decrits dans le tableau qui suit : 



Bouton 



Commande 



Fonction 




Fermer 



Reduction 



Ferme la fenetre courante 



Reduit la fenetre courante 



Agrandissement Agrandit la fenetre courante 



Restauration Restaure la fenetre courante a sa taille initiale, suite a 

un agrandissement ou a une reduction 



Le bouton qui pose le plus de problemes aux utilisateurs de Windows 3.1 est le bouton Fermer. 
Le symbole X semble signifier Reduction pour certains. Pourtant, ce bouton ferme la fenetre 
courante, comme le fait Alt + F4. Le bouton Fermer doit toujours etre le bouton le plus a droite, 
et doit etre separe des autres par un espace plus grand. Le bouton Reduction doit toujours pre- 
ceder le bouton Agrandissement, et le bouton Restauration doit remplacer le bouton Reduction 
ou Agrandissement (selon le bouton qui vient d'etre utilise). En tant que programmeur, vous 
pouvez decider si ces boutons apparaissent sur vos fiches en modifiant les attributs Border I - 
cons pour cette fiche. 
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Ouvrir et fermer des fenetres 

Une des fonctionnalites les plus agreables dans une application Windows est la possibility 
d'enregistrer vos parametres lorsque vous quittez l'application. Vous pouvez ainsi enregistrer 
la taille et la position de la fenetre d' application. Au prochain lancement du programme, la 
fenetre retrouvera la meme taille et la meme position. Vous pouvez faire vos propres entrees 
dans le registre pour stocker les informations concernant taille et position. Une autre methode 
consiste a prendre la taille de l'ecran et a faire en sorte que la fenetre de votre application occu- 
pe la taille de l'ecran, ou qu'elle n'en occupe que la moitie et soit centree sur l'ecran. 

Le comportement d'une application Windows depend dans une large mesure de sa conception. 
Ainsi, un programme de type Bloc-notes permettra que plusieurs instances du meme program- 
me s'executent simultanement. En revanche, dans le cas d'une application telle que Delphi 3, 
si l'utilisateur lance une autre copie, l'instance en cours d'execution est tout simplement mise 
en avant-plan. Ce type de reponse est bien adapte aux applications pour lesquelles une seule 
instance peut s'executer a la fois. Vous pouvez egalement faire apparaitre une boite de dialogue 
donnant la possibility a l'utilisateur de faire venir au premier plan l'application en cours d'exe- 
cution ou de lancer une autre application. 

Couleurs de fenetre 

La couleur peut apporter un plus a votre application. Mais n'exagerez pas. Delphi 3 fournit les 
couleurs systeme dans la palette, vous pouvez ainsi faire en sorte que les couleurs de votre 
application s'accordent avec la palette employee dans le reste du systeme. Si vous cherchez les 
couleurs dans l'lnspecteur d'objets, vous en trouverez certaines comme clWindowActive. Ce 
sont les couleurs systeme courantes qui ont ete choisies par l'utilisateur. Si vous decidez que 
ces couleurs seront celles de votre application, toute modification des couleurs systeme par 
l'utilisateur entrainera les memes modifications pour les couleurs de votre application. Vous 
pouvez aussi employer des couleurs statiques (les couleurs de votre application ne changeront 
pas meme si l'utilisateur modifie les couleurs systeme). Lorsque vous creez une nouvelle fiche 
ou ajoutez des composants a une fiche, Delphi 3 attribue des couleurs a ces elements confor- 
mement a la palette de couleurs Windows 95. Vous devez changer les couleurs manuellement 
a l'aide de l'lnspecteur d'objets si vous souhaitez imposer vos propres decisions chromatiques. 

II n'est cependant pas recommande de substituer vos propres couleurs aux couleurs systeme, et 
ce pour plusieurs raisons. Les choix de couleurs de l'utilisateur sont peut-etre motives (pour 
economiser l'energie par exemple, puisque des fonds noirs tirent moins sur la batterie, ou pour 
des raisons de visibilite, l'utilisateur choisissant des nuances de gris car il est daltonien). Dans 
le doute, mieux vaut s'abstenir. Si vous modifiez les couleurs dans votre application, essayez 
de vous en tenir aux 16 couleurs de base. Si vous essayez d'utiliser 256 couleurs (ou pire, 
16 millions...), cela risque de ralentir votre application et de donner des resultats hasardeux 
chez les utilisateurs ne disposant que de 16 couleurs. 
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Figure 7.6 

La palette de couleurs de 
I'lnspecteur d'objets. 




Menus 



Nous avons tous deja utilise des menus dans une application Windows. lis permettent un acces 
facile aux fonctionnalites d'un programme, acces base sur la reconnaissance (nous sommes 
tous habitues au celebre Fichier/Ouvrir) plutot que sur l'apprentissage d'obscurs raccourcis cla- 
vier. II existe differents types de menus, parmi lesquels les menus contextuels, les menus 
deroulants et les menus en cascade. Examinons chacun de ces types de menus. 

Le menu deroulant existe principalement sur les barres de menus. La barre de menus se trouve 
dans la plupart des applications. Elle contient des elements appeles titres de menus. Ces titres, 
lorsqu'ils sont selectionnes, permettent d'acceder a des menus deroulants. Ces menus derou- 
lants contiennent le niveau de selection suivant, c'est-a-dire les elements de menu. La Figure 7.7 
montre une barre de menus standard. 



Les controles visuels fournis avec Delphi 3 vous permettent de construire votre propre barre 
de menus ainsi que les menus deroulants qui lui sont associes. Les choix de menus que vous 
donnez a votre utilisateur dependent des fonctionnalites de votre application. Vous pouvez 
meme donner la possibilite a l'utilisateur de modifier ou de personnaliser les menus de votre 
application. Si vous le faites, assurez-vous que vous donnez acces a un ensemble de choix stan- 
dard par le biais d'un mecanisme standard, sous forme de menus contextuels et de barres 
d'outils par exemple. De cette maniere, l'utilisateur ne courra pas le risque de personnaliser 
l'interface au point de ne plus pouvoir s'en servir... 

Si vous s'electionnez Fichier/Nouveau/Onglet Pro jetl application SDI, vous obtenez une struc- 
ture de menu minimale, comportant les commandes Fichier et Aide. Si vous creez une appli- 
cation MDI, vous obtenez une barre de menus plus etendue, comportant les titres de menu 
Edition et Fenetre. 



Figure 7.7 

Une barre de menus 
classique. 
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Le menu Fichier 

Le menu Fichier est le moyen principal d'acces de l'utilisateur aux commandes les plus impor- 
tantes de votre application. En general, vous y ferez figurer les commandes Nouveau, Ouvrir, 
Enregistrer et Enregistrer sous, si votre application ouvre des documents de tout type. Une nou- 
velle commande de Windows 95 et NT 4.0 est la commande Envoyer vers qui peut aussi figu- 
rer dans notre menu. Si votre application permet l'impression, une commande Imprimer a toute 
sa place dans ce menu. Enfin, si votre application prend en charge la commande quitter, ce doit 
etre la derniere selection du menu. Si l'application reste active meme lorsque la fenetre est fer- 
mee (comme dans le cas du Controle de volume de la barre de taches), utilisez la commande 
Fermer plutot que Quitter. 

II est important que les elements de menu se trouvent toujours a la meme place pour que l'uti- 
lisateur se trouve en terrain connu meme face a une nouvelle application. Fichier/Quitter ou 
Fichier/Imprimer sont des reflexes habituels chez l'utilisateur, et il est bon qu'ils le restent. 

ii.l. Vous avez peut-etre remarqu'e que chaque commande de menu possede une lettre soulignee ou 
liUIC une combinaison de touches associees, comme illustre Figure 7.8. Vous apprendrez a definir 
ses accelerateurs un peu plus loin dans cette lecon. 

Figure 7.8 tr^rrm 

Un menu Fichier classique. 




Le menu Editer 

Le menu Editer est indispensable dans des applications permettant d'editer ou de visualiser des 
documents. Ce menu contient generalement les commandes Couper, Copier et Coller, comme 
illustre Figure 7.9. Vous pouvez placer dans ce menu des commandes portant sur les objets 
OLE ainsi que d'autres commandes plus sophistiquees. Ces commandes peuvent comprendre 
Annuler (pour revenir sur la derniere action effectuee), Repeter (pour repeter la derniere 
action), Chercher et Remplacer (pour chercher un texte ou le remplacer par un autre), Suppri- 
mer (pour supprimer l'element selectionne) et Dupliquer pour creer une copie de l'element 
selectionne. La commande Selectionner tout est elle aussi bien utile pour selectionner l'ensem- 
ble d'un document. 



Figure 7.9 

Un menu Edition standard. 
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Le menu Affichage 



Le menu Affichage permet a l'utilisateur de modifier la facon de visualiser les donnees. Cette 
modification peut consister en un zoom avant ou arriere, ou en la visualisation d'elements sup- 
plementaires (tels qu'une regie ou une barre d'outils). Dans ce menu, vous choisissez les ele- 
ments, une Regie par exemple, en les cochant pour indiquer qu'ils ont ete selectionnes. 

Figure 7.10 11 

Un menu Affichage classique. " Barre d'outils 

✓ Barre format 
Regie 




Le menu Fenetre 

Le menu Fenetre n'est generalement present que dans les applications MDI, ou il s'avere neces- 
saire pour gerer plusieurs fenetres. Ce menu comporte generalement les commandes Nouvelle 
fenetre, Mosai'que, Cascade, Fractionner et Reduire tout. Dans ce menu, vous pouvez egale- 
ment permettre a l'utilisateur d'acceder a toutes les fenetres ouvertes. Cela s'effectue generale- 
ment au moyen d'une liste des fenetres placee au bas du menu deroulant. Cette liste permet a 
l'utilisateur d'acceder a n'importe quelle fenetre en choisissant son nom dans le menu. 

Delphi 3 inclut automatiquement la liste des fenetres ouvertes dans le squelette MDI standard 
g'en'er'e avec FichierlNouveaulOnglet Projetsl Application MDI. 



Figure 7.11 

Un menu Fenetre classique. 




Le menu Aide 

Un des menus les plus importants est le menu Aide. Ce menu vous permet de faire figurer en 
ligne les reponses a la plupart des questions que se pose l'utilisateur. Comme partie standard 
de l'aide Windows, vous devez fournir une commande Rubriques de l'aide qui permet d'acceder 
au navigateur des Rubriques d'aide, ainsi qu'a d'autres elements tels que la Recherche de rubri- 
ques et d'eventuels Assistants d'aide (comme dans Word). Si vous souhaitez inclure des infor- 
mations sur le numero de version ou sur votre societe, faites-les figurer dans une boite de 
dialogue A propos, accessible par la selection de menu Aide/A propos. N'oubliez pas : plus 
votre aide sera performante, moins vous aurez d'appels de clients. La Figure 7.12 donne un 
exemple de menu d'aide. 

Figure 7.12 

Un menu Aide classique. 
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Menus contextuels 

Les menus contextuels n'etaient pas veritablement passes dans les mceurs avant l'arrivee de 
Windows 95. Le bouton droit de la souris a maintenant droit de cite. En cliquant a droite sur 
un objet, l'utilisateur se voit proposer un ensemble de commandes destinees a la manipulation 
de cet objet. Par exemple, lorsque vous cliquez a droite sur le fond de Windows 95, un menu 
contextuel apparait vous proposant toutes les fonctions relatives a l'affichage. 

Le cote agreable des menus contextuels est qu'ils ne proposent que les commandes qui sont 
adaptees a l'objet selectionne. Vous devez toujours inclure un menu contextuel si vous avez une 
barre de menus (parce que certains des elements de la barre de menus risquent forts de s'averer 
adaptes a certains objets de votre application). 

En ce qui concerne l'organisation des menus contextuels, tachez de faire figurer un minimum 
d'elements dans le menu lui-meme. Les selections doivent etre courtes et les proprietes indivi- 
duelles ne doivent jamais figurer dans le menu lui-meme. Faites toujours figurer un choix de 
menu Proprietes et laissez l'utilisateur passer dans un autre ecran pour les consulter. On tolere 
l'existence dans le menu contextuel de commandes qui ne sont pas presentes dans la barre de 
menus (et vice versa), mais assurez-vous que le menu contextuel n'est pas le seul moyen d'acce- 
der aux commandes de votre application. La Figure 7.12 donne un exemple de menu contex- 
tuel. 

Figure 7.13 

Un menu contextuel classique 




L'ordre des elements est primordial (toujours dans ce meme souci de coherence). En partant du 
sommet, les premieres commandes doivent etre les fonctions primaires qui sont habituellement 
effectuees sur cet objet, telles qu'Ouvrir, Explorer, Executer, Imprimer et Lecture. Les com- 
mandes de transfert, telles que Envoyer vers, viennent ensuite, de meme que l'eventuelle com- 
mande "Qu'est-ce que c'est ?". Couper, Copier et Coller doivent etre placees dans cet ordre. 
Enfin, la commande Proprietes doit toujours etre le dernier element de votre menu contextuel. 

Les menus contextuels sont tres souvent utilises dans l'environnement Windows. Si vous cli- 
quez a droite sur le fichier executable de votre application dans l'Explorateur, il vous sera pro- 
pose plusieurs choix. II vous est ainsi possible d'ajouter des elements de menu specifiques 
destines a prendre en charge votre application. Ainsi, si vous installez WinZip pour 
Windows 95 (un produit indispensable), vous pouvez constater que WinZip place une com- 
mande Add to Zip (ajouter a un fichier zippe) dans l'Explorateur, vous evitant ainsi de devoir 
lancer WinZip pour decompresser un fichier. C'est la un exemple de la fafon dont les menus 
contextuels rendent les utilisateurs plus efficaces. 
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Sous-menus 



Vous avez sans doute deja utilise une application comportant des sous-menus en cascade 
(Delphi 3 par exemple). Les menus enfant (un autre nom designant les sous-menus en) permet- 
tent d'eviter de surcharger un menu d'informations. Regardez par exemple tous les choix qui se 
trouvent dans les divers sous-menus Fichier de Delphi 3. Imaginez un peu la confusion du 
menu si tous les elements etaient places au meme niveau. La Figure 7.14 donne un exemple de 
sous-menu. 

Pour voir un bon exemple d'utilisation de menus enfants, ouvrez Delphi 3. La presence d'un 
sous-menu est indiquee par une fleche triangulaire qui suit un element de menu dans le menu 
parent (regardez le choix de menu Fichier/Reouvrir par exemple). 

N'abusez pas des sous-menus . lis tendent a rendre les choses plus complexes en obligeant 
Vutilisateur a manipuler plusieurs fois la souris. Meme Delphi 3 en fait un usage mod'er'e. 



Figure 7.14 

Un sous-menu classique. 




Essayez egalement de limiter le nombre de niveaux. N'enfouissez pas de commandes impor- 
tantes sous cinq niveaux de menus. L'utilisateur risquerait de perdre un temps precieux. 

Libelles de menu, raccourcis. touches d'acces et types 

Lorsque vous creez vos menus, vous devez egalement vous interesser a quelques concepts sup- 
plementaires . Aux libelles des menus, tout d'abord. Les elements de la barre de menus princi- 
pale et des sous-menus doivent etre dans la mesure du possible des identificateurs tenant en un 
mot. Les noms doivent etre succincts et parlants. N'utilisez pas de phrases de plus de deux mots 
car le menu gagnerait en complexite et l'utilisateur devrait passer plus de temps a lire le menu 
pour effectuer ses choix. 

En plus de la souris, il existe deux autres methodes d'acces aux selections de menu : les rac- 
courcis et les combinaisons de touche. 

Un raccourci clavier est une combinaison de touches (Ctrl + F4 par exemple), que vous 
affectez pour ex'ecuter une commande de menu. 
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Les raccourcis permettent par exemple a l'utilisateur d'effectuer un "enregistrement rapide" du 
document courant en appuyant sur F2. Vous pouvez affecter des raccourcis clavier a n'importe 
quelle tache, du moment que vous ne modifiez pas l'affectation de combinaisons usuelles telles 
que Alt + F4 (fermeture de la fenetre courante) . Dans le controle visuel menu de Delphi 3, vous 
pouvez affecter des raccourcis clavier en modifiant l'attribut shortcut de chaque element de 
menu. Delphi vous propose une liste de tous les raccourcis clavier disponibles et il vous suffit 
d'en choisir un. La Figure 7.15 donne un exemple de menu d'aide. 



Figure 7.15 

La boite Proprietes 
ShortCut. 
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Parallelement aux raccourcis clavier, vous pouvez utiliser des touches de raccourcis. 

Les touches de raccourcis (a ne pas confondre avec les raccourcis clavier) sont utilisees en 
combinaison avec la touche ALT du clavier. Ainsi, dans Delphi, vous pouvez acceder a la 
boite de dialogue Nouveaux elements en appuyant sur Alt + F, N. 

Mnhn L° rsc l ue vous utilisez des touches de raccourcis dans differents niveaux de menu, la touche Alt 
liUI C ne doit etre enfonc'ee que pour la premiere touche d'acces. Cette premiere selection effectu'ee, 
il suffit d'appuyer sur les lettres elles-memes. 

Les touches que vous pouvez utiliser en combinaison avec la touche ALT sont soulignees. Si 
vous voyez le mot Fichier comportant un F souligne, vous pouvez utiliser la combinaison 
Alt + F. Lorsque vous utilisez le controle visuel menu, vous pouvez placer un caractere d'acces 
(le caractere souligne) dans le titre en placant une perluette (&) devant la lettre de l'element de 
menu que vous souhaitez souligner. Ainsi, le mot Fichier dont le F serait souligne s'ecrirait 
&Fichier. La Figure 7.16 donne un exemple. 




Figure 7.16 

La propriete Caption de l'element 
de menu. 
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De nombreux facteurs doivent etre pris en consideration lorsque vous creez le systeme de 
menus de votre application. Nous avons aborde la plupart de ces facteurs. Des tests d'ergono- 
mie permettent par ailleurs de mettre a jour les faiblesses de conception. N'hesitez pas a solli- 
citer l'avis de ceux a qui est destine le produit. 

Consoles 

Pour que votre application soit reellement utile, elle doit interagir avec l'utilisateur. Les con- 
troles s'en chargent. Les controles permettent a l'utilisateur de controler les actions ou les pro- 
prietes des objets de l'application. Les controles revetent des formes et des styles varies. 

On active generalement les controles en utilisant le pointeur de la souris en conjonction avec 
le bouton gauche de la souris. La plupart des controles comportent ce que Ton appelle une 
"zone de reaction". Cette zone de reaction est la zone qui est sensible aux clics gauches de la 
souris. Si le pointeur arrive dans cette zone et qu'un clic gauche survient, le controle est active. 
Certaines zones de reaction sont tres visibles sur les controles, comme par exemple la zone de 
reaction d'un bouton qui correspond a la zone delimitee par les bordures du bouton. D'autres 
controles peuvent comporter des zones de reaction qui sont plus grandes ou plus petites que le 
controle lui-meme. Une case a cocher, par exemple, comporte une zone de reaction plus grande 
que la case a cocher, car elle recouvre aussi le libelle de la case. 

Les libelles sont importants car ils permettent d'indiquer immediatement a l'utilisateur quelle 
est la fonction du controle. Les libelles, tout comme les elements de menu, doivent etre concis 
et parlants. Comme dans les menus, il est important de fournir des touches d'acces aux contro- 
les pour que l'utilisateur puisse utiliser directement le clavier, sans passer par la souris. 

Boutons de commande 

Plusieurs types de boutons sont utilises dans Windows 95 . Le premier type de bouton est le 
bouton de commande. II permet d'activer une commande associee a ce bouton. En general, il 
faut appuyer sur le bouton. Lorsque le bouton est relache, si le pointeur de la souris se trouve 
sur le bouton, la commande associee au bouton est executee. Si le pointeur n'y est pas, la com- 
mande n'est pas executee. Ceci donne une deuxieme chance a l'utilisateur, lui permettant 
d'annuler la commande meme s'il a deja appuye sur le bouton. 

Cette deuxieme chance n'est donnee que si vous utilisez la souris pour activer le bouton. Si le 
bouton a le focus et que vous appuyez sur Entree, il n'y a plus d'echappatoire : il a ete active. 

Lorsque nous utilisons le terme appuyer a propos des boutons d'une fiche, on parle en fait de 
deux choses differentes. A Vaide de la souris, on peut appuyer visuellement sur un bouton ou 
V activer. Le bouton apparait enfonc'e lorsque vous cliquez sur le bouton de votre souris. Vous 
pouvez egalement appuyer sur le bouton (Vactiver) lorsque le bouton a le focus, en appuyant 
sur la touche Entree. Ces deux actions ont le meme r'esultat : elles permettent d* appuyer sur le 
bouton. 

En plus du bouton de commande, Windows 95 fait grand usage du bouton Deplier. II s'agit d'un 
bouton de commande qui elargit une fenetre lorsqu'il est active. Lorsque vous utilisez un bou- 
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ton de commande comme le bouton Deplier, placez le signe » pour indiquer que ce bouton 
elargira la vue actuelle. Ceci permet a l'utilisateur de voir une partie des informations, puis 
d'appuyer sur le bouton Deplier s'il desire en voir la totalite. 

Si votre bouton de commande demande des informations supplementaires pour que la comman- 
de qui lui est associee puisse s'executer correctement, placez des points de suspension (...) apres 
le libelle du bouton de commande. Ceci indique a l'utilisateur qu'il devra fournir des informa- 
tions supplementaires (dans une boite de dialogue la plupart du temps) . Lorsque des boutons de 
commande ne sont pas disponibles, ils doivent etre grises. Ceci est effectue en definissant com- 
me False la propriete Enabled de ce bouton. 

Boutons radio 

Les boutons radio aident l'utilisateur a selectionner des options dans votre application. C'est 
pourquoi on les appelle parfois des boutons d'options. Les boutons radio apparaissent sous for- 
me de petits cercles et doivent etre disposes par groupes de deux a sept. Si vous avez besoin de 
plus d'elements, il est preferable d'utiliser d'autres controles, tels que des boites de liste. 

Les boutons radio peuvent etre presentes de deux manieres. La premiere est un mode exclusif 
(le mode le plus usuel, represente Figure 7.17). En mode exclusif, un seul bouton du groupe 
peut etre selectionne a la fois. Ce mode est parfait pour des options mutuellement exclusives. 



Figure 7.17 

Des boutons radio en mode 
exclusif. 




L'autre etat possible est le mode dit de valeurs melangees. Dans ce mode, on peut selectionner 
simultanement plusieurs boutons radio. Ce mode est ideal pour la selection d'attributs de 
fichier, puisqu'un fichier peut etre en lecture seule, cache et de type archive tout a la fois. 



Figure 7.18 

Des boutons radio en mode 
mixte. 







C Bouton radiol 






C Bouton radio2 



















Beaucoup d'utilisateurs pensent que les boutons radio sont en mode exclusif, ce qui signifie 
qu'un bouton est toujours coche. Lors de la conception de l'application, le programmeur choisit 
generalement le bouton coche. Ceci s'effectue en definissant comme True la valeur de l'attribut 
d'un des boutons. Pour creer un groupe de boutons en mode exclusif, il suffit de les placer dans 
un controle RadioGroup (Groupe radio), Panel (Volet) ou Bevel (Biseau). Ces controles vous 
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assurent qu'un seul bouton radio du groupe pourra etre actif a un moment donne. Si vous sou- 
haitez utiliser les boutons radio en mode valeurs melangees, il suffit de ne pas les placer dans 
un controle groupe radio. Les boutons radio agiront ainsi independamment les uns des autres. 
Dans ce cas, vous pouvez definir comme False l'attribut de valeur de tous les boutons radio, 
en laissant a l'utilisateur la possibilite de les cocher. 

// n'est pas recommande d'utiliser des boutons radio en mode valeurs melangees. Dans ce 
cas, il est preferable d'utiliser des cases a cocher. 

Comme pour les autres controles, il est important d'affecter des touches d'acces aux controles. 
Ainsi, l'utilisateur peut selectionner un bouton radio specifique directement a partir du clavier. 
Une autre methode consiste a appuyer plusieurs fois sur la touche Tab jusqu'a ce que le controle 
soit mis en surbrillance, avant d'appuyer sur la barre d'espace pour le selectionner. 

// existe une autre methode d'acces aux boutons radio. Si vous affectez une touche d'acces a la 
GroupBox, ou a un autre controle dont font partie les boutons radio, en appuyant sur la 
touche d'acces de ce controle de groupe, vousfaites passer le focus sur les boutons radio de 
ce controle de groupe. Vous pouvez alors utiliser les touches de deplacement du clavier pour 
activer le bouton radio desire. 

Cases a cocher 

Grace aux cases a cocher l'utilisateur peut selectionner des options dans votre programme. La 
case a cocher peut prendre plusieurs etats. Vous pouvez utiliser l'attribut state pour determi- 
ner si la case est cochee ou non en definissant la propriete State comme etant cbChecked (etat 
coche), cbllnChecked (etat decoche) ou cbGrayed (etat ou la case est cochee mais grisee). La 
signification de ce dernier etat est determinee par le developpeur lui-meme. La Figure 7.19 
vous donne un exemple de case a cocher. 



Figure 7.19 

Des cases a cocher dans tous 
les etats possibles. 
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Lorsque vous utilisez des cases a cocher, regroupez-les par types de fonction. Ceci permet a 
l'utilisateur de deviner les relations qui existent entre les cases a cocher. Comme pour les autres 
controles, utilisez des touchez d'acces pour que l'utilisateur puisse interagir avec les cases a 
cocher par l'intermediaire du clavier seul. La encore, si vous cochez une case avec la souris, 
votre selection peut etre annulee en retirant la souris du controle avant de relacher le bouton. 
Vous pouvez egalement griser la case a cocher en definissant comme False l'attribut Enabled. 
L'utilisateur ne pourra ainsi pas disposer du controle, quel que soit l'etat de la case a cocher. 
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BoTtes de liste 

Les boites de liste offrent un moyen facile et direct de presenter a l'utilisateur un grand nombre 
d'elements. L'avantage avec une boite de liste est que les elements qui y figurent peuvent etre 
de formes di verses et en nombre quelconque. A la difference des cases a cocher et des autres 
controles, si une selection n'est pas disponible, elle n'apparaitra pas du tout dans la boite de lis- 
te. II n'est pas question ici de controles grises. Le contenu de la boite de liste peut etre dispose 
de diverses manieres. Employez la methode qui satisfait au mieux les besoins de votre utilisa- 
teur. Ainsi, disposez les noms dans l'ordre alphabetique, les nombres dans un ordre croissant 
et les dates dans un ordre chronologique. 



Figure 7.20 

Un exemple de boite de liste. 



Ferdinand *| 


Lou Reed 




Maman 


] 


Marcel 




Mon chien 




Senatem dupont | 





MnFo ^ est i m P ortant aue vom utilisiez a bon escient les controles Boites de liste et Boites a options. 

II U I C Si vous avez une base de donnees qui fait ses 4 Go, ne chargez pas tout son contenu dans une 
malheureuse petite boite de liste. Cette methode est lente et mal adaptee. Imaginez un peu le 
temps que prendrait le defilement des 4 Go de donnees... II est done preferable dans ce cas 
d'utiliser un contrble Edit et un bouton de recherche permettant d'affiner les choix disponibles . 

II n'y a pas de libelle associe a une boite de liste. Si vous creez un libelle pour une boite de liste, 
assurez vous qu'il est desactive lorsque la boite de liste est desactivee (en definissant comme 
False l'attribut Enabled). La version Delphi 3 de la boite de liste comprend un attribut Multi- 
select qui permet d'utiliser cette boite de liste comme une boite a selection unique ou a selection 
multiple. Dans le cas d'une selection unique, l'utilisateur ne peut selectionner qu'un seul ele- 
ment de la boite de liste. Si l'attribut Multiselect est defini comme True, l'utilisateur peut selec- 
tionner plusieurs elements. Si la liste des elements de la boite de liste est plus longue que la 
hauteur de la fenetre, une barre de defilement verticale apparait. 

Controles d'affichape 

II existe quatre types differents de controles d'affichage dans Windows 95. Le premier est le con- 
trole Affichage de liste. Ce controle permet d'afficher une liste d'elements d'une maniere similaire 
a la fenetre droite de l'Explorateur. La liste peut etre visualisee d'une de ces quatre fagons : 

• Icones. Les elements apparaissent sous forme d'icones de grande taille sous lesquelles se 
trouvent les libelles. 

• Petites icones. Chaque element apparait sous forme d'une petite icone, a la droite de 
laquelle se trouve le libelle. 

• Liste. Identique a Petites icones, a ceci pres que les icones apparaissent en colonnes et sont 
ordonnees. 
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• Rapport. Les elements sont disposes en colonnes. Toutes les colonnes sauf celle de gauche 
doivent etre fournies par l'application qui affiche la boite de liste. La liste des elements 
n'est pas triee. 

Les controles Affichage d'arborescence 

L'affichage d'arborescence est une autre forme du controle affichage de liste. La difference 
principale est que l'affichage d'arborescence est plus adaptee a la presentation d'informations 
qui supposent une notion de hierarchie. L'affichage d'arborescence vous permet d'associer des 
icones a chaque element de l'arborescence. L'icone d'un element peut meme changer lorsqu'il 
est reduit, pour faire contraste avec le meme element developpe. 

L'affichage d'arborescence permet de tracer des lignes entre des elements et de bien suggerer 
les relations hierarchiques qui existent entre les differents elements. Un exemple typique d'uti- 
lisation de tels controles est l'Explorateur Windows. La fenetre de gauche de l'Explorateur est 
un controle d'arborescence. Les icones de lecteur representent chaque lecteur, les icones de 
dossiers representent les dossiers appartenant aux differents lecteurs, et ainsi de suite. Ce con- 
trole permet de presenter clairement quelque chose qui aurait autrement pu laisser l'utilisateur 
perplexe. 

Entrer et afficher du texte 

On peut afficher du texte de deux manieres avec Delphi 3. La premiere consiste a utiliser un 
controle de libelle pour afficher du texte statique. Cette methode est frequemment utilisee pour 
afficher des informations que l'utilisateur ne peut pas modifier, telles qu'un numero de serie ou 
de securite sociale. 

Les specifications Microsoft indiquent que nous devons nous assurer que le controle de libelle 
ne recoit pas le focus lorsque l'utilisateur passe d'un controle a un autre a l'aide de la touche 
Tab. Delphi 3 pousse la sophistication un cran plus loin. Le controle de libelle ne possede pas 
d'ordre de tabulation, il ne peut done pas recevoir le focus. De plus, si vous donnez l'attribut 
FocusControl au controle qui doit avoir le focus, et si l'utilisateur appuie sur la touche d'acces 
de ce controle, l'element pointe par FocusCont rol recoit le focus a sa place. Vous pouvez done 
utiliser des controles de libelles et distribuer correctement le focus a ces controles. 

La boite d'edition est la deuxieme maniere d'afficher des donnees. L'avantage de ce controle 
est qu'il permet egalement d'editer les donnees. Le controle d'edition de Delphi 3 comporte 
l'attribut MaxLength (Longueur max) qui vous permet de limiter la longueur de ce qu'entre l'uti- 
lisateur. Les techniques d'edition classiques, insertion, ecrasement et suppression sont egale- 
ment prises en charge. 

Le controle Memo est un controle dont la fonction est similaire. II s'agit en fait d'un controle 
d'edition multiligne. II comporte lui aussi une propriete MaxLength. A cette propriete s'ajoute la 
propriete Lines (Lignes) qui vous permet de definir la valeur de chaque ligne dans le controle. 
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Consoles de pages a onglel's 

La boite de dialogue a onglets est la toute derniere nouveaute de Windows 95 . Les onglets vous 
permettent d'organiser vos informations en differentes rubriques. Suivez pour les onglets les 
principes de nommage que nous avons evoques au sujet des elements de menu. Les pages a 
onglets elles-memes sont generalement alignees sur une seule rangee. Cependant, vous pouvez 
si necessaire placer plusieurs lignes de pages a onglets sur une seule page. Chaque page a 
onglets contient des donnees auxquelles on accede en cliquant simplement sur l'onglet. 

Lorsque vous concevez une boite de dialogue a onglets, vous devez prendre plusieurs choses 
en consideration. Selon que vous placez vos boutons OK etAnnuler sur la page a onglets elle- 
I meme ou sur lafiche qui contient les pages, vous indiquez des choses differentes a Vutilisa- 
| teur. Si les boutons sont sur la page meme, cela signifie que OK ne valide que les modifica- 
tions effectuees dans cette page. Si le bouton OK se trouve sur la fiche, Vutilisateur doit 
pouvoir aller et venir entre les differentes pages pour y effectuer les modifications qu'il 
souhaite, avant d'appuyer sur le bouton OK pour valider V ensemble des modifications. 



Figure 7.21 

Un exemple de page 
a onglets. 




Curseurs 

Les curseurs permettent de controler le reglage des valeurs de certaines donnees. Vous devez 
affecter une valeur minimum et maximum pour le curseur en utilisant les proprietes Min et Max. 
Ce controle est ideal pour ajuster des valeurs telles que le contraste, le volume, etc. Tout ce qui 
peut etre regie par un potentiometre dans la vie reelle est un candidat ideal pour un curseur. 
Vous pouvez controler l'orientation du curseur (horizontale ou verticale), la presence decre- 
ments et leur nombre, et la taille du curseur lui-meme. 

Mnhfl Me me s ' ^ e curseur a besoin de valeurs Min et Max definies, vous pouvez traduire ces valeurs 
llUI C pour refleter d'autres options. Ainsi, Windows 95 utilise le curseur dans la boite de dialogue 

proprietes affichage pour definir la taille de Veer an. les increments du curseur sont 
| 640 X 480, 800 x 600 et 1024 x 768. Vous affectez une de ces trois valeurs du curseur pour 

qu'elles correspondent a des definitions de resolution d'ecran. Grace a cette conversion de 

valeur, le curseur trouve la une utilite de plus. 
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Figure 7.22 

Un exemple de curseur. 



Bulles d'aide 

Les bulles d'aide (ou info-bulles) font partie des grandes innovations de Windows 95 . Grace a 
elles, l'utilisateur peut rapidement identifier des controles et leurs fonctions. Delphi 3 propose 
un "conseil" ou Hint (l'equivalent Delphi d'une info-bulle) pour tous les controles importants. 
Vous pouvez definir l'attribut Hint d'un controle, et definir comme True l'attribut ShowHint 
(montre conseil) pour faire apparaitre le conseil lorsque l'utilisateur place le pointeur de la sou- 
ris sur un controle et l'y laisse un moment. 

Figure 7.23 i 1 

Un exemple de bulk d'aide . 1 i l J 



Indicators de progression 




Dans Windows 3.1, lorsque votre application effectuait une longue operation, vous utilisiez 
l'icone de sablier pour faire patienter l'utilisateur. Avec Windows 95 , vous disposez d'une solu- 
tion plus elegante et plus informative. L'indicateur de progression indique a l'utilisateur que 
quelque chose est en train de se passer, et l'informe de l'etat d'avancement approximatif de cette 
operation. Un utilisateur est bien plus patient quand il sait que quelque chose de constructif est 
en cours. 

Figure 7.24 

Un exemple de barre 
de progression. 



Barres d'ouNIs 

Les barres d'outils ameliorent spectaculairement la productivite de l'utilisateur. Elles permet- 
tent un acces rapide aux operations les plus souvent utilisees dans votre applications. On appel- 
le parfois les barres d'outils palettes ou boites a outils. En Delphi 3, une barre d'outils est 
generalement implementee a l'aide d'un controle panel (volet) et d'un nombre de controles de 
speed buttons. Ces boutons sont places sur le volet et apparaissent habituellement au-dessous 
de la barre de menus. Si vous selectionnez Fichier/Nouveau/Projets et application SDI ou MDI, 
vous disposez d'une barre d'outils dans le projet par defaut. Examinez attentivement les con- 
troles et ce qu'ils represented. 
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Figure 7.25 

Un exemple de barre 
d'outils. 

Concevoir desecrans 

Les images que nous presentons aux utilisateurs peuvent avoir de nombreux effets, de l'inspi- 
ration a la confusion. C'est pourquoi il est important de concevoir vos applications pour inspi- 
rer l'utilisateur, sans le distraire de son travail. 

Pour concevoir vos ecrans, vous pouvez vous appuyer sur l'experience de nombreux editeurs, 
Microsoft compris, qui ont mene beaucoup de recherche dans ce domaine. Dans la partie qui 
suit, nous examinerons ensemble les decouvertes faites pas Microsoft. Toutes ces informations 
font partie des specifications de Windows 95 ou se trouvent dans le CD-ROM du Microsoft 
Developer Network (MSDN) ou vous pourrez puiser des idees qui vous aideront dans le deve- 
loppement. 

Organisation 

II existe en fait six principes d'organisation que Microsoft a mis en valeur. Examinons-les un 
par un : 

• Lisibilite et flux 

• Structure et equilibre 

• Relations entre elements 

• Theme fondateur et mise en evidence 

• Hierarchie de l'information 

• Unite et integration 

Lisibilite et flux 

Selon le principe de lisibilite et de flux, vous devez faire en sorte que votre conception com- 
munique vos idees de maniere simple et directe, en evitant dans la mesure du possible les inter- 
ferences visuelles. Pour reduire au maximum les interferences visuelles et ameliorer la lisibilite 
et le flux, vous devez vous posez les questions suivantes lorsque vous concevez une boite de 
dialogue ou une fenetre : 

• L'idee est-elle presentee de la facon la plus simple possible ? 

• L'utilisateur peut-il parcourir facilement cette boite de dialogue telle qu'elle est concue ? 

• Tous les elements de cette fenetre ont-ils une bonne raison d'y figurer ? 

Structure et equilibre 

Ce principe de structure et d'equilibre repose sur l'idee que sans une fondation solide, tout bati- 
ment est voue a la mine. La structure de votre application c'est la facon dont votre application 
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— dans un ensemble — est mise en place. Sans bonne structure, l'ordre et le sens sont absents. 
Les relations entre les ecrans et les informations qui figurent sur ces ecrans jouent un role pre- 
ponderant dans la facon dont l'utilisateur percoit votre application. Quant a l'equilibre, il s'agit 
de la maniere dont sont reparties vos informations sur les ecrans. Si un ecran contient trop 
d'informations et qu'un autre n'en contient pratiquement pas, votre application semblera dese- 
quilibree. Si votre application manque de structure et d'equilibre, l'utilisateur eprouvera plus de 
difficultes a comprendre votre interface. 

Les relations entre elements 

II est important que vous indiquiez visuellement quelles sont les relations existant entre les dif- 
ferents elements de votre application. Si un bouton elargit le champ des informations dans une 
boite de liste, il est important que ces deux elements soient connectes visuellement pour que 
leur relation apparaisse evidente aux yeux de l'utilisateur. Vous pouvez done dans ce cas placer 
le bouton et la boite de liste tres pres l'un de l'autre, ou les placer tous deux sur le meme controle 
biseau. Si votre ecran n'est qu'un amas anarchique de boutons, personne ne pourra — ni ne vou- 
dra — jamais l'utiliser. 

Theme fondateur et mise en evidence 

Vous devez identifier clairement le theme ou l'idee centrale a votre ecran. Le concept de mise 
en evidence consiste a choisir le theme principal et a le rendre le plus explicite possible pour 
que l'utilisateur comprenne quelles choses sont les plus importantes dans l'ecran. Ces deux con- 
cepts renvoient egalement aux concepts de structure et d'equilibre. Si votre application a un 
theme fondamental clair, la structure de l'application apparaitra clairement a l'utilisateur. Votre 
application doit mettre l'accent sur l'accomplissement d'une tache, et sur un accomplissement 
reussi. Un exemple d'application au theme fondamental clair est WinZip. Ce programme se 
consacre exclusivement a la compression et a la decompression de fichiers. II ne comporte pas 
de defragmenteur de disque, ni d'Explorateur ni d'application de gestion de compte bancaire. 
II met l'accent sur la compression des fichiers et s'acquitte parfaitement de cette tache. L'inter- 
face est concise et pertinente, et permet d'arriver rapidement au resultat voulu. 

Hierarchie de 1' information 

Le concept de hierarchie s'applique a la conception d'ecrans mais aussi aux donnees (comme 
dans le controle d'Affichage d'arborescence). Vous devez determiner quelles sont les informa- 
tions les plus importantes pour les mettre sur l'ecran initial, puis decider de ce qui figurera sur 
le deuxieme ecran, et ainsi de suite. Vous devez vous poser de nombreuses questions pour vous 
aider a construire la structure de votre hierarchie : Quelles sont les informations les plus impor- 
tantes pour l'utilisateur ? Que doit faire l'utilisateur en tout premier lieu ?... Que doit voir l'uti- 
lisateur sur le premier ecran ? Sur le deuxieme ? Vous devez egalement deviner quelles seront 
les priorites de l'utilisateur. L'organisation de votre ecran facilitera-t-elle la tache de l'utilisateur 
ou la compliquera-t-elle ? Sur quelles parties faut-il mettre l'accent ? 
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Unite et integration 

Nous passons maintenant a la vue d'ensemble. Comment votre application s'insere-t-elle dans 
l'ensemble du bureau et comment interagit-elle avec d'autres applications ? Si votre application 
se mure dans l'autisme, elle sera bien inutile. 



Couleurs et palettes 

Comme nous l'avons indique au debut de cette lecon, vous pouvez faire revetir a votre appli- 
cation l'ensemble des couleurs disponibles dans Windows. Les couleurs tiennent lieu d'indices 
visuels et permettent egalement d'attirer l'attention sur certaines parties de l'ecran. Par ailleurs, 
on a tendance a associer des couleurs a differents etats. 

Sans reflexion sur l'emploi des couleurs, il est possible de s'attirer bien des desagrements. Un 
trop grand nombre de couleurs (ou des couleurs non adequates) peuvent detourner l'attention 
de l'utilisateur ou le derouter. Voici quelques remarques a prendre en consideration lorsque 
vous choisissez les couleurs de votre application : 

• L'association de couleurs a des significations precises n'est pas forcement evidente pour un 
utilisateur. Si en Europe le signe Stop est associe au rouge, ce n'est pas necessairement le 
cas partout. 

• Une autre personne n'a pas forcement les memes gouts que vous en matiere de couleur. II 
est done preferable d'utiliser autant que possible les couleurs systeme. L'utilisateur pourra 
modifier la palette de couleurs Windows et votre application suivra. 

• II est possible que quelqu'un souhaite un jour utiliser votre application sur un moniteur 
monochrome. 

• Les couleurs peuvent prendre differentes significations selon les pays. II serait dommage 
de creer un superbe utilitaire pour s'apercevoir que la moitie du monde refuse de l'utiliser 
parce que les couleurs qu'il utilise ont une connotation negative. 

• Microsoft a estime que neuf pour cent de la population adulte male a des difficultes a bien 
distinguer les couleurs. 

Les couleurs doivent etre utilisees pour ajouter a l'affichage, et pas comme moyen principal de 
presenter l'information. Les formes, les motifs et d'autres concepts peuvent etre utilises pour 
que l'utilisateur distingue les differents types d'informations sur vos ecrans. Microsoft suggere 
meme de construire votre ecran en noir et blanc et de n' ajouter la couleur qu'apres. 

Utiliser un nombre limite de couleurs signifie egalement choisir les bonnes combinaisons de 
couleur. L'usage de couleurs vives, telles que le rouge, sur un fond noir ou vert rend vos ecrans 
peu lisibles. II n'est pas recommande d'employer des couleurs trop opposees. Une couleur 
neutre, gris clair par exemple, fait sou vent le meilleur fond (comme le montrent la plupart des 
produits Microsoft). N'oubliez pas non plus que les couleurs claires ont tendance a ressortir tan- 
dis que les couleurs sombres semblent s'enfoncer. 
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Disposition 

L'une des remarques les plus interessantes dans les specifications Windows est celle qui affir- 
me que le but est de concevoir un environnement previsible. C'est ce qu'aime un utilisateur, 
pouvoir deviner l'emplacement d'un element de menu (ainsi, A propos est toujours le dernier 
element du menu Aide). Vous devez toujours garder cette remarque a l'esprit. L'utilisation de 
votre application ne doit pas etre une corvee. 

L'espacement, l'utilisation des polices et la disposition a l'ecran des controles et des informa- 
tions garantissent le succes ou l'echec de votre application. L'utilisation que vous faites des 
polices est a cet egard d'une importance primordiale. Certaines polices sont preferables a 
d'autres. MS San Serif corps 8 est la police choisie par Microsoft pour tous les elements syste- 
me. II convient de prendre d'autres facteurs en consideration. Une police mise en italique est 
plus difficile a dechiffrer : les bordures sont plus irregulieres que dans une police normale. II 
est preferable d'utiliser la police systeme par defaut dans la mesure du possible. 

L'utilisateur peut toujours modifier la police par defaut, vous ne devez done pas partir du prin- 
cipe que MS San Serif sera toujours la police systeme. Votre application doit pouvoir s'accom- 
moder de nouvelles polices. Enfin, il faut savoir que les polices seront toujours moins belles a 
l'ecran qu'une fois imprimees, a plus forte raison sur des moniteurs de basse resolution. 

Unite de mesure 

Dans ses specifications, Microsoft utilise les unites de base des boites de dialogue comme uni- 
tes de mesure. Ce systeme a ete adopte car il est independant du materiel et se fonde sur la taille 
de la police systeme par defaut. Cela compense les variations de la taille de l'ecran sur diffe- 
rents systemes. II existe un appel de fonction GetDialogBaseUnits ( ) dans l'API Win32 qui 
renvoie une valeurs 32 bits contenant les unites de base de dialogue, basees sur la police sys- 
teme actuelle. Le mot de poids faible de la valeur de retour contient l'unite de base horizontale 
de boite de dialogue, et le mot de poids fort l'unite de base de boite de dialogue verticale. 

Ces considerations sur les unites de base de dialogue visent a vous faire comprendre les 
preoccupations de Microsoft. Delphi 3 utilise des unites liees au materiel (des pixels) pour 
l'espacement et I'alignement, et pas des unites de base de dialogue. Les mesures en pixels sont 
plus faciles a comprendre et a manipuler pour le programmeur. 

La base horizontale est egale a la largeur moyenne en pixels des caracteres ["a".."z","A".."Z"] 
dans la police systeme courante. L'unite de base verticale est egale a la hauteur en pixels de la 
police. Chaque unite de base horizontale est egale a quatre unites de dialogue horizontales, et 
chaque unite de base verticale est egale a huit unites de dialogue verticales. Par consequent, 
pour convertir des unites de dialogue en pixels, votre application doit utiliser les formules 
suivantes : 

BPixelsEnX = (UnitesDialogueX x UniteBaseX) / 4 
PixelsEnY = (UnitesDialogueY x UniteBaseY) / 8 
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Et pour convertir des pixels en unites de dialogue, les formules sont les suivantes : 

BUnitesDialogueX = (PixelsenX x 4) / UnitesBaseX 
UnitesDialogueY = (PixelsEnY x 8) / UnitesBaseY 

La multiplication est effectuee avant la division pour eviter des problemes d'arrondi si les uni- 
tes de base ne sont pas divisibles par quatre ou par huit. PixelsEnX et PixelsEnY vous permet- 
tent de savoir quel sera le multiplicateur a utiliser pour l'espacement, et ainsi de suite. II existe 
des recommandations concernant la taille des differents elements. Les boites d'edition, les 
libelles, les compteurs et les boutons doivent faire 14 unites dialogue de hauteur. Cette hauteur 
vous garantit un espace parfait au-dessus et au-dessous du lettrage. 

Regrouper et espacer les elements 

Lorsque vous developpez vos ecrans, il est important que vous espaciez correctement les ele- 
ments de votre ecran. II est egalement important de conserver une marge constante (de sept uni- 
tes dialogue) sur le pourtour de la fenetre. Les controles doivent etre espaces au minimum de 
quatre unites dialogue. L'exception a cette regie se rencontre lorsque vous souhaitez regrouper 
des boutons de barre d'outils. Dans ce cas, des boutons de fonctions voisines peuvent etre direc- 
tement adjacents. 

Vous devez toujours regrouper les elements de fonctions voisines. Le controle boite de groupe 
est ideal pour cela, meme si l'espacement seul peut suffire. Les boites de groupe permettent 
d'attirer l'attention de l'utilisateur sur un ensemble d'elements particuliers. II n'est pas recom- 
mande de regrouper les controles au moyen de couleurs (en faisant figurer une forme coloree 
derriere les controles par exemple). Cette methode peut preter a confusion, et si l'utilisateur 
change la palette de couleurs, le resultat peut devenir franchement laid. 



Figure 7.26 

Regrouper les controles. 
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Aligner les elements 

Vous disposez de plusieurs methodes pour disposer les donnees sur votre ecran. Dans les pays 
occidentaux, nous lisons generalement de gauche a droite et de haut en bas. Les donnees les 
plus importantes se trouvent generalement dans le coin superieur droit. Lorsque les donnees 
(ou les elements) sont disposees verticalement, les cotes gauches de ces elements doivent etre 
alignes. Si vous associez des libelles aux controles, ces libelles doivent etre places au-dessus 
ou a gauche des controles, et doivent aussi etre alignes a gauche. Cela s'applique a des controles 
tels que les controles d'edition, de boite de liste et de boites a options. L' exception se rencontre 
avec les controles Boite radio et case a cocher. Ces controles sont simplement alignes a gauche, 
avec leurs libelles disposes a leur droite. 

La palette d'alignement permet d'aligner facilement les controles dans Delphi 3 . Vous selec- 
tionnez les controles a aligner, puis choisissez l'option d'alignement dans la palette d'aligne- 
ment et vous pouvez ainsi rapidement placer les controles dans la disposition souhaitee. La 
fonction Verrouiller controles qui se trouve dans le menu Edition empeche les controles de se 
deplacer une fois que vous les avez correctement alignes. 

Lorsque vous placez des boutons de commande dans une fenetre, si le bouton de commande se 
trouve dans une boite de groupe, on suppose de facon implicite que ce bouton n'affecte que les 
informations du groupe. Si le bouton de commande apparait en dehors des boites de groupe, il 
est cense affecter l'ensemble de la fenetre. 



Figure 7.27 

Boutons de commande 
(locaux et globaux). 




Les bottes de dialogue a onglets 

Les boites de dialogue a onglets sont extremement utiles et vous permettent de conserver une 
interface propre et simple. Lorsque vous creez des boites de dialogues a onglets, il est prefera- 
ble que les onglets soient tous de meme taille pour donner un aspect uniforme. Les onglets peu- 
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vent permettre un classement par fonction, chaque onglet representant une information sur un 
sujet precis. Outils/Options dans Delphi 3 est un bon exemple de boite de dialogue a onglets. 



Bottes de dialogue modoles 



Tout d'abord, nous devons definir ce qu'est une boite de dialogue modale. II s'agit d'une fenetre 
qui apparait pour fournir ou demander des informations. Les boites de dialogue modales peuvent 
afficher des informations supplementaires au sujet de donnees qui se trouvent dans une fenetre 
primaire. Elles ne peuvent pas cependant constituer la fenetre primaire de votre application. Cet- 
te boite de dialogue ne contient pas tous les elements presents dans une fenetre primaire. La liste 
ci-apres indique les differences entre une fenetre primaire et une boite de dialogue modale : 

• Une boite de dialogue modale ne comporte pas de bouton Agrandissement ou reduction. 

• Elle peut avoir un bouton Fermer pour faire disparaitre la fenetre (bien que ce ne soit pas 
obligatoire). 

• Le texte de la barre de titre decrit la fonction de la fenetre. 

• La barre de titre ne comporte pas d'icone. 

• II n'y a pas de barre d'etat. 

• II peut y avoir un bouton "Qu'est-ce que c'est ?" qui fournit de l'aide a l'utilisateur sur les 
composants de la fenetre. 

Lorsque vous affichez des boites de dialogue modales, il est recommande qu'elles ne depassent 
pas une taille de 263 x 263 unites de base de dialogue. Si une fenetre secondaire est une feuille 
de proprietes, les tallies recommandees sont 218 x 227, 215 x 212 et 212 x 188 en unites de 
base de dialogue. On estime que ces tailles permettent d'offrir une surface appreciable sans 
prendre pour autant trop de place (particulierement dans les resolutions les plus basses). 



Comportement des fenefres 



Vos boites de dialogue doivent apprendre a bien se comporter dans un environnement a multi- 
ples fenetres. II existe un comportement standard pour les boites de dialogue. Elles peuvent 
apparaitre en deux occasions. La premiere, lorsqu'une boite de dialogue est creee en reponse a 
une commande choisie dans la fenetre primaire. C'est le cas de la boite de dialogue Rechercher 
qui apparait dans Microsoft Word 7. Dans ce cas, lorsque vous minimisez la fenetre primaire, 
toutes les boites de dialogue qui lui sont associees doivent etre minimisees elles aussi. Lorsque 
la fenetre primaire est restauree, les boites de dialogue reviennent en ordre a leur position en Z. 

L'ordre en Z decrit les relations de couche entre differents objets tels que des fenetres. L'ordre 
en Z dans Windows est l'ordre dans lequel les fenetres sont dessinees a Veer an. La fenetre au 
sommet de l'ordre en Z est egalement la fenetre qui apparaitra au-dessus de toutes les autres 
fenetres sur votre ecran. 
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Un deuxieme exemple de boite de dialogue est celle qui est generee par le systeme, ou en 
dehors de votre application. C'est le cas de la fenetre Proprietes de l'affichage de Windows 95. 
Dans ce cas, la fenetre de proprietes doit rester ouverte lorsque vous minimisez votre fenetre 
d'application. Ces deux comportements se retrouvent dans l'environnement Delphi. Lorsque 
vous minimisez votre application Delphi, toutes les fenetres enfant (pour une application MDI) 
et secondaires sont elles aussi minimisees. 

Les boites de dialogue ne doivent pas apparaitre sur la barre des taches de Windows 95 . Seules 
doivent y apparaitre les fenetres principales. Les applications Delphi que vous generez se char- 
gent de faire respecter ces regies. Si vous ajoutez une boite de dialogue a votre projet et defi- 
nissez sStayOnTop comme valeur de l'attribut FormStyle, vous pouvez minimiser la fenetre 
principale, la fenetre secondaire l'imitera alors mais seule la fenetre principale apparaitra sur la 
barre des taches. Les fenetres qui restent toujours en avant-plan peuvent etre tres enervantes, 
faites-en done un usage modere. 

Si vous employez des fenetres en cascade dans votre application (une fenetre secondaire 
ouvrant une autre fenetre secondaire), ayez ces deux points a l'esprit. Tout d'abord, limitez le 
nombre a trois fenetres (la principale, la secondaire et la sous-secondaire). Ne descendez pas 
plus bas que cela, sinon vous risquez de derouter l'utilisateur. Ensuite, assurez-vous lorsque 
vous ouvrez les fenetres secondaire et sous-secondaire qu'elles apparaissent decalees par rap- 
port a la fenetre principale, vers le bas et la droite. Cela donne un effet de cascade aux fenetres 
et indique a l'utilisateur qu'il descend dans les couches de fenetres. 

Nous avons parle un peu plus tot des fenetres depliantes. Dans ce cas, dans une fenetre secon- 
daire, vous appuyez sur un bouton qui comporte un » apres son libelle et la fenetre s'elargit 
pour reveler des informations supplementaires. Cette methode s'avere tres utile pour reveler 
des informations par paliers successifs. Si l'utilisateur s'estime satisfait par le niveau de detail 
de la page la plus petite, il peut en rester la. Sinon, il peut toujours etendre la fenetre. 

Vous pouvez egalement ouvrir des fenetres secondaires sous deux modes : modal et non 
modal. Si vous ouvrez les fenetres en mode modal, l'utilisateur peut toujours acceder aux autres 
fenetres de votre application, sans etre oblige de fermer votre fenetre au prealable. Si vous 
ouvrez une fenetre en mode non modal, l'utilisateur doit fermer votre fenetre avant de pouvoir 
acceder aux autres fenetres de votre application. C'est une des rares occasions ou vous forcez 
l'utilisateur a faire quelque chose (entrer un mot de passe avant de pouvoir continuer par exem- 
ple), et vous ne devez pas oublier a quel point les gens detestent recevoir des ordres. Utilisez 
les boites de dialogue et les fenetres non modales avec parcimonie, elles ont tendance a ralentir 
la tache de l'utilisateur. 

RecopituloNf 

Lors de cette journee, nous avons vu ensemble les concepts a l'ceuvre dans la conception d'une 
interface graphique utilisateur. Nous avons examine les differents moyens de donner le contro- 
le a l'utilisateur (ou du moins de lui donner cette impression) ainsi que les differentes techni- 
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ques de conception assurant que votre ecran reste degage et lisible. Bien que nous n'ayons pu 
qu'effleurer le sujet, vous avez sans doute pu vous faire une petite idee de ce qu'implique la 
conception d'une bonne interface. Apres avoir vu les contraintes qui pesent sur un concepteur 
de GUI, on ne peux s'empecher de considerer avec un respect renouvele des applications telles 
que Delphi 3. Bonne chance pour votre projet d'GUI ! 



Atelier 

L'atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu de 
cette lecon. La section Questions - Reponses vous donne des questions qu'on pose couram- 
ment, ainsi que leur reponse, la section Questionnaire vous pose des questions, dont vous trou- 
verez les reponses en consultant 1' Annexe A, et les Exercices vous permettent de mettre en 
pratique ce que vous venez d'apprendre. Tentez dans la mesure du possible de vous appliquer 
a chacune des trois sections avant de passer a la suite. 



Questions - Reponses 

Q Nous voulons ecrire une application et nous pensons qu'elle ferait une excellente ap- 
plication MDI. Comment en etre sur ? 

R C'est une bonne question. Comme nous l'avons dit au cours de cette lecon, Microsoft n'en- 
courage pas la creation d'applications MDI, car peu de gens savent en ecrire correctement. 
Si vous pensez que vous devez le faire, n'oubliez pas que toutes les fenetres filles doivent 
etre identiques. II ne faut pas melanger les types de documents dans les fenetres filles. 
Vous devez egalement laisser le controle des fenetres a l'utilisateur. 

Q Ou trouver des informations supplementaires ? 

R Vous pouvez consulter le CD du Microsoft Developer Network, qui contient quantite 
d'informations sur les specifications du logo Win95 et sur la conception d'une GUI en ge- 
neral. 

Questionnaire 

1 . Quelle est la fonction principale du bouton droit de la souris dans Windows 95 ? 

2. Pourquoi Microsoft recommande-t-il des tailles bien precises pour les fenetres 
secondaires ? 

3. Pourquoi est-il important que votre application reprenne la disposition standard des 
menus ? 
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Exercices 

1 . Allez dans la palette de couleurs de Delphi 3 et essayez de comprendre a quoi servent tou- 
tes les couleurs systeme. Si vous avez besoin d'aide, placez differents types de controle 
sur une fiche et regardez les couleurs qui sont donnees par defaut a chacun des elements. 

2. Ouvrez une application Windows95 classique et regardez comment les menus contex- 
tuels sont utilises pour proposer des commandes a l'utilisateur. 

3. Regardez les applications que vous utilisez quotidiennement. Satisfont-elles tous les stan- 
dards evoques dans cette section ? 
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Delphi propose une vaste bibliotheque de composants preconstruits. Dans les journees qui ont 
precede, vous avez pu decouvrir l'EDI de Delphi ainsi que les principes de la programmation 
orientee objet. Vous avez deja pu utiliser des exemples utilisant la VCL (Visual Component 
Library ou Bibliotheque de composants visuels), mais pour 1' instant, vous n'avez en fait 
qu'effleurer le sujet. Lors de cette journee, nous allons explorer la VCL. En examinant chaque 
onglet de la palette VCL, vous verrez quels sont les objets disponibles, et vous decouvrirez les 
proprietes et Gestionnaires d'evenements associes a ces objets. Puis nous construirons un pro- 
gramme de demonstration en mettant a contribution de nombreux composants. Nous parlerons 
brievement de composants Internet, Database, Decision Cube, ActiveX et ReportSmith. 



Ou'esf-ce que lo VCL ? 



VBflU 



VCL est Vacronyme de Visual Component Library (Bibliotheque de composants visuels). Cette 
bibliotheque est composee d'objets preconstruits appel'es composants . Pour simplifier, ces 
composants sont a Delphi ce que les OCX et les contrdles ActiveX sont a VB. Cependant, a la 
difference des OCX, les composants de la VCL sont ecrits en Pascal Objet Delphi et sont stoc- 
kes dans une unique bibliotheque, au lieu defigurer dans desfichiers distincts. Tout composant 
que vous utilisez devient partie integrante de votre executable . 

Ces composants vous epargnent bien des heures — voire des jours — de developpement et de 
tests, en vous permettant de concevoir visuellement votre application. Vous selectionnez des 
composants, les deposez sur une fiche et definissez quelques proprietes, et vous voila avec une 
application creee sans pratiquement aucun code. La VCL est constituee de composants offrant 
les fonctionnalites usuelles que Ton peut trouver dans la plupart des applications Windows. 
Grace au grand nombre de composants proposes par Delphi, vous pouvez vous consacrer a la 
creation de votre application, sans perdre de temps a rein venter la roue pour creer votre inter- 
face graphique, vos fonctions de bases de donnees et les routines de communication de pro- 
gramme a programme (OLE et DDE). Grace au Pascal Objet de Delphi vous pouvez creer tres 
rapidement n'importe quelle application. Votre code ne fait que lier les differents composants. 
On peut comparer cela a la construction d'une maison prefabriquee, par opposition a la cons- 
truction d'une maison en ne partant de rien. Si vous partez de rien, vous devez trouver de nom- 
breuses planches, des clous, divers materiaux, etc. et vous devez tailler et raboter votre bois. 
En revanche, pour la maison prefabriquee, les murs et les diverses parties principales de la mai- 
son sont deja assembles, meme s'ils ne sont pas encore reunis. II suffit de les reunir et votre 
maison est vite batie. Elle n'est pas moins solide que la maison "artisanale", mais le construc- 
teur n'a pas eu a se preoccuper de tout jusqu'au moindre detail. 

Vous pouvez creer en Delphi vos propres composants et les ajouter a la palette de la VCL pour 
un usage ulterieur. Lorsque vous consultez la VCL, les divers composants sont references par 
leur nom qui apparait lorsque vous placez sur eux le pointeur de la souris (Button par exemple). 
Le nom des composants commence toujours par un T (TButton par exemple), nom sous lequel 
on les retrouve dans l'lnspecteur d'objets et dans l'aide en ligne. II faut done vous habituer a 
penser a TForm si vous voyez Form (fiche), a TEdit si vous voyez a Edit, etc. 
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Que se passe-t-il en fait lorsque vous deposez un composant sur une fiche ? Delphi genere 
automatiquement le code necessaire a l'utilisation du composant et met a jour le projet en con- 
sequence. Vous n'avez besoin que de definir les proprietes, placer du code dans les Gestion- 
naires d'evenements et d'utiliser des methodes de facon appropriee pour parvenir au but 
recherche. 



Proprietes 

Ces composants sont bien beaux, mais vous devez trouver un moyen de leur indiquer comment 
apparaitre et se comporter. Les composants Delphi, tout comme les OCX de VB, ont des pro- 
prietes. Ces proprietes vous permettent de modifier la taille, la forme, la visibilite, la position 
d'un composant et autres caracteristiques. Pour acceder a ces proprietes, on utilise l'lnspecteur 
d'objets (voir Figure 8.1). Celui-ci comporte deux onglets : l'onglet Proprietes et l'onglet Eve- 
nements. Interessons-nous pour l'instant a l'onglet Proprietes. 



Figure 8.1 

L'onglet Proprietes de l'lnspecteur 
d'objets. 
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La plupart des proprietes sont communes a tous les composants, mais pas toutes. Par ailleurs, 
certaines proprietes sont specifiques a un composant ou a un groupe de composants. II est 
impossible de decrire ici toutes les proprietes de tous les composants, nous allons done nous 
interesser aux proprietes les plus communes ainsi qu'aux types de proprietes et a la fafon de 
les utiliser. Regardons les proprietes d'un composant que vous avez deja eu l'occasion d'utili- 
ser, le bouton (Button). Dans Delphi, ouvrez un nouveau projet. Allez dans l'onglet Standard 
de la palette des composants. Selectionnez le bouton en cliquant dessus puis cliquez sur la 
fiche. Vous ajoutez ainsi un nouveau composant Button a votre fiche. La Figure 8 .2 vous mon- 
tre l'lnspecteur d'objets sur lequel est selectionne l'onglet Proprietes. 
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Figure 8.2 

La palette Standard, avec le 
composant Button s'electionn'e. 



Figure 8.3 

L'onglet Proprietes de Vlnspecteur 
d'objets pour le composant Button. 




Comme vous pouvez le voir, de nombreuses proprietes peuvent etre definies pour le composant 
Button. Certaines acceptent des valeurs numeriques comme parametres, par exemple la pro- 
priete Height. D'autres proprietes recelent une boite a options dans laquelle vous selectionnez 
une liste de parametres predefinis (ce sont des constantes definies dans Delphi) , comme la pro- 
priete Cursor. D'autres encore vous laissent le choix entre True et False, comme c'est le cas 
pour la propriete Default. Ou bien, elles acceptent du texte normal, comme la propriete Cap- 
tion. Enfin, certaines proprietes component des menus contextuels et des editeurs vous per- 
mettant de proceder a vos reglages. 

II est un autre type de proprietes que vous devez connaitre : la propriete imbriquee. Une pro- 
priete imbriquee est toujours precedee par un "+", comme c'est le cas pour la propriete +Font 
par exemple. Une propriete imbriquee est une propriete de propriete. Lorsque vous double-cli- 
quez sur une propriete comportant des proprietes imbriquees, cette propriete se developpe pour 
vous montrer les proprietes imbriquees. Le "+" se change alors en Les proprietes peuvent 
etre imbriquees sur plusieurs niveaux. Le "+" et le "-" sont utilises de la meme maniere dans 
chaque niveau successif. Pour reduire une liste de proprietes imbriquees, il vous suffit de dou- 
ble-cliquer sur le "-" , qui se transforme alors de nouveau en "+" . Regardez la liste des proprie- 
tes du composant Button. Toutes les proprietes imbriquees ont ete developpees : 

Cancel 
J Caption 
J Cursor 
J Default 
J DragCursor 

DragMode 

Enabled 
J -Font 
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Color 
Height 
Name 
Pitch 
Size 
-Style 

fsBold 
f sltalic 
f sUnderline 
fsStrikeOut 

Height 
HelpContex 
Hint 
Left 

ModalResult 
Name 

ParentFont 
ParentShowHint 
PopupMenu 
ShowHint 
TabOrder 
TabStop 
Tag 
Top 

Visible 
Width 

En modifiant ces proprietes, vous pouvez controler la taille, l'apparence, la couleur, la police 
et bien d'autres choses encore. Une des proprietes les plus communement utilisees dans des 
composants tels que le bouton est la propriete Caption (titre ou libelle). Si vous creez un bou- 
ton OK, vous modifiez la propriete Caption de bouton pour qu'elle devienne OK. Le bouton 
affiche alors OK. De meme, vous pouvez definir la propriete Name du bouton comme etant Mon - 
BoutonOK pour que le code de l'unite soit plus lisible. 

lei aussi, les proprietes sont trop nombreuses pour que nous puissions toutes les examiner. En 
lisant cette lecon, et le reste du livre, vous decouvrirez un bon nombre de proprietes. Lorsque 
vous avez besoin d' informations concernant une propriete particuliere , il vous suffit de 
cliquer sur cette propriete et d'appuyer sur Fl.L'aide en ligne explique chaque propriete en 
detail. Vous pouvez, dans un premier temps, vous astreindre a lire la description de plusieurs 
proprietes chaque jour. Et n'oubliez pas que lesfiches ont elles aussi des proprietes. 

II vous faut egalement savoir que certaines proprietes dependent des parametres d'autres pro- 
prietes. C'est le cas de la propriete Hint. Vous definissez Hint comme un message texte qui 
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s'affichera lorsque le pointeur de la souris sera laisse sur le controle pendant un certain temps. 
Ceci ne fonctionnera que si vous avez defini comme True (vraie) la propriete Show/Hint du con- 
trole ou de la fiche ou du conteneur parent (GroupBox par exemple). En effet, la propriete 
ParentShowHint du controle est definie comme True par defaut, ce qui transmet le parametre 
False aux controles enfants. On peut aussi citer le cas de la propriete ParentFont. Si Parent - 
Font est definie comme True, le composant prend ses informations de police dans la fiche ou 
le conteneur parent. Ne soyez pas decourage devant le nombre de proprietes, car la plupart des 
parametres par defaut pour ces proprietes conviennent parfaitement dans la plupart des cas. A 
force d'utiliser Delphi, ces proprietes iront de soi. Les noms sont relativement explicites (si 
vous avez quelques notions d'anglais) et si vous avez un probleme, vous pouvez toujours 
appuyer sur la touche Fl . 



Evenements 

De nombreux evenements ou Gestionnaires d'evenements sont associes aux composants Del- 
phi. Lors de la journee precedente, nous avons vu que le code que vous stockez dans ces Ges- 
tionnaires d'evenements est execute lorsque l'evenement precis survient (si par exemple la 
souris se deplace, en cas de clic, etc.). Considerez l'onglet Evenements de l'lnspecteur d'objets 
pour le composant Button (voir Figure 8.3). 



Figure 8.4 

L'onglet Evenements de 
l'lnspecteur d'objets. 
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Pour creer un Gestionnaire d'evenements, il suffit de double-cliquer sur l'evenement que vous 
souhaitez creer. Vous vous retrouvez alors dans le gestionnaire et vous pouvez y entrer votre 
code. Si vous decidez finalement de ne pas utiliser le Gestionnaire d'evenements, Delphi le 
supprime pour vous a la prochaine compilation, constatant que vous n'y ayez pas place de 
code. Comme dans l'onglet Proprietes, vous pouvez cliquer sur un evenement puis appuyer sur 
Fl pour lire l'aide en ligne concernant cet evenement. Par ailleurs, lorsque vous cliquez a la 
droite d'un evenement dans l'lnspecteur d'objets, vous faites apparaitre une boite a options. II 
suffit alors de cliquer sur la fleche vers le bas pour voir une liste des evenements actuellement 
definis et disponibles. Ceci vous permet de faire partager le meme Gestionnaire d'evenements 



DELPHI 3 



a plusieurs controles et/ou evenements. Ainsi, vous n'avez pas besoin de reproduire plusieurs 
fois le meme code. 



Nefhodes 



II existe plusieurs types de methodes, mais nous allons nous interesser aux methodes associees 
aux divers composants, et a la facon dont ces methodes les affectent. Les methodes vous per- 
mettent elles aussi de controler les composants. Comme les composants sont des objets, on 
peut y declarer des fonctions et des procedures. C'est la definition meme d'une methode : une 
fonction ou procedure publique, declaree dans un objet, et que vous pouvez appeler. Prenons 
l'exemple de notre composant Button. Si vous voulez le rendre invisible, vous pouvez execu- 
ter une ligne de code du type Buttonl . Hide, et le bouton deviendra invisible. Pour savoir quel- 
les sont les methodes disponibles pour un composant ou objet particulier, cliquez sur le 
composant et appuyez sur Fl . Dans l'aide en ligne qui apparait alors, cliquez sur Methodes et 
vous pourrez voir la liste des methodes disponibles. Vous pouvez ensuite cliquer sur la metho- 
de qui vous interesse. Voici des methodes disponibles pour le composant Button : 

BeginDrag 
BringToFront 
CanFocus 
ClientToScreen 
Create 
Destroy 
Dragging 
EndDrag 
Focused 
Free 

GetTextBuf 
GetTextLen 
Hide 
Refresh 
Repaint 
ScaleBy 

ScreenToClient 
ScrollBy 
SendToBack 
SetBounds 
SetFocus 
SetTextBuf 
Show 
Update 
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De meme que pour les proprietes, les noms sont assez parlants et vous donnent une idee de la 
fonction de la methode. Cependant, a la difference des proprietes, les methodes ne sont pas 
accessibles dans l'lnspecteur d'objets. Pour en savoir plus sur les methodes, vous devez vous 
reporter a l'aide en ligne. La encore, il n'est pas inutile de lire un peu d'aide en ligne chaque 
jour. Vous n'avez pas besoin d'apprendre tout par cceur, mais lorsque vous saurez ce qui est 
disponible, vous pourrez creer plus facilement vos applications. II serait dommage de reinven- 
ter une fonction parce que vous ne saviez pas qu'il existait deja une methode effectuant la tache 
souhaitee. 



Composonts visuels et non visuels 

II existe deux types de composants dans Delphi : les composants visuels et les composants non 
visuels. Les composants visuels sont ceux avec lesquels vous construisez votre interface utili- 
sateur. Les composants des deux types apparaissent lors de la conception, mais les composants 
non visuels restent invisibles lors de l'execution. Button, Edit et Memo sont des exemples de 
composants visuels. On utilise des composants visuels a des fins tres diverses. Timer, Open- 
Dialog et MainMenu sont des exemples de composants non-visuels. Timer permet au program- 
meur d'activer un code specifique a des intervalles de temps donnes, et n'est jamais vu par 
l'utilisateur. OpenDialog et MainMenu sont des composants non visuels qui finissent par pro- 
duire des resultats visibles et utilisables a l'ecran, mais les composants eux-memes ne sont pas 
visibles. Les composants non visuels sont faciles a reperer car ils ne peuvent pas etre redimen- 
sionnes et sont en tout point similaires au bouton qui vous a permis de les selectionner. Tous 
les composants, visibles ou non, sont tres utiles et vous font gagner un temps precieux. 



Bibliofheque 

La bibliotheque est subdivisee en treize onglets regroupes logiquement, parmi lesquels un 
onglet ActiveX et un onglet Exemples. Les onglets supplementaires contiennent des exemples 
de controles et de composants. II s'agit ici des onglets de la version CS de Delphi 3. Certains 
composants ne sont pas disponibles dans les autres versions. 

• Standard 

• Supplement 

• Win32 

• Systeme 

• Internet 

• AccesBD 

• ControleBD 
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• Decision Cube 

• Qreport 

• Dialogues 

• Win31 

• Exemples 

• ActiveX 

Meme s'il est impossible de decrire et d'utiliser tous les composants et leurs proprietes, nous 
allons voir tous les composants et examinez certaines de leurs proprietes. Nous allons construi- 
re des exemples de fiches pour certains des onglets. L'aide en ligne est une aide precieuse en 
la matiere, vous permettant de determiner l'utilite d'un composant (cliquez sur le composant, 
puis appuyez sur Fl pour acceder a l'aide). Regardez chacun des onglets et construisez une 
application utilisant les composants qui y figurent. Cette application n'a pas de but precis, 
sinon de vous aider a comprendre comment fonctionnent les divers composants. Ouvrez un 
nouveau projet et enregistrez UNIT 1. PAS sous STANDARD .PAS. Enregistrer le projet sous 
VCLDEMO .DPR . Allez dans l'onglet Standard et commencez l'application VCLDEMO. 



Onplef Standard 

Dans cet onglet se trouvent les composants les plus usuels. II est visible par defaut au demar- 
rage de Delphi et compte 14 composants, comme indique Tableau 8.1. Regardez-les rapide- 
ment avant de construire la premiere fiche de notre application d'exemple en utilisant certains 
d'entre eux (voir Figure 8.4). Remarquez que selon la resolution de votre ecran, il est possible 
que vous ne puissiez pas voir tous les onglets. Dans ce cas, Delphi ajoute au bout de la barre 
d'onglets des fleches vous permettant de faire defiler les onglets, comme indique Figure 8.5. 



Figure 8.5 

Cliquez sur cette fleche pour 
voir plus de composants. 
L'onglet Standard de la palette 
de composants. 
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Tableau 8.1 : L'onglet Standard de la palette de composants 



Composant 


Description 




Le composant MainMenu (menu principal) vous permet de concevoir et 
de creer la barre de menus et les menus deroulants de votre fiche. 
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Composant Description 



Le composant PopupMenu (menu contextuel) vous permet de concevoir 
et de creer des menus contextuels qui apparaissent lorsque l'utilisateur 
fait un clic droit. 

Le composant Label (libelle) permet de placer du texte dans une fiche 
ou dans d'autres conteneurs. Ce texte ne peut etre modifie par 
l'utilisateur. 

Le composant Edit (edition) permet a l'utilisateur d'entrer une ligne de 
ab I texte. Ce composant permet aussi d'afficher du texte. 

Le composant Memo permet d'entrer et/ou d'afficher plusieurs lignes de 
texte. 

Le composant Button (bouton) permet de creer des boutons que 
l'utilisateur utilisera pour selectionner des options dans une application. 

Le composant CheckBox (case a cocher) permet a l'utilisateur de 
selectionner ou deselectionner des options en cliquant dessus. 

Le composant RadioButton (bouton radio) permet d'offrir un ensemble 
d'options a l'utilisateur, au sein duquel il ne peut choisir qu'une option. 
Un ensemble est constitue d'un nombre quelconque de boutons radio 
places dans un conteneur tel qu'une fiche, un volet, etc. 

Le composant ListBox (zone de liste) est la boite de liste Windows 
standard qui permet de creer une liste d'elements parmi lesquels 
l'utilisateur peut faire son choix. 

Le composant ComboBox (zone d'options) est semblable a une ListBox 
qui beneficierait des avantages du composant Edit. Ce composant 
permet a l'utilisateur de selectionner un element d'une liste ou de 
l'entrer sous forme de texte. 

Le composant ScrollBar (barre de defilement) est la barre de defilement 
Windows standard qui permet de faire defiler des fiches ou des 
controles. 

Le composant GroupBox (zone de groupe) est un conteneur permettant 
de regrouper des elements de meme nature, tels que des 
RadioButton , CheckBox, etc. 



246 DELPHI 3 



Composant Description 



Le composant RadioGroup (groupe radio) est un melange de GroupBox 
et de RadioButton concu specifiquement pour creer des groupes de 
boutons radio. On peut y placer plusieurs boutons radio, mais pas de 
composants d'autres types. 

Le composant Panel (volet) est un conteneur permettant de regrouper 
d'autres conteneurs ou des composants. Les volets permettent egalement 
de construire des barres d'etat, des barres d'outils et des palettes 
d'outils. 



Maintenant que nous avons decrit tous les composants figurant dans cet onglet, commencons 
a travailler sur notre application. Dans le projet VCLDEMO.DPR que vous avez cree prece- 
demment, modifiez le titre de la fenetre (caption) pour qu'il devienne "L'onglet standard". 
Nous allons creer une fiche assez surcharged mettant a contribution au moins un composant de 
chaque type. Regardez la Figure 8.6 et servez-vous en comme modele pour ajouter vos com- 
posants a la fiche, de maniere a respecter approximativement les positions et les proportions 
que vous pouvez y voir. 



Figure 8.6 

La fiche Onglet standard 
de VCLDEMO. 




Dans le reste du texte, nous utiliserons le nom anglais des composants et de leurs propri'etes. 
II vous suffit de vous r'eferer a la liste precedente (ou a I 'aide en ligne de Delphi) pour trouver 
I "equivalent francais . 
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Commencez par modifier la propriete Name en Onglet standard. Ensuite, ajoutez un composant 
Panel au sommet de l'ecran. Etirez-le pour qu'il s'etende sur l'ecran. Ce composant vous per- 
mettra de donner un titre a votre fiche. Definissez la propriete Caption de ce composant com- 
me "Demo de l'onglet Standard". Le Panel est tres utile pour creer des titres dotes d'un effet 
de relief, mais sert aussi de conteneur pour d'autres composants. Maintenant, ajoutez un label 
et donnez-lui comme caption Nom. Le composant label a une propriete appelee AutoSize 
(taille auto) qui est definie comme True par defaut. Autosize fait que le composant augmente 
ou diminue de taille lorsque vous modifiez son titre, la taille de la police, etc. Si la couleur de 
fond du label est la meme que celle de la fiche (c'est le cas par defaut), vous risquez de perdre 
de vue votre label s'il retrecit au point de ne contenir aucun caractere et qu'il n'est pas selec- 
tionne. Dans ce cas, vous pouvez le retrouver facilement en allant dans l'lnspecteur d'objets et 
en utilisant la zone d'options pour derouler la liste des composants dans laquelle vous pouvez 
selectionner votre label (voir Figure 8.7). Entrez maintenant le texte desire dans la propriete 
Caption. 



Figure 8.7 

L'lnspecteur d'objets 
pour le composant Name. 
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Ajoutez un composant Edit sous le label. Utilisez l'lnspecteur d'objets pour supprimer tous 
les caracteres qui figurent dans la propriete Text du composant. Ajoutez un MainMenu et un 
PopUpMenu. N'oubliez pas que ce sont des composants non visuels et que l'endroit ou vous les 
placez n'a done pas d'importance. Le plus simple consiste encore a les mettre dans un coin a 
part pour qu'ils ne vous genent pas lorsque vous placez vos autres composants. Ajoutez un 
composant Memo. 

Prenez une minute pour regarder les proprietes disponibles avec le composant Memo. Utilisez 
l'aide en ligne pour voir la description de certaines de ces proprietes. Le composant Memo est 
un composant tres puissant qui vous permet de concevoir votre propre editeur de texte. Vous 
n'avez pas besoin ici d'utiliser toutes les proprietes de ce composant, mais il n'est pas inutile 
que vous ayez conscience de leur existence. Dans l'lnspecteur d'objets, double-cliquez sur la 
propriete Lines (lignes) et effacez le texte "Memol". Appuyez quatre fois sur Entree. Vous 
augmentez ainsi la taille du tampon du composant Memo (vous avez besoin de disposer d'au 
moins trois ou quatre lignes pour cet exemple, et vous les creez ainsi). Si vous ne faites pas 
cela, l'exemple ne fonctionnera pas. Ajoutez maintenant un RadioGroup, une ScrollBar, une 
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ComboBox et une ListBox a la fiche. Assurez-vous que tous les composants que vous avez pla- 
ces ressemblent a ceux de la Figure 8.5. 

Double-cliquez sur le composant RadioGroup que vous avez place sur la fiche et ajoutez le 
code ci-apres dans son evenement OnClick : 

J procedure TStandardTab.RadioGroup1Click(Sender: TObject); 
J begin 

If RadioGroupl . Itemlndex=0 Then StandardTab.Color:=clSilver; 
If RadioGroupl . Itemlndex=1 Then StandardTab.Color:=clBlue; 
If RadioGroupl . Itemlndex=2 Then StandardTab.Color:=clYellow; 
If RadioGroupl . Itemlndex=3 Then StandardTab.Color:=clRed; 

end; 

Double-cliquez sur le composant ScrollBar et ajoutez le code ci-apres dans l'evenement 
OnChange : 

procedure TStandardTab.ScrollBar1Change(Sender: TObject); 
J begin 

RadioGroupl . Itemlndex := ScrollBaN .Position;end; 

Placez une GroupBox sur la fiche et assurez-vous qu'elle dispose d'assez de place pour contenir 
quelques composants. Ajoutez-y deux boutons, deux boutons radio et deux cases a cocher. 
Mettez Polices pour le Button2, Quitter pour le Button3 et Page suivante pour le Button4. Voi- 
la, vous avez place tous les composants de cette fiche. 

Ajustez la taille et la position des composants jusqu'a ce que votre fiche ressemble a celle de 
la Figure 8.6. II faut maintenant ajouter du code a ces boutons. Voici le code pour l'evenement 
OnClick du Buttonl : 

I procedure TStandardTab.Button1Click(Sender: TObject); 
Var 
x : Integer; 
begin 
{Efface le contenu actuel de TMemo} 
Memol .Clear; 
{Copie le texte entre dans la boite Norn (Editl) dans le Memo} 
Memol . Lines. Add(Edit1 .Text) ; 
{Copie le texte entre dans la boite de texte de la Combobox dans le 
Memo} 
Memol . Lines .Add (ComboBoxl .Text) ; 
{Copie le texte selectionne de la boite de liste vers le memo} 
Memol . Lines .Add ( 1 ListBox String 
# 1 +IntToStr(ListBox1 . Itemlndex+1 ) ) ; 
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8 If RadioButtoM .Checked then Memc-1 .Color :=clWhite; 
If RadioButton2 . Checked then Memol .Color :=ClAqua; 
end; 

Et le code de l'evenement OnClick du Button2 : 

J procedure TStandardTab.Button2Click(Sender: TObject); 
J begin 

If CheckBoxl .State = cbChecked then 

StandardTab. Font .Style :=[f sltalic] 
else StandardTab. Font. Style:=[] ; 
If CheckBox2. State = cbChecked then 
StandardTab . Font . Color : =clPurple 
else StandardTab. Font .Color :=clBlack; 

end; 

Et le code pour l'evenement OnClick du Button3 : 

procedure TStandardTab.Button3Click(Sender: TObject); 
begin 

Close; 

end; 

N'inserez pas tout de suite le code du Button4, qui permet de cacher cette fiche et d'afficher 
la suivante. II sera ajoute des que nous aurons cree une fiche pour les onglets suivants. 

MnFo N'oubliez pas que lorsque vous double-cliquez sur un composant, vous cr'eez la declaration 
llUI C de procedure comportant les mots cle begin et end. II ne vous reste plus qu'a remplir le code 

figurant ci-avant. De plus, vous ne verrez pas le code correspondant a tous les contrbles de la 
^ fiche. En effet, Delphi nettoie lors de la compilation les Gestionnaires d'evenements vides qui 

sont cr'e'es lorsque vous double-cliquez sur un composant. En fait, il est preferable de laisser 

Delphi se charger de ces suppressions, car en vous en chargeant vous-meme, vous risquez de 

commettre des erreurs. 

Enfin, ajoutez le code pour les composants MainMenu et PopupMenu. Regardez le composant 
MainMenu . A premiere vue, ce composant et son utilisation peuvent vous sembler etranges, tout 
particulierement si vous avez deja programme en Visual Basic. Vous vous demandez peut-etre 
ou se trouve le Concepteur de menu. Vous pouvez l'activer par le biais de la propriete Items 
qui figure dans l'lnspecteur d'objets. 
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Figure 8.8 

L'Inspecteur d'objets pour 
le composant MainMenu. 




Name MainMenul 
Tag 0 




Si vous double-cliquez sur la valeur de la propriete Items, la ou figure (Menu), vous voyez 
apparaitre le Concepteur de menu (voir Figure 8 .9) .Vous pouvez egalement cliquer sur le com- 
posant MainMenu de votre fiche et utiliser le menu contextuel en cliquant a droite. 

Figure 8.9 

Le Concepteur de menu. 




L'Inspecteur d'objets se modifie pour laisser de la place au Concepteur de menu (voir Figure 8.10). 
La, vous pouvez modifier les titres des elements de menu que vous souhaitez ajouter. 

Commencez par y faire figurer &Fichier. Le "&" dit a Delphi de souligner le caractere qui suit 
et de definir la touche de raccourci correspondante. Ainsi, dans cet exemple vous pouvez appe- 
ler l'element de menu Fichier en appuyant sur Alt et F pendant l'execution. Une fois que vous 
avez ajoute l'element de menu Fichier, vous pouvez remarquer qu'une boite est apparue a la 
droite de cet element. Elle vous permet en cliquant dessus d'ajouter un autre element de menu 
pour peu que vous modifiiez a nouveau la propriete Caption de l'lnspecteur d'objets. Cliquez 
done sur fichier. Cliquez dans la boite qui apparait alors et l'lnspecteur d'objets vous laisse 
modifier le titre. Ajoutez une option Quitter au menu Fichier. Modifiez la propriete Caption 
en &Quitter et Quitter s'ajoute en dessous de l'element Fichier. 

Remarquez les boites vides qui figurent sous Quitter et a droite de Fichier dans la boite de 
menu. Vous cliquez sur celles-ci pour ajouter des options. Si vous ne cliquez pas dessus, elles 
n'apparaitront pas dans votre menu. 
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Figure 8.10 

L'Inspecteur d'objets pour 
le concepteur de menu. 




Ajoutez un menu Aide comportant un element Aide, une ligne separatrice et un element A pro- 
pos. Pour ajouter le menu Aide, il suffit d'entrer &Aide dans les proprietes caption comme 
vous l'avez fait pour les elements de menu Fichier et Quitter. Pour creer la ligne separatrice, 
ajoutez un tirer (-) dans la propriete caption du sous-menu, juste sous l'element Aide en 
1' occurrence. Vous verrez le separateur apparaitre immediatement. Vous pouvez maintenant 
ajouter un element A propos en ajoutant &A propos sous la ligne separatrice (voir Figure 8.1 1). 




Lorsque vous avez fini la conception du menu, cliquez sur la case de fermeture de l'ecran Con- 
cepteur de menu. Le Concepteur de menu se ferme et vous pouvez voir vos elements de menu 
sur la fiche. Vous pouvez alors naviguer dans ces elements comme vous le feriez dans un menu 
normal en cliquant sur une option, en laissant le bouton de la souris enfonce et en faisant glisser 
votre souris. Pour ajouter du code a un des elements, il vous suffit de selectionner l'element 
concerner comme si vous etiez dans un menu, et vous vous retrouvez dans le Gestionnaire 
d'evenements correspondant. Vous pouvez alors faire un Selectionner Fichier/Quitter sur votre 
nouvel element de menu et ajouter la section de code qui suit pour le refermer. Utilisez plutot 
le Gestionnaire d'evenements que vous avez cree auparavant. Dans l'lnspecteur d'objets, 
selectionnez Quitterl (votre element de menu Fichier/Quitter) en utilisant la boite a options. 
Puis selectionnez l'onglet Evenements dans l'lnspecteur d'objets et cliquez sur la fleche vers 
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le bas de la boite a options de l'evenement OnClick pour voir les options disponibles. Selec- 
tionnez Button3Click. Ainsi, vous avez evite de retaper une ligne de code. Dans un Gestion- 
naire d'evenements de taille plus importante, le temps gagne aurait ete bien plus appreciable. 

Ce gestionnaire se contente de fermer 1' application. Vous n'avez pas besoin d'ajouter du code 
dans les autres elements. II ne s'agit que d'un exemple vous montrant comment creer des 
menus. Plus tard, nous reviendrons sur ces elements et nous ajouterons le code correspondant 
aux elements Aide et A propos de. 

Si vous n'avez pas laiss'e assez de place au sommet de votre fiche, il se peut que votre menu 
recouvre certains de vos composants et que les barres de defilement aient disparu. Pour y 
rem'edier, il suffit dans ce cas de redimensionner la fiche, en I'allongeant et en deplacant les 
composants vers le bas pour laisser un peu de place au menu. 

II vous suffit d'ajouter le menu contextuel et vous en aurez fini avec cette fiche. Cliquez sur le 
composant PopupMenu que vous avez place sur la fiche tout a l'heure. Cliquez a droite pour fai- 
re apparaitre le menu contextuel. La, selectionnez Concepteur de menu... Ce concepteur de 
menu fonctionne de la meme maniere que celui du MainMenu, a la difference que tous les ele- 
ments de menu sont disposes verticalement le long d'une boite unique. Pour ajouter du code 
aux elements de menu du menu contextuel, vous devez selectionner l'element de menu dans le 
Concepteur. Vous vous retrouvez alors dans le code du Gestionnaire d'evenements. Ajoutez 
les deux elements Aller a et Mise a jour polices. Ceci fait, sortez du Concepteur. Utilisez pour 
ces elements les methodes deja existantes, en reprenant la technique mise ne rxuvre pour le 
menu precedent. Dans l'lnspecteur d'objets, selectionnez Allez a et selectionnez 
Buttonl Click pour l'evenement OnClick. Ensuite, utilisez l'lnspecteur pour selectionner 
UpdateFontsI et selectionnez Button2Click pour l'evenement OnClick. Votre menu fonc- 
tionne et vous n'avez pas eu a retaper le code. 

Si tout s'est bien passe, vous devez avoir termine avec cette partie de l'application VCLDE- 
MO. Veillez a bien enregistrer votre travail. Vous pouvez maintenant regarder le code comple- 
xe de cette fiche, qui figure dans le Listing 8.1 . 

Listing 8.1 : Code de I'onglet standard de la fiche VCLDEMO 

I unit Standard; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
Menus, StdCtrls, ExtCtrls , Addition ; 
type 
TStandardTab = class (TForm) 
MainMenu! : TMainMenu; 
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La bibliortieque de composanrs visuels 



PopupMenul : TPopupMenu; 
Panell : TPanel; 
Labell : TLabel; 
Editl : TEdit; 
RadioGroupl : TRadioGroup; 
GroupBoxl : TGroupBox; 
Button3: TButton; 
Button2: TButton; 
CheckBoxl : TCheckBox; 
CheckBox2: TCheckBox; 
ScrollBarl : TScrollBar; 
Memol : TMemo; 
ComboBoxl : TComboBox; 
ListBoxl : TListBox; 
Buttom : TButton; 
Button4: TButton; 
RadioButtonl : TRadioButton ; 
RadioButton2: TRadioButton; 
Filel : TMenuItem; 
Exitl : TMenuItem; 
Helpl : TMenuItem; 
Help2: TMenuItem; 
N1 : TMenuItem; 
Aboutl : TMenuItem; 
Go: TMenuItem; 
UpdateFontsI : TMenuItem; 

procedure RadioGroup1Click(Sender: TObject); 

procedure ScrollBar1Change(Sender: TObject); 

procedure Button3Click(Sender: TObject); 

procedure Button2Click(Sender: TObject); 

procedure Button1Click(Sender: TObject); 

procedure GoClick(Sender: TObject); 

procedure UpdateFonts1Click(Sender: TObject); 

procedure Button4Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 



var 
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StandardTab: TStandardTab; 



implementation 
{$R * . DFM} 

procedure TStandardTab. RadioGroup1Click(Sender: TObject); 
begin 

If RadioGroupl . ItemIndex=0 Then StandardTab. Color:=clSilver 
If RadioGroupl . Itemlndex=1 Then StandardTab. Color:=clBlue; 
If RadioGroupl . Itemlndex=2 Then StandardTab. Color:=clYellow 
If RadioGroupl . Itemlndex=3 Then StandardTab. Color:=clRed; 

end; 

procedure TStandardTab. ScrollBar1Change(Sender: TObject); 
begin 

RadioGroupl . Itemlndex := ScrollBaN . Position; 

end; 

procedure TStandardTab. Button3Click (Sender : TObject); 
begin 

Close; 

end; 

procedure TStandardTab. Button2Click (Sender : TObject); 
begin 

If CheckBoxl .State = cbChecked then 

StandardTab . Font . Style : = [f sltalic] 
else StandardTab. Font. Style:=[] ; 
If CheckBox2. State = cbChecked then 

StandardTab . Font . Color : =clPurple 
else StandardTab. Font .Color :=clBlack; 

end; 

procedure TStandardTab. Button1Click(Sender: TObject); 
Var 

x : Integer; 
begin 

Memol .Clear; 

Memol . Lines. Add(Edit1 .Text) ; 
Memol . Lines .Add (ComboBoxl .Text) ; 
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Memol . Lines .Add (EListBox String#i+IntToStr(ListBox1 . Itemlndex+1 ) ) ; 
If RadioButtonl . Checked then Memol .Color :=clWhite; 
If RadioButton2 . Checked then Memol .Color :=ClAqua; 

end; 

procedure TStandardTab.GoClick(Sender: TObject); 
begin 

ButtonlClick(StandardTab) ; 

end; 

procedure TStandardTab.UpdateFonts1Click(Sender: TObject); 
begin 

Button2Click(StandardTab) ; 

end; 

procedure TStandardTab.Button4Click(Sender: TObject); 
begin 

StandardTab . Hide ; 
AdditionalTab.Show; 

end; 
end. 

Enregistrez votre projet et testez-le. Lorsque vous executez votre projet, la fiche doit ressem- 
bler a la Figure 8.12. Le seul element de menu qui fasse quelque chose pour l'instant est 
Fichier/Quitter. Lorsque vous effectuez des modifications dans les composants Edit, ListBox 
ou ComboBox et appuyez sur le bouton Action, les mises a jour apparaissent dans le composant 
Memo. Lorsque vous selectionnez Action, la couleur de fond devient celle selectionnee par les 
boutons radio au bas de la fiche. Vous pouvez modifier la couleur du fond de la fiche en utili- 
sant la barre de defilement ou en selectionnant la couleur desiree parmi celles proposees par 
les boutons radio du RadioGroup. La couleur de police de la fiche peut devenir violette et la 
police passer en italique en cochant les cases a cocher et en cliquant sur le bouton Mise a jour 
police. Enfin, vous pouvez selectionner Action ou Mise a jour polices dans le menu contextuel 
en cliquant a droite n'importe ou dans la fiche. 



Nous venons de voir tous les composants de l'onglet Standard et la facon dont chacun fonc- 
tionne. Vous pouvez remarquer que vous n'avez en fait pas ecrit beaucoup de code et qu'il ne 
vous a pas ete necessaire de modifier de nombreuses proprietes pour que tout puisse fonction- 
ner. Vous commencez peut-etre a prendre la mesure de la puissance de la VCL de Delphi. 
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Figure 8.12 

Lafiche Onglet standard 
de VCLDEMO. 




Onglet Supplement 



L'onglet Supplement contient d'autres composants visuels frequemment utilises. Vous dispo- 
sez dans cet onglet de treize composants. Nous allons les examiner et en utiliser certains dans 
notre projet VCLDEMO (voir Figure 8.13). 



Figure 8.13 

L'onglet Supplement. 
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Tableau 8.2 : L'onglet Supplement de la palette de composants 



Composant 



Description 



Le composant BitBtn permet de creer un bouton contenant un graphique 
bitmap (un bouton OK comportant une coche, par exemple). 



Le composant SpeedButton est con§u specifiquement pour le 
composant Panel. II vous permet de creer des barres d'outils et des 
ensembles dedies de boutons, tels que des boutons qui restent enfonces. 
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Composant Description 



Le composant MaskEdit permet de formater des donnees ou sert de 
crible pour certaines entrees. 

Le composant StringGrid est utilise pour afficher des donnees de 
chaines en lignes et en colonnes. 

Le composant Draw/Grid permet d'afficher des informations — autres 
que textuelles — dans des lignes et des colonnes. 

Le composant Image permet d'afficher des graphiques tels qu'icones, 
bitmap et metafichiers. 

Le composant Shape permet de dessiner des formes telles que des carres, 
des cercles, etc. 

Le composant Bevel permet de dessiner un rectangle apparaissant 
enfonce ou sureleve. 

Le composant ScrollBox permet de creer une zone d'affichage que Ton 
peut faire defiler. 

Le composant CheckListBox combine les fonctionnalites d'un ListBox 
et d'un CheckBox en un seul composant. 

Le composant Splitter permet de creer des zones d'affichage 
redimensionnables par l'utilisateur. 

Le composant StaticText ressemble au composant Label, mais 
comporte des fonctionnalites supplementaires, comme le style de 
bordure. 

Le composant Chart fait partie de la famine TChart et est utilise pour 
creer des graphes. 



Maintenant que vous avez brievement vu les composants de l'onglet Supplement, nous allons 
construire la deuxieme page de 1' application VCLDEMO pour apprendre a les utiliser. Ajoutez 
une nouvelle fiche au projet VCLDEMO. Modifiez la propriete Name de la fiche pour qu'elle 
devienne ongletsupplement. Modifiez caption en "Onglet Supplement". Selectionnez Fichier/ 
Enregistrer sous et enregistrez la nouvelle fiche sous SUPPL . PAS. Au fur et a mesure que vous 
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ajouterez les composants, reportez-vous Figure 8.14 pour connaitre leur emplacement et leur 
taille approximative. 




Centrez cette fiche sur l'ecran. Pour ce faire, vous devez definir la propriete position. Cette pro- 
priete est definie par defaut comme poDesigned, qui signifie qu'elle apparait dans la position 
de sa conception. Cliquez une fois sur poDesigned pour faire apparaitre une boite a options. 
Selectionnez poScreenCenter. Ce parametre prend effet lorsque la fiche est activee. Vous 
devez egalement ajouter Supplement a la clause uses des fiches. Avant de poursuivre, vous 
devez par ailleurs revenir a la fiche Onglet Standard pour ajouter du code vous permettant 
d'acceder a cette nouvelle fiche. Dans le menu, selectionnez Voir/Fiches pour faire apparaitre 
le menu Fiches, puis OngletStandard. Double-cliquez sur Button4 (Page suivante) et definis- 
sez son evenement Click comme suit : 

procedure TStandardPage. Button4Click (Sender : TObject); 
begin 

StandardPage.Hide; 
AdditionalPage.Show; 

end; 

Commencons par le composant BitBtn. Placez trois de ces composants dans le coin inferieur 
droit de la fiche. Pour BitBtnl et BitBtn2, definissez la propriete Kind a bkCustom. Definissez 
la propriete caption de BitBtnl comme Prec. et celle de BitBtn2 comme Suivant. Le com- 
posant BitBtn vous permet de placer sur un bouton un graphique, appele glyphe. Les glyphes 
ne sont rien d'autres que de petits bitmap pouvant contenir des images differentes, selon l'etat 
d'un BitBtn ou d'un SpeedButton. Vous pouvez utiliser un des glyphes predefinis proposes 
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par Delphi ou concevoir le votre en utilisant l'Editeur d'image qui se trouve dans le menu 
Outils. Nous allons nous contenter des glyphes fournis par Delphi. Pour BitBtnl , double-cli- 
quez sur Tbitmap dans la propriete Glyph. Vous faites ainsi apparaitre l'Editeur d'image (voir 
Figure 8.15). Cet ecran ne vous permet en fait pas d'editer l'image, mais vous pouvez selec- 
tionner le nom de fichier du glyphe desire pour le visualiser avant de l'ajouter au bouton. 



Figure 8.15 

L'Editeur d'image. 




Cliquez sur le bouton Charger pour faire apparaitre la boite de dialogue de selection de fichier. 
Allez dans le repertoire C:\program files\borland\delphi 2.0\images\buttons (si votre configu- 
ration est standard) et selectionnez ARROWl.BMP. Vous voyez apparaitre une fleche rouge 
pointant vers la gauche ainsi qu'une fleche blanche. La fleche rouge s'affiche lorsque le bouton 
est dans l'etat enabled (active). La fleche blanche quand le bouton est en etat disabled (desac- 
tive). Cette fleche donne l'aspect grise au bouton. Vous pouvez faire basculer la propriete Ena - 
bled du bouton entre True et False pour voir la difference d'aspect qui en resulte. Lorsque 
vous avez termine, assurez-vous que la propriete Enabled du bouton est definie comme True. 
En suivant la meme methode pour BitBtn2, definissez son glyphe comme ARROWlR.BMP. 
La definition de BitBtn3 sera plus facile car vous utilisez un type predefini dans la propriete 
Kind. Pour Bit Btn3, cliquez sur Kind et selectionnez bkClose. Ceci definit le glyphe du bouton 
comme une porte ouverte et la propriete Caption comme Fermer. La propriete Kind comporte 
10 types predefinis auxquels s'ajoute un type bkCustom qui vous permet de creer votre propre 



type de bouton. 




bkAbout 




bkAll 




bkCancel 




bkClose 




bkCustom 




bkHelp 




bklgnore 




bkNo 




bkOk 




bkRetry 




bkYes 
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Les noms sont relativement parlants. Ces types correspondent a des boutons usuels de Win- 
dows. Le type bkCustom est utilise lorsque vous souhaitez creer un nouveau type de bouton. 
Regroupez correctement vos boutons en ajoutant un composant Bevel. Selectionnez le compo- 
sant Bevel dans l'onglet supplement et tracez-le autour de la boite. Vous donnez ainsi l'impres- 
sion que votre boite est legerement enfoncee. 

Ajoutez un peu de code aux boutons en double-cliquant sur BitBtM et en ajoutant le code sui- 
vant a l'evenement Click : 

I procedure TAdditionalTab.BitBtn1Click(Sender: TObject); 
begin 
Standard . StandardTab. Show; 
AdditionalTab .Hide ; 
end; 
Nous reviendrons sur BitBtn2 plus tard, mais pour l'instant, ajoutez ce code 
a bitBtn3 : 
procedure TAdditionalTab.BitBtn3Click(Sender: TObject); 
begin 
Standard .StandardTab. Close; 
end; 
Pour que le bouton Fermer fonctionne, ajoutez le code suivant a l'evenement 
Close de la fiche : 
procedure TAdditionalTab. FormClose (Sender: TObject; 
var Action: TCloseAction) ; 
begin 
Application .Terminate; 
end; 

Si vous n'ajoutez pas ce code, la fiche se refermera lorsqu'on appuiera sur le bouton Fermer, 
mais l'application restera en memoire, mobilisant inutilement des ressources. A present, creez 
une barre d'outils. Pour ce faire, vous devez utiliser un composant Panel comme conteneur de 
vos boutons. Ajoutez un Panel pres du coin superieur gauche de la fiche, en vous assurant qu'il 
est assez grand pour contenir deux boutons carres. Ajoutez ensuite deux SpeedButton au volet 
(Panel). Les SpeedButtons vous permettent de faire certaines choses impossibles avec 
d'autres boutons. Ainsi, vous pouvez creer des boutons qui restent enfonces, vous pouvez 
regrouper des boutons et meme creer des boutons dont le glyphe change selon l'etat du bouton. 
Les etats disponibles pour un SpeedButton sont Up (releve), Disabled (desactive), Down 
(enfonce) et Stay Down (toujours enfonce). A chacun de ces etats correspond un glyphe. Pour 
tirer partie de ces etats, vous pouvez utiliser l'Editeur d'image pour creer un glyphe compose 
de quatre images. Nous avons vu tres brievement l'Editeur d'image au 2eme jour (reportez- 
vous aux manuels ou a l'aide en ligne pour plus de details). L'Editeur d'image est un program- 
me de dessin simple, confu pour creer des ressources, des icones, des bitmap, etc. (voir 
Figure 8.16). Si vous avez deja utilise un programme Windows tel que Paint ou Draw, vous ne 
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serez pas depayse par l'Editeur d'image. Si vous ne vous sentez pas pret a utiliser cet editeur 
tout de suite, vous pouvez poursuivre la conception et revenir a 1' editeur un peu plus tard. 



Figure 8.16 

L'Editeur d'image. 




Vous allez creer un bitmap 16 couleurs de taille 16 x 64. L'image comportera quatre boites 
carrees de meme taille mais de couleurs differentes. En allant de gauche a droite, vous pouvez 
les colorer en vert, gris, violet et rouge respectivement. Lorsque vous avez termine, il vous suf- 
fit de faire Fichier/Enregistrer, de definir le type comme BMP et d'enregistrer le glyphe sous 
un nom de votre choix par exemple GRNRED.BMP par exemple. En utilisant la meme metho- 
de que pour le BitBtn, definissez la propriete Glyph de SpeedButtonl comme GRNRED.BMP, 
qui est le fichier que vous venez de creer. Definissez la propriete Glyph de SpeedButton2 com- 
me C:\program files\borland\delphi 2.0\images\buttons\globe.bmp (si votre configuration 
d' installation est standard). Pour le SpeedButtonl , assurez-vous que la propriete NumlGlyphs 
est definie a 4 (4 est la valeur par defaut). Ceci indique qu'il y a quatre glyphes disponibles 
pour les 4 etats mentionnes plus haut. Definissez la propriete Grouplndex a 1. Vous indiquez 
ainsi au bouton qu'il appartient au groupe numero 1 . Un seul bouton peut etre enfonce a la fois 
dans un groupe. Comme dans le cas des boutons radio, si vous cliquez sur l'un des boutons, 
tous les autres boutons du groupe se relevent. Definissez a 2 les proprietes Grouplndex et 
NumGlyphs du SpeedButton2. Vous venez de finir la conception de votre barre d'outils, il ne 
reste plus qu'a ajouter le code. 

Double-cliquez sur SpeedButtonl et faites que son evenement Click ressemble a : 

J procedure TAdditionalTab.SpeedButton1Click(Sender: TObject); 
J begin 

If SpeedButtonl . Down=True then 



262 DELPHI 3 



I Begin 
Imagel .Visible :=False; 
Shapel . Brush. Color:=clRed; 
end; 
end; 
L'evenement Click du SpeedButton2 sera celui-ci : 
procedure TAdditionalTab.SpeedButton2Click(Sender: TObject); 
begin 
If SpeedButton2 . Down=True then 
Begin 
Imagel .Visible:=True; 
Shapel . Brush. Color :=clLime; 
end; 
end; 

Ajoutez maintenant un composant Shape a gauche de la barre d'outils. Donnez-lui a peu pres 
la taille des SpeedButtons de la barre d'outils. Definissez sa propriete Shape comme stEllip - 
se. Double-cliquez sur la propriete Pen pour faire apparaitre les proprietes imbriquees. Defi- 
nissez la propriete Color comme clGreen. Double-cliquez sur la propriete Brush pour faire 
apparaitre ses proprietes imbriquees et definissez sa propriete Color comme clLime. Les pro- 
prietes Pen definissent les attributs utilises lors du dessin de la forme (couleur de la ligne, etc). 
Les proprietes Brush definissent les attributs utilises pour remplir la forme. 

Ensuite, ajoutez un composant Image a droite de la barre d'outils. Faites que ce composant 
image ait a peu pres la taille des SpeedButtons. Le composant Image peut afficher des graphi- 
ques tels que des icones, des bitmap, ou des metafichiers. Ici, nous utiliserons une icone. Dou- 
ble-cliquez sur la propriete Picture pour faire apparaitre l'Editeur d'image. Chargez un fichier 
d'icone dans \delphi\images\icons\earth. Le code que vous avez ajoute aux SpeedButtons per- 
met d'affecter l'aspect des composants Shape et Image. 

Sur le SpeedButtonl , utilisez Hint, une propriete commune a tous les composants visuels. Cet- 
te propriete Hint stocke une chaine de texte qui s'affiche lorsque l'utilisateur laisse le pointeur 
de la souris au-dessus du composant pendant un certain temps. Modifiez la propriete Hint du 
bouton en Inf obulle. Pour activer la propriete Hint, vous devez definir comme True la pro- 
priete ShowHints (qui est False par defaut). Vous pourrez tester l'info-bulle lors de l'execu- 
tion. 

Ajoutez un composant Label a la fiche, avec pour propriete Caption le texte Entrez un numero 
de telephone. Ensuite, juste au-dessous du label, ajoutez un composant MaskEdit. Double-cli- 
quez sur la propriete EditMask pour faire apparaitre l'Editeur de masque de saisie. Cliquez sur 
Phone et appuyez sur OK. De cette maniere, le composant EditMask n'acceptera que des chif- 
fres dans un format correspondant a un indicatif suivi d'un numero de telephone. 

Placez un composant StringGrid sur la fiche. Definissez a 3 les proprietes RowCount et Col- 
Count, et a 0 les proprietes FixedCols et FixedRows. Ajustez la taille de la StringGrid pour 
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que seules neuf cellules soient visibles. Ajoutez un bouton a la fiche et donnez-lui pour cap- 
tion Remplir la grille. Double-cliquez sur le bouton et ajoutez le code ci-apres : 

procedure TAdditionalTab.Button1Click(Sender: TObject); 
var 

x, y: Integer; 
begin 
with StringGridl do 

for x := 0 to ColCount - 1 do 
for y:= 0 to RowCount - 1 do 

Cells[x,y] := 'Cord. '+ lntToStr(x)+i-i+IntToStr(y) ; 

end; 

Le dernier composant de cette page est la ScrollBox. Tracez cette ScrollBox dans le coin infe- 
rieur droit de la fiche en vous referant a la Figure 8.14 pour sa taille. Vous allez ajouter quel- 
ques composants a cette zone afin de montrer que Ton peut la faire defiler. Ajoutez un BitBtn 
a la boite et definissez sa propriete Kind comme bkHelp. Ajoutez un Panel a la boite. Si vous 
faites glisser le Panel sous la bordure inferieure de la boite de defilement, des barres de defile- 
ment apparaissent. Etirez temporairement la boite de defilement de bas en haut, jusqu'a lui fai- 
re prendre une taille deux ou trois fois plus grande que necessaire. Placez le bouton au sommet 
et le volet au bas. Definissez la propriete Caption du volet comme Le volet de la boite de 
defilement. Ensuite, redimensionnez la boite de defilement pour qu'elle ressemble a celle de 
la Figure 8.13. Double-cliquez sur le bouton d'aide de la boite de defilement et ajoutez le code 
ci-apres a son evenement Click : 

procedure TAdditionalTab.BitBtn4Click(Sender: TObject); 
begin 

ShowMessage( 'Test du bouton Aide dans la Scrollbox'); 

end; 

Double-cliquez sur BitBtn2 et ajoutez le code ci-apres : 
procedure TAdditionalTab.BitBtn2Click(Sender: TObject); 
begin 

ShowMessage( 'Cette fonction n''est pas active'); 

end; 

Vous en avez fini avec la fiche Onglet supplement et vous pouvez la tester. Le code source 
complet de l'unite Supplement que vous avez creee doit ressembler au Listing 8.2 : 

Listing 8.2 : Code de V onglet Supplement de VCLDEMO 
unit Addition; 

interface 
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uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
Buttons, StdCtrls, ExtCtrls, Grids, Outline, Mask, 
TabNotBk, Tabs; 

type 

TAdditionalTab = class (TForm) 
BitBtnl : TBitBtn; 
BitBtn2: TBitBtn; 
Panell : TPanel; 
SpeedButtonl : TSpeedButton ; 
SpeedButton2: TSpeedButton; 
Bevell : TBevel; 
Imagel : TImage; 
Shapel : TShape; 
ScrollBoxl : TScrollBox; 
BitBtn3: TBitBtn; 
BitBtn4: TBitBtn; 
Panel5: TPanel; 
Labell : TLabel; 
MaskEditl : TMaskEdit; 
StringGridl: TStringGrid; 
Buttonl : TButton; 

procedure BitBtn1Click(Sender: TObject); 

procedure BitBtn3Click(Sender: TObject); 

procedure Button1Click(Sender: TObject); 

procedure SpeedButton2Click(Sender: TObject); 

procedure SpeedButton1Click(Sender: TObject); 

procedure FormClose (Sender: TObject; var Action: TCloseAction) ; 

procedure BitBtn4Click(Sender: TObject); 

procedure BitBtn2Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

AdditionalTab: TAdditionalTab; 
implementation 
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Uses 

Standard; 
{$R * . DFM} 

procedure TAdditionalTab.BitBtn1Click(Sender: TObject); 
begin 

StandardTab.Show; 

AdditionalTab . Hide ; 
end; 

procedure TAdditionalTab.BitBtn3Click(Sender: TObject); 
begin 

StandardTab. Close; 
end; 

procedure TAdditionalTab.Button1Click(Sender: TObject); 
var 

x, y: Integer; 
begin 
with StringGridl do 

for x := 0 to ColCount - 1 do 
for y:= 0 to RowCount - 1 do 

Cells[x,y] := 'Cord. '+ lntToStr(x)+i-i+IntToStr(y) ; 

end; 

procedure TAdditionalTab.SpeedButton2Click(Sender: TObject); 
begin 

If SpeedButton2 . Down=True then 
Begin 

Imagel .Visible:=True; 
Shapel . Brush. Color :=clLime; 
end; 

end; 

procedure TAdditionalTab.SpeedButton1Click(Sender: TObject); 
begin 

If SpeedButtonl . Down=True then 
Begin 

Imagel .Visible:=False; 
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Shapel . Brush. Color :=clRed; 
end; 

end; 

procedure TAdditionalTab.FormClose(Sender: TObject; 

var Action: TCloseAction) ; 
begin 

Application .Terminate; 

end; 

procedure TAdditionalTab.BitBtn4Click(Sender: TObject); 
begin 

ShowMessage( 1 Test du bouton Aide! 1 ); 

end; 

procedure TAdditionalTab.BitBtn2Click(Sender: TObject); 
begin 

ShowMessage( 1 Cette f onctionnalite n''est pas implementee 1 ) ; 

end; 
end . 

Enregistrez le projet et testez-le. Vous devriez pouvoir parcourir les deux fiches et tester les 
composants que vous avez places sur chacune des pages. Cliquez sur les boutons de la barre 
d'outils (les SpeedButtons) et observez les divers resultats. Utilisez la barre de defilement pour 
voir le bouton Aide et le volet. Cliquez sur le bouton Aide pour faire apparaitre une boite de 
message. Lorsque vous avez termine, cliquez sur Fermer et vous quittez le programme. 

Vous avez pu voir de nombreux composants et vous avez beaucoup travaille, sans pour autant 
avoir construit quelque chose de veritablement utile. Le but etait de vous familiariser avec la 
VCL et de vous donner un peu de pratique. Vous attendez peut-etre avec apprehension les exer- 
cices suivants consacres aux sept autres onglets... Rassurez-vous, le plus dur est derriere vous. 
Les composants AccesDB et ControleDB ne seront abordes que brievement ici (ils seront 
detailles dans la partie consacree aux bases de donnees). Nous allons parler de l'onglet Win95, 
de l'onglet Dialogues et de l'onglet Systeme. D'autres composants de cet onglet Systeme 
seront detailles dans d'autres journees. Nous ne parlerons pas des composants des onglets Acti- 
veX et Exemple, car il ne s'agit la que de composants exemple, et ils ne sont pas pris en charge 
ou documented officiellement. Examinons rapidement le contenu des autres onglets et cons- 
truisons une petite application qui permettra de tester certains composants qui s'y trouvent. 



LE PR*)GRAMMEUR 



La bibliortieque de composanTs visuels 



Qngler Win32 



L'onglet WIN32 contient 16 composants qui vous permettent de creer des applications dans 
l'esthetique de Windows 95 et NT 4.0 (voir Figure 8.17). Certains de ces controles sont simi- 
laires a ceux que Ton peut trouver dans l'onglet Win3.1 . Tous, a l'exception de ImageList, sont 
des composants visuels. Le Tableau 8.3 decrit brievement chaque composant. 



Figure 8.17 

L'onglet Win32. 



I Systems | Internet | AccesBD | ControleBD | Deeisran Cube | QReport | Dielot 



3 



Tableau 8.3 : Les composants de l'onglet Win32 



Composant 



Description 



TabControl est un composant de tabulation Windows95 permettant 
d'ajouter des tabulations a une fiche pour que l'utilisateur les 
selectionne. 

PageControl est un composant Windows 95 qui permet de creer des 
pages qui peuvent etre modifiees a l'aide de tabulations ou d'autres 
controles tout en preservant l'espace du bureau. 

TreeView est un composant Windows95 qui permet d'afficher des 
donnees dans un format hierarchique. 

ListView est un composant Windows95 qui affiche des listes en 
colonnes. 

ImageList est un nouvel objet qui permet de travailler avec des listes 
d'images. Pour plus de details, reportez-vous a la documentation de 
Delphi. 

Header est un composant Windows 95 permettant la creation de 
plusieurs en-tetes deplacables. 



RichEdit est une boite d'edition Windows95 qui permet d'utiliser 
plusieurs couleurs et polices, d'effectuer des recherches sur le texte, etc. 
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Composant Description 



StatusBar est une barre d'etat Windows95 permettant d'afficher des 
informations d'etat dans plusieurs volets si necessaire. 

TrackBar est un composant de barre de curseur de type Windows 95. 

ProgressBar est un composant de barre de progression de type 
Windows 95 . 

UpDown est un composant de bouton de reglage de type Windows 95. 

HotKey permet l'ajout des touches de raccourcis dans une application. 

Animate est un composant vous permettant de jouer des fichiers AVI 
silencieux. 

DatePicker est un composant vous permettant de choisir graphiquement 
une date. 

ToolBar est un composant permettant de creer des barres d'outils. 



Onplet Sijsfeme 

L'onglet Systeme contient 8 composants permettant de tirer parti des fonctionnalites meme de 
Windows. Les composants PaintBox et MediaPlayer seront traites dans d'autres parties de cet 
ouvrage. Les composants DDE et OLE sortent du cadre de cet ouvrage. Des exemples d'utilisa- 
tion de ces composants figurent dans 1' application qui clot cette journee. 



Figure 8.18 

L'onglet Systeme. 




LE PR*)GRAMMEUR 





Tableau 8.4 : Les composants de I'onglet Systeme 



Composant Description 



© 



Timer permet d'activer des procedures, des fonctions et 
des evenements a des intervalles de temps specifies. C'est 
un composant non visuel. 

PaintBox permet de creer dans la fiche une zone oil l'on 
peut dessiner. C'est un composant visuel. 

MediaPlayer permet de creer un tableau de bord 
semblable a celui d'un magnetoscope. Ce controle permet 
de lire des fichiers son et video. C'est un composant 
visuel. 

OLEContainer permet de creer une zone client OLE. C'est 
un composant visuel. 

DDEClientConv permet a un client DDE d'entamer une 
conversation avec un serveur DDE. C'est un composant 
non visuel. 

DDEClientltem permet de specifier les donnees du client 
qui seront envoyees au serveur DDE lors d'une 
conversation. C'est un composant non visuel. 

DDEServerConv permet a une application serveur DDE 
d'entamer une conversation avec un client DDE. C'est un 
composant non visuel. 

DDEServerltem permet de specifier des donnees qui 
seront envoyees a un client DDE lors d'une conversation. 
C'est un composant non visuel. 



Onojef Internet 

L'onglet Internet, visible Figure 8.19, comporte 15 composants qui facilitent grandement 
l'ecriture de programmes Internet et TCP/IP. Le Tableau 8.5 decrit brievement chaque compo- 
sant. 
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Figure 8.19 

L'onglet Internet. 
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Tableau 8.5 : Les composants de l'onglet Internet 



Composant Description 



FTP est utilise pour transferer des fichiers entre ordinateurs 
via l'lnternet ou un autre reseau TCP/IP, et ce grace au 
protocole FTP. 

HTML est utilise pour afficher des pages HTML, comme le 
fait un logiciel de navigation Web. 

HTTP est utilise pour se connecter a des serveurs Web. 



POP est utilise pour se connecter a des serveurs POP afin 
de recuperer du courrier electronique. 

TCP est utilise pour communiquer avec d'autres 
ordinateurs sur un meme reseau TCP/IP. 

UDP est utilise pour effectuer des connexions UDP sur un 
reseau TCP/IP 

ClientSocket est utilise pour etablir une connexion avec 
une autre machine a travers un reseau. 

Serve rSocket est utilise pour repondre a des requetes en 
provenance d'autres machines sur un reseau. 

WebDispatcher est utilise pour convertir un module 
standard de donnees en module Web. 
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La bibliortieque de composanfs visuels 



Composant 



Description 



PageProducer est utilise pour convertir un modele HTML 
en une chaine de code HTML qui peut etre visualisee sur 
un logiciel de navigation Web ou tout autre visualisateur 
HTML. 

QueryTableProducer est utilise pour creer un Tableau 
HTML a partir des enregistrements d'un objet Tquery. 

DataSetTableProducer est utilise pour creer un Tableau 
HTML a partir des enregistrements d'un TDataSet. 



Onglet HccesBD 



L'onglet AccesBD visible Figure 8.20 contient des composants non visuels permettant de se 
relier et de communiquer a des bases de donnees. Ces composants ne seront pas decrits ici car 
ils feront l'objet d'une partie entiere dans la suite de cet ouvrage (voir Tableau 8.6). 



Figure 8.20 

L'onglet AccesBD. 
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Tableau 8.6 : Les composants de l'onglet AccesBD 



Composant 



Description 



DataSource permet de connecter les composants Table ou Query a des 
composants de bases de donnees. 



Table permet de lier une base de donnees a une application. 



Query permet de creer et d'executer des requetes SQL faites a un serveur 
SQL distant ou a une base de donnees locale. 
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Composant Description 



StoredProc permet d'executer des procedures qui ont ete stockees sur 
un serveur SQL. 

Database permet d'etablir des connexions avec des serveurs de bases de 
donnees distants ou locaux. 

Session permet de controler globalement les connexions de base de 
donnees d'une application. 

BatchMove permet de manipuler localement des enregistrements et des 
tables, puis de rapatrier dans le serveur les informations mises a jour. 

UpdateSQL permet d'effectuer des mises a jour dans une base de donnees 
SQL. 

Provider est utilise pour mettre a disposition une connexion entre un 
serveur distant de bases de donnees et un ensemble de donnees client 
dans une application de bases de donnees multiliaison. 

ClientDataset effectue l'acces client a une base de donnees 
multiliaison. 

RemoteServer est utilise pour se connecter a une base de donnees 
multiliaison sur un serveur distant. 



Onglet ControleBD 

L'onglet ControleBD contient differents composants visuels orientes donnees. La plupart de 
ces composants sont des version orientees donnees de composants usuels qui figurent dans les 
onglets Standard et Supplement (voir Figure 8.21). Nous decrivons rapidement ces compo- 
sants dans le Tableau 8.7. 



Figure 8.21 

L'onglet ControleBD. 
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Tableau 8.7 : Les composants de I'onglet ContrdleBD 



Composant Description 



DBGrid permet de creer une grille orientee donnees dans laquelle on peut 
afficher des donnees en lignes et en colonnes. 



DBNavigator permet de creer un controle de navigation dote de 
capacites d'edition dans la base de donnees. 

DBText est une version orientee donnees du composant Label. 
DBEdit est une version orientee donnees du composant Edit. 
DBMemo est une version orientee donnees du composant Memo. 
DBImage est une version orientee donnees du composant Image. 
DBListBox est une version orientee donnees du composant ListBox. 
DBComboBox est une version orientee donnees du composant ComboBox. 

DBCheckBox est une version orientee donnees du composant CheckBox. 



DBRadioGroup est une version orientee donnees du composant 
RadioGroup. 

DBLookupListBox permet de creer une ListBox de balayage (lookup 
ListBox) orientee donnees. 

DBLookupComboBox permet de creer une ComboBox de balayage (lookup 
ComboBox) orientee donnees. 
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Composant Description 



DBRichEdit permet de creer un champ RichEdit oriente donnees. 



DBLookupCtrlGrid permet de creer une CtrlGrid de balayge (lookup 
CtrlGrid) orientee donnees. 



Onojef Decision Cube 



L'onglet Decision Cube, represents Figure 8.22, comporte six composants de graphes destines 
a simplifier l'ecriture de logiciels d'analyse des donnees. Ces composants ne sont disponibles 
que dans la version CS de Delphi 3, et nous n'en donnerons ici qu'une description breve. Refe- 
rez-vous a l'aide en ligne ou aux manuels fournis pour avoir plus de details. 



Figure 8.22 

L'onglet Decision Cube. 
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Tableau 8.8 : Les composants de l'onglet Decision Cube 



Composant 


Description 


h 


DecisionCube est un composant de stockage multidiensionnel de 
donnees qui peut etre utilise pour recuperer des donnees en provenance 
d'un ensemble de donnees. 




DecisionQuery est un composant specialise de Tquery, destine a 
s'interfacer avec le DecisionCube. 




DecisionSource est un composant utilise pour definir le pivot des 
composants DecisionGrid et DecisionGraph. 


run 


DecisionPivot est un composant utilise pour ouvrir ou fermer des 
dimensions (ou champs) du composant DecisionCube en pressant sur un 
bouton. 
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La bibliortieque de composanrs visuels 



Composant 



Description 



DecisionGrid est un composant utilise pour afficher dans une grille les 
donnees d'un composant DecisionCube lie a un ensemble de donnees 
DecisionCube. 

DecisionGraph est utilie pour afficher dans un graphe les donnees d'un 
composant DecisionCube lie a un ensemble de donnees DecisionCube. 



Onglef ((Report 



L'onglet QReport contient 18 composants destines a la generation de rapports, comme indique 
Figure 8.23. Le Tableau 8.9 en donne une presentation sommaire. 



Figure 8.23 

L'onglet QReport. 
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Tableau 8.9 : Les composants de l'onglet QReport 



Composant 



Description 



QuickReport permet d'ajouter des capacites d'impression QuickReport 
a des applications. C'est un composant non visuel. 



QRSubDetail permet de lier des ensembles de donnees supplemental s 
a un etat. C'est un composant visuel. 

QRBand permet de construire des rapports en y placant des composants 
imprimables. C'est un composant visuel. 

QRChildBand est utilise pour creer des bandes enfant qui peuvent 
contenir d'autres composants QuickReport. C'est un composant visuel. 



ORGroup permet de creer des groupes de donnees. C'est un composant 
non visuel. 
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Composant Description 



QRLabel permet de placer du texte dans un rapport. C'est un composant 
visuel. 

QRDBText est un composant oriente donnees permettant de placer du 
texte dans un rapport. C'est un composant visuel. 

QRExpr 



QRSysData permet d'afficher des donnees systeme. C'est un composant 
visuel. 

QRMemo permet de placer du texte (multiligne) dans un rapport. C'est un 
composant visuel. 

QRRichText est un composant utilise pour inserer un champ RichText 
dans un un etat. C'est un composant visuel. 

QRDBRichText est un composant utilise pour inserer du texte en 
provenance d'un champ RichText d'une base de donnees et a 
destination d'un etat. C'est un composant visuel. 

-— QRShape permet de dessiner une forme sur un rapport. C'est un 

^ composant visuel. 

QRImage est un composant utilise pour afficher des images dans un etat. 
C'est un composant visuel. 



fU 



QRDBImage est un composant utilise pour afficher des images en 
provenance d'une base de donnees et a destination d'un etat. C'est un 
composant visuel. 

QRCompositeReport est un composant utilise pour creer des etats 
composites. C'est un composant non visuel. 

QRPreview permet de creer des fiches d'apercu pour voir a l'ecran les 
rapports. C'est un composant visuel. 
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Composant Description 

QRChart est utilise pour afficher des diagrammes et des graphiques dans 
un etat. C'est un composant visuel. 

Onglel - Dialogues 

L'onglet Dialogues, repris Figure 8.24, contient dix composants non visuels permettant de 
creer les diverses boites de dialogue usuelles. Les boites de dialogues permettent de specifier 
des fichiers ou de selectionner des parametres. En utilisant celles fournies par Delphi, vous 
gagnerez du temps et donnerez un aspect uniforme et coherent a toutes vos applications. Pour 
plus de details, cliquez sur un de ces composants et appuyez sur Fl . Ces composants sont som- 
mairement decrits Tableau 8.10. 

Figure 8.24 

L'onglet Dialogue. 



Tableau 8.10 : Les composants de l'onglet Dialogues 
Composant Description 

OpenDialog permet de creer une boite de dialogue Ouvrir fichier. 

SaveDialog permet de creer une boite de dialogue Enregistrer fichier. 



OpenPictureDialog permet d'ouvrir une boite de dialogue Ouvrir 
image. 

SavePictureDialog permet d'ouvrir une boite de dialogue Enregistrer 
image. 

FontDialog permet de creer une boite de dialogue Polices. 
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Composant Description 



ColorDialog permet de creer une boite de dialogue Couleurs. 
PrintDialog permet de creer une boite de dialogue Imprimer. 



n 



PninterSetupDialog permet de creer une boite de dialogue 
Configuration de l'impression. 

FindDialog permet de creer une boite de dialogue Rechercher. 



ReplaceDialog permet de creer une boite de dialogue Remplacer. 



Onglet WIN3.1 



L'onglet Win31 (voir Figure 8.25) contient des composants visuels maintenant obsoletes. Ces 
composants sont disponibles pour des raisons de compatibilite ascendante lors du portage 
d' applications de Delphi 1.0 et 2.0 vers Delphi 3.0. lis ne doivent pas etre utilises dans des 
applications 32 bits. Le Tableau 8.11 decrit rapidement chacun de ces composants. 

FigUre 8.25 Win32 |S^tene| Internet |AccesBD|Corm6teBD| Decision Cube |QRepott| Dialogues | ActiveX VM1 1 1 , < I >l 

L'onglet Win31. 



Tableau 8.11 : Les composants de l'onglet Win31 



Composant Description 



DBLookupList est un composant oriente donnees de Windows 3.1 qui 
permet de consulter une valeur dans une table a l'aide d'une boite de 
liste. 
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Composant Description 



DBLookupCombo est un composant oriente donnees de Windows 3.1 qui 
permet de consulter une valeur dans une table a l'aide d'un boite a 
options. 

TabSet permet de creer des onglets de bloc-notes. 



Outline permet de creer un controle d'arborescence affichant des 
donnees sous forme hierarchique. 

TabbedNoteBook permet de creer des Aches multipages comportant des 
onglets. 

Notebook permet de creer un ensemble de pages qui s'utilisent avec un 
composant TabSet. 

Header permet de creer un controle qui affiche un texte dans des parties 
redimensionnables . 



m 



FileListBox est utilise pour creer une boite de liste destinee a afficher 
laEIH les fichiers dans le repertoire ou dans le lecteur selectionne. 

DirectoryListBox est utilise pour creer une boite de liste destinee a 
|°°oH afficher les repertoires dans le lecteur selectionne. 

DriveComboBox est utilise pour creer une boite destinee a afficher les 
lecteurs disponibles. 

FilterComboBox permet de creer un filtre d'affichage des fichiers. 
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Ongler Exemples 



L'onglet Exemples contient sept composants d'exemple (comme indique Figure 8.26), qui 
sont presentes a titre indicatif et sans documentation etendue. Leur code source se trouve dans 
le repertoire \delphi\source\samples. Le Tableau 8.12 les decrit brievement. 



Figure 8.26 

L'onglet Exemples. 
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Tableau 8.12 : Les composants de l'onglet Exemples 



Composant Description 



Gauge permet de creer un indicateur de progression apparaissant sous 
forme de barre, de texte ou de camembert. C'est un composant visuel. 

ColorGrid permet de creer une grille de couleurs dans laquelle 
l'utilisateur peut effectuer des selections. C'est un composant visuel. 

SpinButton permet de creer des boutons de reglage. C'est un composant 
visuel. 

SpinEdit permet de creer une boite d'edition dotee des fonctions d'un 
controle de reglage. C'est un composant visuel. 

DirectoryOutline permet de creer un affichage de la structure de 
repertoire du lecteur selectionne. C'est un composant visuel. 

Calendar permet d'afficher un calendrier. C'est un composant visuel. 



IBEventAlerter est un composant d'alerte. C'est un composant non 
visuel. 
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Onglef HcMveX 

L'onglet ActiveX (Figure 8.27) contient cinq exemples de controles ActiveX (ces controles ne 
font pas partie de la VCL de Delphi). Par ailleurs, c'est dans cet onglet que sont stockes les 
ActiveX que vous ajoutez a Delphi. II est preferable d'utiliser les composants visuels de Del- 
phi, mais si vous avez vraiment besoin d'utiliser un controle ActiveX, n'hesitez pas. N'oubliez 
cependant pas que si vous utilisez un ActiveX dans votre application Delphi, vous devez 
l'inclure avec votre application lors de la distribution. Ces composants ne sont pas detailles, 
puisqu'il ne s'agit en fait que d'exemples. Le Tableau 8.13 les passe en revue. 



Figure 8.27 

L'onglet ActiveX. 




Tableau 8.13 : Les composants de l'onglet ActiveX 



Composant Description 





ChartFX permet d'ajouter des histogrammes dans une application 


■ 


Delphi. C'est un controle visuel. 




VCFirst Impression permet d'ajouter des fonctionnalites 3D a une 




application Delphi. C'est un controle visuel. 




VCFormulaOne permet d'ajouter des feuilles de calcul a une application 


m 


Delphi. C'est un controle visuel. 




VCSpeller permet d'ajouter des fonctions de verification 




orthographique a une application Delphi. C'est un controle non visuel. 




GraphicsServer permet lui aussi de generer des graphiques. C'est un 


■ 


controle visuel. 
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Dernier exemple 



Maintenant que nous avons parcouru tous les onglets, nous allons construire une petite appli- 
cation utilisant quelques composants qui ne figuraient pas dans le projet VCLDEMO.DPR. 
Nous allons choisir nos composants dans les onglets Win32, Dialogues et Systeme. Dans 
l'onglet Win32, nous prendrons les composants ProgressBar, TrackBar, TreeView et TabCon - 
trol. Dans l'onglet Dialogues, le composant OpenDialog. Enfin, nous utiliserons le composant 
Timer de l'onglet Systeme, ainsi que d'autres composants faisant partie de l'onglet Standard. 

Notre nouveau projet s'appelle MOREVCL.DPR dont l'unite est MORE.PAS. Referez-vous a 
la Figure 8.28 pour construire votre fiche. Sur le cote gauche de la fiche, de haut en bas, placez 
les composants suivants : TabControl, Panel (que vous placez sur le TabControl), Progres- 
sBar et TrackBar. Placez des composants Tinier et OpenDialog sur la fiche (n'importe ou, 
puisque ce sont des composants non visuels). Dans le coin superieur droit, tracez un Panel. 
Puis, sur le cote droit, de haut en bas, placez un Label, un TreeView, un Edit et un Button. 

Figure 8.28 nSSS^^^^^^^^^^^^^^^E^Ti] 



Pour que cette fiche fonctionne, vous devez definir quelques proprietes et ajouter un peu de 
code. Pour le composant TabControl, double-cliquez sur la propriete Tabs de l'lnspecteur 
d'objets et faites apparaitre la boite d'edition TStrings. La, vous pouvez entrer le noms des 
onglets. Chaque nom va sur une ligne differente. Entrez Onglet 1, Onglet 2 et Onglet 3. Pour 
le volet que vous avez place dans le TabControl, donnez-lui comme caption Tab = 1. Ensuite, 
definissez a 10 les proprietes Max des composants TrackBar et ProgressBar. Ajoutez le code 
ci-apres a l'evenement OnChange de la TrackBar : 

ProgressBaM . Position : =TrackBar1 .Position; 

Ensuite, double-cliquez sur le timer et ajoutez le code ci-apres a l'evenement OnTimer : 

Panell .Caption:=TimeToStr(Time) ; 

Modifiez le libelle qui se trouve au-dessus du TreeView en Affichage d'arborescence, et le 
libelle qui se trouve au-dessous en Nom de fichier selectionne. 



La fiche MOREVCL. 
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En ce qui concerne les proprietes du composant TreeView, double-cliquez a droite de la pro- 
priete Items, la ou figure TTreNodes. L'Editeur d'element TreeView apparait. Dans cet editeur, 
vous pouvez ajouter les elements et les sous-elements qui composent votre arborescence. Ajou- 
tez un element appele Niveau 1 . Ajoutez ensuite un sous-element du niveau 1 appele Niveau 
2, puis un sous-element du niveau 2 appele Niveau 3. 

Enfin, ajoutez le code ci-apres au bouton OpenDialog : 

OpenDialogl . FileName := '*.*'; 
if OpenDialogl . Execute then 

Editl .Text := OpenDialogl . FileName ; 

end; 

Lorsque vous avez fini, le code doit ressembler a celui du Listing 8.3. 

Listing 8.3 : Le code source de MOREVCL 

unit more ; 
interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
ExtCtrls, ComCtrls, StdCtrls, Buttons; 

type 

TForml = class(TForm) 
Timerl : TTimer; 
Panell : TPanel; 
OpenDialogl: TOpenDialog; 
TabControll : TTabControl; 
TrackBaM : TTrackBar; 
ProgressBaM : TProgressBar; 
Panel2: TPanel; 
Buttonl : TButton; 
TreeViewl : TTreeView; 
Labell : TLabel; 
Editl : TEdit; 
Label2: TLabel; 

procedure Timer1Timer(Sender: TObject); 
procedure TrackBar1Change(Sender: TObject); 
procedure BitBtn1Click(Sender: TObject); 
procedure TabControl1Change(Sender: TObject); 
procedure Button1Click(Sender: TObject); 
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private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .Timer1Timer(Sender: TObject); 
begin 

Panell .Caption:=TimeToStr(Time) ; 

end; 

procedure TForml .TrackBar1Change(Sender: TObject); 
begin 

ProgressBarl . Position :=TrackBar1 .Position; 

end; 

procedure TForml .BitBtn1Click(Sender: TObject); 
begin 

Application .Terminate; 

end; 

procedure TForml .TabControl1Change(Sender: TObject); 
begin 

If TabControll .TabIndex=0 then Panel2 . Caption :=' Tab = 1 
If TabControll .Tablndex=1 then Panel2 . Caption : = ' Tab = 2 
If TabControll .Tablndex=2 then Panel2 . Caption : = 1 Tab = 3 

end; 

procedure TForml .Button1Click(Sender: TObject); 
begin 

OpenDialogl . FileName := '*.*'; 
if OpenDialogl . Execute then 

Editl.Text := OpenDialogl . FileName ; 

end; 
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end. 

Enregistrez le programme et lancez-le. Si tout s'est bien deroule, vous devez pouvoir deplacer 
laTrackBar et voir la ProgressBar suivre de pair. Vous devez pouvoir selectionner un des trois 
onglets du TabControl et voir le titre du Panel se modifier en fonction de l'onglet selectionne. 
Vous devez pouvoir egalement ouvrir les trois niveaux du TreeView en cliquant sur chaque ele- 
ment. Enfin, vous devez pouvoir faire apparaitre la boite de dialogue Ouvrir en cliquant sur le 
bouton et en selectionnant un nom de fichier. Le nom du fichier doit s'afficher dans la boite 
d'edition. Si vous rencontrez des problemes, revenez a votre fiche et verifiez le code et les pro- 
prietes. 

Si nous avons pu voir de nombreux composants, il a ete impossible de tous les decrire. Le nom- 
bre de methodes, de proprietes et de composants est tel qu'il serait impossible de les decrire 
tous en detail dans cet ouvrage. Neanmoins, cette partie doit vous avoir familiarise avec la 
VCL, et il ne vous reste plus qu'a utiliser l'aide en ligne pour trouver rapidement les informa- 
tions qui vous font defaut. Vous savez ou chercher, et ce dont vous disposez. Vous etes main- 
tenant en mesure de construire des applications qui font vraiment quelque chose. 



RecopituloNf 

Dans cette partie, nous avons pu voir ensemble ce qu'etait la VCL et a quoi elle servait. Nous 
avons vu les proprietes, les methodes et les evenements. Vous avez appris a utiliser l'aide en 
ligne pour trouver rapidement des informations concernant ces sujets. Nous avons fait un tour 
d'horizon rapide des composants qui figurent dans la VCL, OCX et composants visuels 
d'exemple compris. Vous avez pu construire une application, sans grande utilite sinon de faire 
la demonstration du fonctionnement et de l'utilisation des composants les plus usuels. Cette 
section a constitue pour vous un bon entrainement. 



Atelier 

L' atelier vous donne trois moyens de verifier que vous avez correctement assimile le contenu 
de cette partie. La section Questions - Reponses reprend des questions posees couramment, et 
y repond, la section Questionnaire vous pose des questions dont vous trouverez les reponses en 
consultant l'Annexe A, et les Exercices vous proposent de mettre en pratique ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer au jour suivant. 
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Questions - Reponses 

Q Quelle est la difference entre la VCL Delphi 32 bits et la VCL Delphi 16 bits ? 

R Delphi 1.0 comportait 75 composants alors que Delphi 3.0 en compte plus de 130 (en 
comptant les composants d'exemple et les ActiveX). De plus, Delphi 3 sait utiliser les 
composants 32 bits. 

Q Est-il possible de recompiler en 32 bits pour Delphi 3.0 une application 16 bits ecrite 
pour Delphi 1.0 ? 

R Oui. Comme les composants Delphi sont ecrits en Delphi, il vous suffit de recompiler vo- 
tre application avec la nouvelle version 32 bits pour passer d 'une application 16 bits a une 
application 32 bits. La plupart des application se recompileront avec peu ou pas de mo- 
difications. Cependant, certaines applications 16 bits utilisant des VBX devront avoir re- 
cours au composant OCX ou ActiveX equivalent. 

Questionnaire 

1 . Quelle est la difference entre un composant visuel et un composant non visuel ? 

2. Qu'est-ce qu'une propriete imbriquee ? 

3. Qu'est-ce qu'une methode ? 

4. Que sont les evenements ? 

5. Quel composant utiliser si vous souhaitez que l'utilisateur entre des donnees dans un for- 
mat particulier ? 

6. Quel composant utiliser si vous souhaitez executer une procedure ou une tache toutes les 
cinq minutes ? 

Exercices 

1 . Revenez dans VCLDEMO et ecrivez le code pour les elements de menu Aide et A propos 
(un conseil : utilisez la procedure ShowMessage). 

2. Ecrivez une application de Reveil. Votre application doit afficher l'heure, permettre de 
regler une heure de sonnerie et afficher un message lorsque l'heure selectionnee arrive 
(un conseil : utilisez des composants Timer et Panel, entre autres). 
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Enfree/sorfie de fictii 
impression 
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Cette section est consacree aux differentes taches d'entree-sortie de vos applications. Parmi les 
methodes les plus courantes de communication, nous nous interesserons plus particulierement 
aux entrees/sorties de fichiers, y compris un certain nombre de techniques permettant de trans- 
mettre, stocker et recuperer des informations sur des fichiers disque. Vous decouvrirez egale- 
ment comment imprimer vos oeuvres. 



Enfree/sorfie de fichiers 

Une des taches les plus courantes et les plus precieuses en programmation est la manipulation 
de fichiers. Un fichier n'est rien d'autre qu'une collection ordonnee de donnees qui est stockee 
sur un disque dur, une disquette, un CD-ROM, une bande, ou tout autre support de masse. De 
facon evidente, les applications de bases de donnees doivent pouvoir creer, lire et ecrire des 
fichiers, mais ce n'est pas le seul cas ou les fichiers s'averent indispensables. On peut ainsi uti- 
liser des fichiers pour stocker les informations de configuration d'une application. lis permet- 
tent de stocker temporairement des informations pour permettre a un programme d'occuper de 
la memoire systeme precieuse a d'autres taches, puis de recharger les informations dans la 
memoire si necessaire. Les fichiers peuvent meme etre utilises pour transmettre des informa- 
tions d'un programme a un autre. Enfin, bien sur, les fichiers sont frequemment utilises pour 
enregistrer notre travail dans un traitement de textes ou un tableur. Delphi gere parfaitement 
les fichiers et de maniere tres aisee a assimiler. Le but de cette journee est de vous montrer 
comment travailler avec les divers types de fichiers et de vous presenter les fonctions et proce- 
dures qui simplifient les taches liees aux fichiers. 

Nous allons parler des attributs et des types de fichier. Vous apprendrez a travailler avec des 
fichiers texte, des fichiers de type binaires et des fichiers non types. Vous pourrez egalement 
decouvrir certaines fonctions liees aux fichiers et repertoires, fonctions qui calquent leur com- 
portement sur des commandes DOS classiques telles que MkDir. Pour terminer, nous traiterons 
des noms de fichier longs. 

Attribute de fichiers 

Hflhfl C ette partie suppose que vous avez une connaissance prealable des nombres binaires et de la 
UIC logique bool'eenne. Si vous eprouvez des difficultes a en comprendre le contenu, nous vous 
invitons a vous documenter plus avant sur ces sujets avant de poursuivre la lecture de cet 
I ouvrage. 



Nouveou 



Les fichiers ont des attributs speciaux. Un attribut est un propriet'e exhibee par un fichier et 
qui depend de son parametrage. Par exemple, si la propriet'e lecture seule d'un fichier est ac- 
tiv'ee, ce fichier peut etre lu mais non mis a jour ni supprime par la plupart des commandes ou 
programme DOS. Chaque fichier comporte un octet d 'attribut qui stocke les parametres d'at- 



tributs. Chaque parametre est stocke dans un des huit bits qui composent V octet. Seuls six bits 
sont utilises et, sur ces six bits utilises, deux servent pour les repertoires et les labels de volume, 
ne laissant done que quatre bits pour les attributs eux-memes. Ces quatre attributs sont les 
suivants : 



Attribut de fichier 


Constante 
Delphi 


Description 


Fichiers en 
lecture seule 


f aReadOnly 


Permet qu'on lise le fichier, mais pas qu'on le 
mette a jour ou le supprime 


ricniers cacnes 


faHidden 


Empeche que le fichier apparaisse dans une liste 
de repertoires normale 


Fichiers systeme 


f aSysFile 


Marque qu'un fichier est utilise par le systeme et 
empeche qu'il soit visible dans une liste de 
repertoires normale 


Fichiers archive 


f aArchive 


Cet attribut est desactive si un fichier a ete 
sauvegarde 


ID Volume 


f aVolumelD 


Cet attribut sert a creer un ID de volume. 


Repertoire 


f aDirectory 


Cet attribut permet d' identifier les repertoires 
(dossiers) 



Ces parametres d' attributs sont actives ou desactives par les programmes qui utilisent ou creent 
les fichiers. Par defaut, a l'exception du bit archive (bit 5), tous les attributs sont desactives lors 
de la creation. En Delphi, comme dans d'autres langages, vous pouvez modifier ces attributs 
avant ou apres avoir travaille sur les fichiers. Delphi propose des fonctions telles que FileGe - 
tAttr et FileSetAttr qui permettent de lire et de modifier les attributs a loisir. Ce peut etre 
necessaire si, par exemple, vous avez besoin de manipuler un fichier qui est en lecture seule. II 
suffit alors de desactiver l'attribut lecture seule, de travailler sur le fichier puis, les modifica- 
tions terminees, de reactiver l'attribut lecture seule. II convient aussi de remarquer que Ton 
peut activer ou desactiver n'importe quelle combinaison de ces attributs. Comment tout cela 
fonctionne-t-il ? Decoupons notre octet d'attributs en ses 8 composants binaires et interessons- 
nous aux bits. 



Les bits de V octet attribut 



Bit 




Attribut stocke 


Bit 0 




Lecture Seule 


Bit 1 




Fichier Cache 




L E 


PR*)GRAMMEUR 



Enlree/sorNe de fichiers er impression 



Bit 




Attribut stocke 


Bit 


2 


Fichier Systeme 


Bit 


3 


ID volume 


Bit 


4 


Sous-repertoire 


Bit 


5 


Archive 


Bit 


6 


inutilise 


Bit 


7 


inutilise 



Les attributs d'un fichier tout juste cree seraient les suivants : 
Bit 6 Bit 5 Bit 4 Bit 3 Bit 2 Bit 1 Bit 0 
0 0 1 0 0 0 0 0 



Soit 00100000 en binaire ou 20 en hexa. Supposons maintenant que vous souhaitiez activer la 
Lecture seule. Vous pouvez utiliser la fonction FileSetAttr de Delphi avec la constante 
f aReadOnly. Cette constante est egale a 00000001 en binaire ou 01 en hexa. Lorsqu'on a fourni 
le nom de fichier et la valeur de f aReadOnly a FileSetAttr, un OU est effectue sur la valeur 
et 1' octet d' attribut. Dans cet exemple on desactiverait le bit d' archive, ce qui est souhaitable 
ou non selon ce que vous cherchez a faire. Nous verrons comment travailler avec plusieurs 
octets par la suite. 

En examinant $AD — ou 10101101 en binaire (on lit de droite a gauche ce nombre binaire) — , 
vous verrez, en vous appuyant sur la table de correspondance des bits de l'octet d'attribut, qu'il 
correspond a un fichier dont les bits suivants sont actives : Lecture seule, Systeme, ID de Volu- 
me et Archive. Le bit 8 est egalement active, mais il ne sert a rien. Ce n'est pas la un octet 
d'attribut valide. En effet, l'ID de volume et le Sous-repertoire sont des attributs que vous 
n'avez pas a manipuler car ils sont actives lorsque vous creez un label de volume ou un sous- 
repertoire, lis n'ont pas besoin d'etre modifies par le programmeur ou l'utilisateur. Un nombre 
plus realiste serait 100001 (binaire) ou $21. En consultant la meme table, vous verrez que ce 
nombre correspond a un fichier dont les attributs Lecture seule et Archive sont actives (le 
fichier est en lecture seule et le fichier n'a pas ete sauvegarde). Interessons-nous maintenant a 
la maniere dont on active ces bits. Imaginons que vous souhaitiez n' activer que le bit Lecture 
seule d'un fichier appele TOTO.TXT. Vous pouvez alors placer la ligne de code suivante dans 
votre application : 

FileSetAttr ( 'TOTO.TXT' ,f aReadOnly) ; 

Dans la declaration FileSetAttr, la constante f aReadOnly est egale au binaire 00000001 ou 
$01 . Cette valeur est copiee dans l'octet d'attribut. Dans notre exemple, le bit Lecture seul pas- 
se a 1 et tous les autres a 0. 
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Si vous souhaitez combiner cette constante a d'autres constantes ou nombres, il vous suffit 
d'effectuer des OU sur ces divers nombres. Lorsque vous effectuez un OU entre deux nombres, 
vous effectuez un OU entre le bit 0 du premier nombre et le bit 0 du deuxieme, et ainsi de suite 
pour chaque bit. Si l'un des deux bits pris deux a deux est egal a 1 , le resultat pour le bit est 1 . 
Si aucun des deux bits n'est 1 , le resultat est 0. Ci-apres se trouve la table de verite de la fonc- 
tion OU (OR en anglais) ainsi que quelques exemples d' utilisation de OU. Dans ce cas precis, 
il est indifferent d'operer des additions ou des OU, mais il n'est pas inutile de savoir ce qui se 
passe lorsque on effectue un OU sur deux nombres. 

Table de verite de OR (les differents r'esultats d'une operation OR) 

3 1 OR 1=1 

J 1 OR 0 = 1 

3 0 OR 1 =1 

J 0 OR 0 = 0 

Exemples : 

101 10010 
J OR 

10010111 



10110111 

10110101 
OR 

11100001 



11110101 

L'autre operation avec laquelle vous devriez etre familier est l'utilisation de AND (ET logi- 
que). Lorsque vous effectuez un ET entre deux bits, la valeur resultante ne vaut 1 que si les 
deux operandes valent 1 . 

Table de verite de AND (les differents r'esultats d'une operation AND) 

1 AND 1 = 1 
1 AND 0=0 
0 AND 1 = 0 
0 AND 0 = 0 

Exemple 
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101 10101 

AND 

10010111 



VGOU 



10010101 

Dans les deux exemples de OR, vous pouvez voir que les nombres du dessus sont differents 
alors que les nombres du bas restent les memes. Les r'esultats sont done bien evidemment dif- 
ferents. On appelle cela le masquage. Le masquage est un processus qui vous permet de lire 
ou de modifier selectivement des bits dans un octet lorsque cet octet est utilise dans une ope- 
ration OR ou AND (ET) avec un octet pr'ed'efini appel'e masque. En changeant le masque (le 
nombre du dessus) vous pouvez activer ou desactiver selectivement des bits. Vous pouvez ajou- 
ter des constantes ou des nombres ou op'erer des OR sur eux pour cr'eer un masque quipermet- 
tra de modifier plus d'un bit (ou attribut en V occurrence) . 

Autrement dit, si vous souhaitez activer les bits Lecture seule et Archive, il vous sufftt 
d'utiliser la declaration : FileSetAttr( ' TOTO. TXT' , faReadOnly+faArchive); 

Ceci cree un masque de 00100001 . 

Maintenant que deux bits sont actives, comment faire pour en desactiver un seul ? II suffit 
d'appeler FileSetAttr de nouveau et de ne lui passer qu'un masque contenant les bits que 
vous souhaitez laisser actives, les autres seront alors desactives. La ligne qui suit desactive le 
bit d' archive tout en conservant le bit de Lecture seule : 

FileSetAttr ( 'T0T0. TXT' ,f aReadOnly) ; 

Si vous utilisez cet exemple, tous les bits seront remis a zero, excepte le bit de Lecture seule. 
Ce n'est pas forcement ce que vous souhaitez. Ceci s'explique par le fait que la constante 
f aReadOnly qui n'a qu'un bit d'active est copiee dans l'octet d'attribut. La meilleure maniere 
pour resoudre notre probleme consiste a commencer par prendre les attributs d'un fichier pour 
les stacker dans une variable. Vous pouvez alors creer un masque, et il suffira d'effectuer un 
0U entre le masque et la variable (contenant les parametres initiaux) pour ne modifier que les 
bits desires. Le code pour parvenir a ce resultat est le suivant : 



Var 



FileAttr Integer 



Begin 



{on recupere le contenu de l'octet Attribut pour MYFILE.TXT} 
FileAttr :=FileGetAttr( 'MYFILE.TXT' ) ; 

{on effectue un OR entre le masque (f aReadOnly) et la valeur de l'octet 
d'attribut stockee dans FileAttr, et on place le resultat dans 
FileAttr} 

FileAttr :=FileAttr OR f aReadOnly; 

{On donne pour valeur a l'octet d'attribut la nouvelle valeur stockee 
dans FileAttr} 
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FileSetAttr( 'MYFILE.TXT' ,FileAttr) ; 

end; 



Voyons ce qui se passerait si in creait un nouveau fichier et qu'on le faisait passer dans la rou- 
tine ci-avant. Creez un fichier appele MONFICHIER.TXT. L'octet d'attribut pour le nouveau 
fichier est : 

00100000 (Bit 5, le bit d' archive est active) 

Recuperez l'octet d'attribut et stockez-le dans une variable appelee FileAttr. Ensuite, effectuez 
un OR entre FileAttr et le masque predefini (f aReadOnly ) , et stockez le resultat dans FileAt - 
tr. Vous obtenez ainsi un nouveau masque qui combine les anciens parametres aux nouveaux. 

00100000 
OR 

00000001 

00100001 

En travaillant en binaire, il est plus facile de savoir quels bits vous souhaitez activer ou desac- 
tiver, et a quoi ressemblera le resultat. Si vous convertissez les valeurs ci-avant en hexa, vous 
pouvez encore voir ce qui se passe. Ainsi, les nombres ci-avant, convertis en hexa, donnent : 

$20 OR $01 = $21 

L'octet d'attribut initial contient $20 et on effectue un OR entre cet octet et f aReadOnly (qui est 
egal a $01), et le resultat est $21. 

Supposons maintenant que vous souhaitez savoir si un bit est active dans l'octet d'Attribut. II 
faut pour cela utiliser l'operateur AND. En utilisant les memes chiffres que precedemment, vous 
trouveriez qu'aucun des bits recherches n'est active. Cet exemple recherche le bit de Lecture 
seule. 

00100000 

AND 
00000001 

00000000 

Toutes ces theories sur les binaires, les hexa et les attributs de fichiers sont bien, mais qu'en 
est-il de la pratique ? Pourquoi ne pas creer un petit programme qui vous permettra de visuali- 
ser et de definir les quatre attributs de fichiers (lecture seule, systeme, cache et archive) pour 
un fichier donne. Vous pourrez ainsi voir tous ces concepts a l'ceuvre dans un utilitaire Win- 
dows. 
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Tout d'abord, creez un nouveau projet contenant une unique fiche et appele FILEATTR.DPR. 
Le nom de l'unite sera ATTRSCR.PAS. En vous referant a la Figure 9.1, ajoutez les compo- 
sants suivants a la fiche : 



Quantite Type de composant 



1 


Bevel 


1 


GroupBox 


3 


BitBtn 


4 


CheckBoxes 


1 


Label 


1 


Edit 


1 


DirectoryListBox 


1 


FileListBox 


1 


DriveComboBox . 



Gestionnaiie d'attributs de (ichiei 



Figure 9.1 

La boite de dialogue du 
Gestionnaire d'attributs 
defichiers. 



BTAF 




ADDR.DFM 


BMAC MILL 




ADDH.PAS 


Bdelphi 




ADDRESS. DPR 


& source 




ADDRESS. RES 






ATTRSCR.dcu 
ATTRSCR.DFM * 






^1 c: [ms-dos_6] 





✓ OK 



if Enregistrer 



J]_ Fermer 



Attributs de 1 

r Lecture I 
T Fichierc 
r Systeme 
r Archive 



En partant du sommet, le label vient en premier, suivi par la boite d'edition. Sous cette boite, 
se trouve le DirectoryListBox a gauche et le FileListBox a droite. Plus bas on trouve le Drive- 
ComboBox. Au bas de la fiche a gauche se trouve le Bevel contenant les trois BitBtn. Enfin, 
en bas a droite se trouve la GroupBox contenant les quatre CheckBox. Modifiez les proprietes 
des composants, ajoutez un peu de code, et lancez l'application. Modifiez la propriete caption 
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du Label pour qu'elle devienne Nom de fichier :. Puis, supprimez tous les caracteres de la pro- 
priete Editl .Text. 

En supposant que vous ayez ajoute les composants DirectoryListBox, FileListBox et Drive- 
Combo, vous pouvez aisement les lier ensemble. Commencez par modifier la valeur de la pro- 
priete FileList du composant DirectoryListBox pour qu'elle devienne FileListBoxl . Vous 
pouvez remarquer au passage que FileListBoxl etait un choix que vous pouviez selectionner. 
Ceci facilite grandement la connexion des trois composants. Ensuite, allez dans le composant 
DriveComboBox et modifiez la valeur de la propriete DirList pour qu'elle devienne 
DirectoryListBoxl . Puis, allez dans le composant FileListBox et modifiez la valeur de la 
propriete FileEdit pour qu'elle devienne Editl . Ces modifications font que ces composants 
fonctionnent de pair comme s'ils constituaient en fait un seul composant, tout comme dans une 
boite de dialogue Fichier. Vous devez effectuer quelques autres modifications pour que votre 
programme fonctionne correctement. Si vous souhaitez que votre application soit en mesure 
de lire et d'afficher des fichiers caches et systeme, vous devez modifier quelques proprietes 
dans le composant FileListBox. Une des proprietes de ce composant est FileType. Cette pro- 
priete contient des proprietes imbriquees que vous devez modifier. Assurez-vous que les pro- 
prietes suivantes ont pour valeur True : ftReadOnly, ftSystem, f tHidden, ftArchive et 
ft Normal. Les deux dernieres proprietes (ftVolumelD et ftDirectory) doivent avoir pour valeur 
False. Modifiez les proprietes Caption des quatre cases a cocher : Lecture seule pour 
CheckBoxl, Fichier cache pour CheckBox2, Systeme pour CheckBox2 et Archive pour 
CheckBox4. 

Changez les noms des trois BitBtn en BitBtnOk, BitBtnSave et BitBtnClose. Dans BitBtnOk, 
modifiez la propriete Kind en bkOk. Pour BitBtnSave, modifiez la propriete Kind en bkAll. 
Enfin, pour BitBtnClose, modifiez la propriete Kind en bkClose. Sur le bouton bkSave, modi- 
fiez la propriete Caption en &Enregistrer. A present, vous pouvez ajouter du code aux diffe- 
rents boutons. 

Le code du bouton BitBtnOk doit etre le suivant : 

I procedure TForml .BitBtnOKClick(Sender: TObject); 
begin 
{On recupere les attributs de fichier pour le fichier selectionne } 
{On regarde les bits d 1 attributs qui sont actives et on coche les cases 
en consequence } 
f name : =Edit1 .Text; 
AttrByte:=FileGetAttr(fname) ; 
If AttrByte AND faReadOnly = faReadOnly Then 
CheckBoxl .Checked:=True 
else 
CheckBoxl .Checked:=False; 
If AttrByte AND faHidden = faHidden then 
CheckBox2 . Checked : =True 
else 
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CheckBox2 .Checked : =False; 
If AttrByte AND faSysFile = faSysFile then 

CheckBox3 . Checked : =True 
else 

CheckBox3 .Checked : =False; 
If AttrByte AND faArchive = faArchive then 

CheckBox4 . Checked : =True 
else 

CheckBox4 .Checked : =False; 



end; 



Le code du bouton BitBtnSave doit etre le suivant : 



procedure TForml . BitBtnSaveClick (Sender : TObject); 
begin 

{on met a zero 1' octet d'attribut } 
AttrByte :=0; 

{on met a jour l'octet d'attribut en se basant sur les parametres 
indiques par les cases a cocher } 

If CheckBoxl .Checked = True then 

AttrByte :=AttrByte OR faReadOnly; 
If CheckBox2. Checked = True then 

AttrByte :=AttrByte OR faHidden; 
If CheckBox3. Checked = True then 

AttrByte :=AttrByte OR faSysFile; 
If CheckBox4. Checked = True then 

AttrByte :=AttrByte OR faArchive; 
{On ecrit les parametres des cases a cocher dans l'octet d'attribut } 
FileSetAttr(f name, AttrByte) ; 

end; 

Le code du bouton BitBtnClose doit etre le suivant : 

procedure TForml . BitBtnCloseClick (Sender : TObject); 
begin 

Application .Terminate; 

end; 

Vous devez par ailleurs ajouter ce qui suit a la section implementation : 

8 Var 
fname:string; 
AttrByte : integer; 
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Le code du Gestionnaire d'evenements OnDblClick de FileListBox! est le suivant : 



6 



procedure TForml .FileListBox1DblClick(Sender: TObject); 
begin 

Forml .BitBtnOkClick(self ) ; 



Si vous avez tape correctement ce qui precede, votre code devrait ressembler a celui du 
Listing 9.1. 

Listing 9.1 : Gestionnaire d'attributs de fichier 
unit Attrscr; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
Menus, StdCtrls, Buttons, FileCtrl, ExtCtrls; 



type 

TForml = class(TForm) 
Labell : TLabel; 
Editl : TEdit; 
GroupBoxl : TGroupBox; 
CheckBoxl : TCheckBox; 
CheckBox2: TCheckBox; 
CheckBox3: TCheckBox; 
CheckBox4: TCheckBox; 
BitBtnOK: TBitBtn; 
BitBtnClose: TBitBtn; 
FileListBoxl : TFileListBox; 
DirectoryListBoxl : TDirectoryListBox; 
DriveComboBoxl : TDriveComboBox; 
BitBtnSave: TBitBtn; 
Bevell : TBevel; 

procedure BitBtnCloseClick(Sender: TObject); 

procedure BitBtnOKClick(Sender: TObject); 

procedure BitBtnSaveClick(Sender: TObject); 

procedure FileListBoxl DblClick (Sender : TObject); 
private 

{ Declarations privees } 
public 
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{ Declarations publiques } 
end; 

var 

Forml : TForml ; 

implementation 
Var 

f name : string ; 
AttrByte : integer; 
{$R * . DFM} 

procedure TForml . BitBtnCloseClick (Sender: TObject); 
begin 

Application .Terminate; 

end; 



procedure TForml .BitBtnOKClick(Sender: TObject); 
begin 

{On recupere les attributs de fichier pour le fichier selectionne } 
{On regarde les bits d 1 attributs qui sont actives et on coche les cases 
en consequence } 

f name : =Edit1 .Text; 

AttrByte:=FileGetAttr(fname) ; 

If AttrByte AND faReadOnly = faReadOnly Then 

CheckBoxl .Checked:=True 
else 

CheckBoxl .Checked:=False; 
If AttrByte AND faHidden = faHidden then 

CheckBox2 . Checked : =True 
else 

CheckBox2 .Checked : =False; 
If AttrByte AND faSysFile = faSysFile then 

CheckBox3 . Checked : =True 
else 

CheckBox3 .Checked : =False; 
If AttrByte AND faArchive = faArchive then 

CheckBox4 . Checked : =True 
else 

CheckBox4 .Checked : =False; 

end; 
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procedure TForml .BitBtnSaveClick(Sender: TObject); 
begin 

{on met a zero 1' octet d'attribut } 
AttrByte:=0; 

{on met a jour l'octet d'attribut en se basant sur les parametres 
indiques par les cases a cocher } 

If CheckBoxl .Checked = True then 

AttrByte:=AttrByte OR faReadOnly; 
If CheckBox2. Checked = True then 

AttrByte:=AttrByte OR faHidden; 
If CheckBox3. Checked = True then 

AttrByte:=AttrByte OR faSysFile; 
If CheckBox4. Checked = True then 

AttrByte:=AttrByte OR faArchive; 
{On ecrit les parametres des cases a cocher dans l'octet d'attribut } 
FileSetAttr(f name , AttrByte) ; 

end; 

procedure TForml .FileListBox1DblClick(Sender: TObject); 
begin 

BitBtnOkClick(self ) ; 
end; 

end . 

Le code de ce Gestionnaire d'attributs de fichier comporte deux sections principales. Ces 
sections sont contenues dans les gestionaires OnClick des boutons OK (BitBtnOKClick) et 
Sauvegarder (BitBtnSaveClick). 

Pour tester ce programme, creez un fichier temporaire et lancez le Gestionnaire d'attributs de 
fichier. La case a cocher Archive doit etre cochee et toutes les autres cases doivent etre vides. 
Cochez la case Cache et cliquez sur Enregistrer. Demandez une liste de repertoire et chercher 
le nom du fichier. Le nom du fichier n'apparait pas dans la liste des repertoires (a moins que 
vous n'utilisiez un programme qui affiche les fichiers caches). Vous pouvez maintenant deco- 
cher la case Fichier cache. Cliquez sur Enregistrer et le fichier reapparait dans une liste de 
repertoires. Passons maintenant aux types de fichiers. 



Types de fichier 



II y a deux types fondamentaux de fichiers : texte et binaire. Vous pouvez stacker ou formater 
des donnees dans ces deux types de fichiers de bien des manieres differentes. Comme tout, ces 
types ont leurs avantages et leurs inconvenients. Ce qui convient dans une situation precise ne 
convient pas forcement dans une autre. Regardons ensemble les differents types de fichiers et 
quelques exemples de leurs utilisations. Ce ne sont que des exemples. Vous etes entierement 
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libre de formater et de manipuler des donnees stockees dans un fichier de la maniere qui vous 
convient. 



VGflU 



Fichiers rexre 

Nous connaissons tous les fichiers texte. Les fichiers texte sont des fichiers simples contenant 
des caracteres ASCII bruts. Dans un fichier texte, les donnees sont generalement stockees et 
r'ecup'er'ees de maniere sequentielle, une ligne a lafois. Chaque ligne se termine par des ca- 
racteres retour chariot ( $D) et saut de ligne ($A). Comme les donnees sont traitees sequentiel- 
lement, une recherche sur un grand fichier texte, ou Vapport de nombreuses modifications a 
un fichier texte peuvent se reveler des taches fastidieuses et terriblement inefficaces . De ma- 
niere generale, si vous comptez manipuler des donnees s'equentiellement et que vous n 'avez 
pas besoin d'effectuer des sauts d'un emplacement a un autre dans un meme fichier, un fichier 
texte est parfaitement adapt'e a vos besoins. Nous allons examiner certaines des fonctions et 
procedures qui vous permettent de manipuler des fichiers texte, puis nous ecrirons un pro- 
gramme qui stocke et lit des donnees dans un fichier texte. 

La premiere chose a considerer est le type de variable TextFile. TextFile vous permet de 
declarer une variable qui permettra d'identifier le type de fichier que vous allez manipuler. 
Votre declaration pourrait etre la suivante : 



3 



Var 



MyFile : TextFile; 



Maintenant que vous avez une variable du type TextFile, vous devez trouver un moyen de 
passer ces informations a Delphi ces informations ainsi que le nom du fichier a manipuler. Pour 
ce faire, vous utilisez la procedure AssignFile. Si vous connaissez deja Pascal, la procedure 
Assign doit vous etre familiere. Delphi a une compatibilite ascendante compatible avec la pro- 
cedure Assign, mais vous devez utiliser AssignFile en Delphi pour eviter des conflits d'eten- 
due. On utilise AssignFile de la maniere suivante : 

AssignFile (MonFichier, NomDeFichier) 

Ou MonFichier est la variable que vous avez definie comme un fichier texte et NomDeFichier 
est une chaine contenant le nom de fichier que vous souhaitez manipuler. Une fois que vous 
avez utilise AssignFile, vous pouvez vous referer au fichier en employant MonFichier. 

Vous devez aussi connaitre certaines procedures permettant d'ecrire dans des fichiers texte. 
Lisez les descriptions ci-apres, puis allez voir la syntaxe et les descriptions de ces procedures 
dans l'aide en ligne. Etudiez avec attention les procedures qui suivent et les commentaires qui 
leur sont associes. 

Procedure Description 



Rewrite 



Cree et ouvre un nouveau fichier. Tout fichier existant 
portant le meme nom sera ecrase. 
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Procedure 


Description 


WriteLn 


Ecrit une ligne de texte dans le fichier ouvert, en ajoutant 




en bout de ligne une combinaison CR/LF (retour chariot/ 




saut de ligne). 


CloseFile 


Finit la mise a jour du fichier courant et referme ce 




dernier. 



Pour lire des fichiers texte, vous aurez besoin des procedures suivantes : 



Procedure 


Description 


Reset 


Ouvre un fichier existant. Les fichiers texte sont ou verts 




en lecture seule. 


Readln 


Lit la ligne de texte courante dans un fichier de texte 




ouvert. Chaque ligne s'acheve par une combinaison CR/ 




LF 



Maintenant que nous avons procede a quelques definitions, il est temps de construire un pro- 
gramme qui lit et ecrit dans un fichier texte simple, afin de comprendre in vivo le fonctionne- 
ment de ces diverses procedures. Ouvrez un nouveau fichier dans Delphi et referez-vous a la 
Figure 9.2 pour placer les divers composants de notre application. De haut en bas, placez 
Labell, Editl, Label2 et Edit2. De gauche a droite, placez trois boutons au bas de la fiche. 
Changez les libelles des composants pour qu'ils correspondent a la Figure 9.2. Tout le code 
qu'il vous faut ajouter prend place dans ces trois boutons. 



Figure 9.2 

L 'application de demonstration 
de fichiers texte. 



Donnees a ecrire dans le fichier 



Donnees a lire dans le fichier 



Enregistrer Charger Fermer 



Ajoutez ce code au bouton Enregistrer (button 1) : 



procedure TForml .Button1Click(Sender: TObject); 
Var 

OutFile : TextFile; 

f name,OutString : string; 
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begin 

{On affecte un nom de fichier a la variable } 
f name : = 1 JUNKFILE . TXT 1 ; 

{on identifie le nom et le type de fichier comme OutFile} 
AssignFile(OutFile,fname) ; 

{on cree un nouveau fichier identifie comme OutFile} 
Rewrite(OutFile) ; 

{On prend le texte dans la boite d 1 edition d'ecriture } 
OutString:=Edit1 .Text; 

{on ecrit le texte de OutString dans le fichier } 
Writeln(OutFile,OutString) ; 
{On met a jour puis ferme le fichier } 
CloseFile(OutFile) ; 
end; 

Ajoutez le code ci-apres au bouton Enregistrer (button2) : 

procedure TForml .Button2Click(Sender: TObject); 
Var 

InFile : TextFile; 
f name, InString : string; 
begin 

{On affecte un nom de fichier texte a la variable } 
f name : = 1 JUNKFILE . TXT 1 ; 

{On identifie le fichier texte comme InFile} 
AssignFile(InFile,fname) ; 
{On ouvre le fichier identifie par InFile} 
Reset(Infile) ; 

{On lit une ligne de texte } 
Readln( InFile, InString) ; 

{On stocke la ligne lue dans la boite Texte lu } 
Edit 2. Text :=InSt ring; 
{On ferme le fichier } 
CloseFile (InFile) ; 
end; 

Ajoutez le code ci-apres au bouton Ferme (button3) : 



procedure TForml .Button3Click(Sender: TObject); 
begin 

Application .Terminate; 

end; 
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Le listing complet doit ressembler a celui qui figure dans le Listing 9.2. 



Listing 9.2 : Textform 
unit Textform; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls; 

type 

TForml = class(TForm) 
Editl : TEdit; 
Edit2: TEdit; 
Labell : TLabel; 
Label2: TLabel; 
Buttonl : TButton; 
Button2: TButton; 
Button3: TButton; 

procedure Button3Click(Sender: TObject); 
procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .Button3Click(Sender: TObject); 
begin 

Application .Terminate; 

end; 



LE PR*)GRAMMEUR 



Enlree/sorNe de fichiers et impression 



procedure TForml .Button1Click(Sender: TObject); 
Var 

OutFile : TextFile; 
f name,OutString : string; 
begin 

{On affecte un nom de fichier a la variable } 
f name : = 'JUNKFILE. TXT 1 ; 

{on identifie le nom et le type de fichier comme OutFile} 
AssignFile(OutFile,fname) ; 

{on cree un nouveau fichier identifie comme OutFile} 
Rewrite(OutFile) ; 

{On prend le texte dans la boite d 1 edition d'ecriture } 
OutString:=Edit1 .Text; 

{on ecrit le texte de OutString dans le fichier } 
Writeln(OutFile,OutString) ; 
{On met a jour puis ferme le fichier } 
CloseFile(OutFile) ; 
end; 

procedure TForml .Button2Click(Sender: TObject); 
Var 

InFile : TextFile; 
f name, InString : string; 
begin 

{On affecte un nom de fichier texte a la variable } 
f name : = 'JUNKFILE. TXT 1 ; 

{On identifie le fichier texte comme InFile} 
AssignFile(InFile,fname) ; 
{On ouvre le fichier identifie par InFile} 
Reset(Infile) ; 

{On lit une ligne de texte } 
Readln( InFile, InString) ; 

{On stocke la ligne lue dans la boite Texte lu } 

Edit 2. Text :=InSt ring; 

{On ferme le fichier } 

CloseFile (InFile) ; 
end; 
end. 
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Cette petite application toute simple vous permet d'entrer du texte dans la boite d'edition 
situ'ee au sommet de lafiche. En cliquant sur le bouton Enregistrer, le texte est ecrit dans un 
fichier appel'e JUNKFILE.TXT. Vous pouvez lire ce meme fichier. Le texte lu dans le fichier 
apparait dans la boite d'edition situ'ee au bas de la fiche. Faites quelques essais avec cette 
application. Vous pouvez meme utiliser le Bloc-notes ou un autre editeur pour editer manuel- 
lement JUNKFILE.TXT afin de verifier que le programme fonctionne correctement . 

Nous venons de voir comment lire et ecrire une ligne de texte unique, et il va sans dire que vous 
pouvez construire une boucle qui permette de lire ou d'ecrire plusieurs lignes de texte. Un pro- 
bleme se pose ici : vous pouvez ecrire dans un fichier jusqu' a epuiser vos ressources disque, 
mais comment savoir quand il faut arreter de lire un fichier ? Autrement dit, comment savoir 
si vous avez rencontre la fin du fichier ? Delphi, comme d'autres langages, dispose d'une fonc- 
tion qui vous indique si vous avez atteint la fin d'un fichier. Cette fonction est Eof . Pour utiliser 
Eof , il vous suffit de lui passer la variable de fichier utilisee avec AssignFile et cette fonction 
renvoie une valeur booleenne qui peut etre utilisee dans une boucle de type while. 

Le code ci-apres est un exemple d'utilisation d 1 Eof : 

while not Eof(InFile) do 
Begin 

Readln(InFile,MyString) ; 
end; 

Cette boucle continuera jusqu'a ce qu 1 Eof renvoie True. Sachant cela, ecrivons rapidement un 
petit editeur de texte et etudions son fonctionnement. On utilisera les composants Memo, Open - 
Dialog, SaveDialog et MainMenu. Placez un exemplaire de chacun de ces composants sur une 
nouvelle fiche (reportez-vous Figure 9.3 pour la disposition des composants). Cliquez sur le 
composant OpenDialog et double-cliquez sur la propriete Filter dans l'lnspecteur d'objets 
pour faire apparaitre l'Editeur de filtres. Ajoutez les deux filtres suivants a l'Editeur de filtres : 



Nom du filtre 


Filtre 


Fichiers texte 


*.txt 


Tous 


* * 



Figure 93 

L' application d'edition de texte 
WinEdit. 
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Faites de meme dans le composant SaveDialog. En utilisant le composant MainMenu, ajoutez 
un menu Fichier contenant les options Ouvrir, Enregistrer, puis une ligne separatrice et une 
option Quitter. Modifiez la propriete Align du composant Memo pour lui donner la valeur 
alClient. Cette valeur fera que le composant Memo se dimensionnera automatiquement pour 
remplir la totalite de la zone client de la fiche. Affectez ssVertical a la propriete ScrollBar 
du composant Memo. II ne reste plus qu'a ajouter quelques lignes de code aux options du menu 
Fichier, et vous disposerez d'un editeur de texte rudimentaire. 

Ajoutez a l'option de menu Ficher/Ouvrir : 

procedure TForml .0pen1Click(Sender: TObject); 
Var 

InFile : TextFile; 
f name, InString : string; 
begin 

If OpenDialogl .Execute then 
Begin 

f name : =0penDialog1 .FileName; 
AssignFile(InFile,fname) ; 
Reset(Infile) ; 
While not Eof(InFile) do 
Begin 

Readln (InFile , InString) ; 
Memol . Lines. Add(InString) ; 
end; 

CloseFile(InFile) ; 

{On definit le nom de fichier en titre } 
Forml .Caption:=Form1 .Caption + ' [ ' +f name+ ' ] ' ; 
end; 
end; 

Le code ci-avant emploie une boucle pour charger une ligne de texte a la fois dans la boite 
Memo jusqu'a atteindre la fin du fichier. Ce n'est pas la meilleure facon de charger du texte 
dans un composant Memo, mais l'objet de ce programme est de vous montrer comment fonc- 
tionne Eof . En fait, pour charger le fichier il vous aurait suffit de taper la ligne suivante : 

Memol . Lines . LoadfromFile (OpenDialogl .FileName) ; 

Cette methode donnerait ce qui suit : 



begin 

if OpenDialogl . Execute then 
begin 

Memol . Lines . LoadfromFile (OpenDialogl . FileName) ; 
end; 
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A l'option de menu Fichier/Enregistrer, ajoutez 



procedure TForml .Save1Click(Sender: TObject); 
Var 

OutFile : TextFile; 
fname : string; 
begin 

If SaveDialogl . Execute then 
begin 

f name:=SaveDialog1 .FileName; 
AssignFile(OutFile,fname) ; 
Rewrite(OutFile) ; 

{On ecrit le contenu du memo en un bloc } 
Writeln(0utFile,Memo1 .Text) ; 
end; 

CloseFile(OutFile) ; 

{On definit le nom de fichier du titre } 
Forml . Caption :=Form1 .Caption + ' [ 1 +f name+ 1 ] 1 ; 

Le code de l'option de menu Fichier/Enregistrer ecrit le texte dans la boite memo sous la forme 
d'un seul bloc de texte, il est done inutile d'utiliser une boucle. II peut arriver que vous ayez 
besoin d'une boucle pour ecrire ligne par ligne du texte dans un fichier. Le principe est simi- 
laire a la lecture ligne a ligne, a ceci pres que vous devez ici connaitre le nombre de lignes a 
ecrire ou disposer d'une methode pour determiner le moment ou la boucle se terminera. 

Enfin, dans l'option de menu Fichier/Quitter, ajoutez : 

procedure TForml .Exit1Click(Sender: TObject); 
begin 

Application .Terminate; 

end; 

Le Listing 9.3 montre le code complet de notre Editeur. 

Listing 9.3 : Edit 
unit Edit; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Menus; 
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type 

TForml = class(TFonn) 

MainMenul : TMainMenu; 

Filel : TMenuItem; 

Openl : TMenuItem; 

Savel : TMenuItem; 

N1 : TMenuItem; 

Exitl : TMenuItem; 

Memol : TMemo; 

OpenDialogl : TOpenDialog; 

SaveDialogl : TSaveDialog; 

procedure 0pen1Click(Sender: TObject); 

procedure FormCreate (Sender : TObject); 

procedure Exit1Click(Sender: TObject); 

procedure Save1Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 



procedure TForml .0pen1Click(Sender: TObject); 
Var 

InFile : TextFile; 
f name, InString : string; 
begin 

If OpenDialogl . Execute then 
Begin 

fname:=0penDialog1 .FileName; 
AssignFile(InFile,fname) ; 
Reset(Infile) ; 
While not Eof(InFile) do 
Begin 
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Readln ( InFile , InString) ; 
Memol . Lines. Add(InString) ; 
end; 

CloseFile(InFile) ; 

{On definit le nom de fichier en titre } 
Forml . Caption : =Form1 . Caption + 1 [ 1 +f name+ 1 ] ' ; 
end; 
end; 

procedure TForml .FormCreate(Sender: TObject); 
begin 

{Texte en clair dans la boite memo} 
Memol .Text := 1 ' ; 

end; 

procedure TForml .Exit1Click(Sender: TObject); 
begin 

Application .Terminate; 

end; 

procedure TForml .Save1Click(Sender: TObject); 
Var 

OutFile : TextFile; 
fname : string; 
begin 

If SaveDialogl .Execute then 
begin 

f name:=SaveDialog1 .FileName; 
AssignFile (OutFile , fname) ; 
Rewrite(OutFile) ; 

{On ecrit le contenu du memo en un bloc } 
Writeln (OutFile , Memol .Text) ; 
end; 

CloseFile(OutFile) ; 

{On definit le nom de fichier du titre } 
Forml . Caption :=Form1 .Caption + ' [ 1 +f name+ 1 ] 1 ; 

end; 

end . 



LE PR*)GRAMMEUR 



Enlree/sorNe de fichiers et impression 



flnolijse 



Ce programme ressemble aux editeurs de texte Windows standard tels que le Bloc-notes, 
meme s'il offre beaucoup moins de fonctions. Si vous ne Vavez pas d'efa fait,faites Fichierl 
Enregistrer projet sous et enregistrez V unite sous EDIT.PAS et le fichier de projet sans 
WINEDIT.DPR. Lancez le programme et essay ez de charger un fichier texte. Apportez quel- 
ques modifications au fichier et enregistrez-le sous un nouveau nom. Utilisez le Bloc-notes ou 
un autre editeur pour cr'eer vos fichiers de texte et pour verifier la validite des fichiers crees 
ou mis a jour par votre editeur. 

Comme nous l'avons dit precedemment, les facons de formater et de manipuler les fichiers tex- 
te sont legion. Soyez imaginatif et rappelez-vous que tout probleme admet des solutions mul- 
tiples. Vous devez determiner vous-meme ce qui convient le mieux pour la tache precise que 
vous avez a mener. 



Fichiers binaires 

Le deuxieme type de fichier est le fichier binaire . Tous les fichiers de type non texte entrent dans 
cette categoric Un fichier binaire n'est rien d'autre qu'un fichier contenant des informations 
binaires ecrites par un programme. Dans le cas des caracteres ASCII, le code ASCII represen- 
te les informations binaires ecrites dans le fichier. A la difference des textes fichier, tout fichier 
ouvert comme fichier binaire y compris les textes, fichiers de programme, bitmap, etc., peut 
etre lu par votre programme . Dans ce mode, c'est a vous qu'il incombe de determiner lafacon 
de traiter les donnees que vous pouvez lire. 

II existe deux categories de fichiers binaires : les fichiers types et les fichiers non types. Ces 
categories sont decrites dans les sections suivantes. 

Fichiers types 

Le fichier type est l'un des differents types de fichiers binaires. Ce sont des fichiers dont vous 
avez choisi le format ou la structure, ainsi que le type (et la longueur) des donnees que vous y 
stockez, que ce soit des entiers, des reels, des chaines, etc. Un bon exemple de fichier type est 
un fichier utilise par un programme de repertoire telephonique. Creons un programme simple 
qui montre l'interet d'un tel fichier. Creez un nouveau projet, en enregistrant l'unite sous 
ADDR.PAS et le projet sous ADDRESS. DPR. Commencez par creer votre structure d'enre- 
gistrements. Dans la partie d' implementation, placez le code ci-apres juste sous la directive 
{$R*.DFM}: 

J type 

Address = record 

Lastname: String[20]; 
Firstname: String[20]; 
Phone: String[15] ; 
StreetAddress : String[50]; 
City : String[40]; 
State : String[2] ; 
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ZipCode : String [10] ; 

end; 



Vous venez de creer votre propre type appele Address. Notre exemple n'utilisera que des chai- 
nes, mais vous auriez pu utiliser n'importe quel autre type de variable (integer, byte, real, etc.) 
dans votre type d'enregistrement. Utilisez ce nouveau type pour creer des variables de votre 
programme. Ensuite, juste au-dessous du code precedent, ajoutez ceci : 

8 Var 
AddressFile : File of Address; 
AddressData : Address; 

AddressFile est une variable Fichier de type Adress. Les variables Fichier sont utilisees dans 
la plupart des procedures et fonctions d'E/S fichier. Comme votre nouveau type, Address, est 
un enregistrement, AddressData devient un tampon contenant la structure du type Address. 
Ceci vous permet de lire ou d'ecrire facilement les donnees dans le tampon en une seule ligne 
de code, tout en faisant respecter un certain ordre. Tous les enregistrements enregistres sur le 
disque auront la meme taille, quelles que soient les donnees qui y figurent. II s'agit la d'un 
enregistrement de taille fixe, notion implicite dans tous les fichiers types. 

Avant de nous enf oncer dans les profondeurs de notre programme, examinons ensemble les 
procedures et fonctions qui permettent de manipuler les fichiers types. Pour plus de details sur 
ces fonctions et procedures, reportez- vous a la documentation Delphi ou a l'aide en ligne. II ne 
s'agit ici que de vous presenter les outils. 

AssignFile 

Syntaxe : procedure AssignFile(var F : File, Chemin : String); 

Utilite : Permet d'affecter un nom de fichier a une variable de fichier a l'attention d'autres 
fonctions d'E/S de fichier. 

Reset 

Syntaxe : procedure Reset(var F : File[; RecSize: Word] ); 

Utilite : Permet d'ouvrir un fichier existant qui a ete affecte a une variable de fichier au moyen 
de AssignFile. 

Rewrite 

Syntaxe : procedure Rewrite (var F : File[; RecSize: Word] ); 

Utilite : Permet de creer et d'ouvrir un fichier existant qui a ete affecte a une variable de fichier 
au moyen de AssignFile. 

Seek 

Syntaxe : procedure Seek (var F : File; N : Longint ); 

Utilite : Permet de deplacer le pointeur de fichier jusqu'a 1' enregistrement specifie (par N) dans 
le fichier ouvert. 
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Read 

Syntaxe : procedure Read(F , V1 [, V2,...,Vn ] ); 
Utilite : Permet de lire des enregistrements dans un fichier. 
Write 

Syntaxe : procedure Write (F , V1 [, V2,...,Vn ] ); 
Utilite : Permet d'ecrire des enregistrements dans un fichier. 
Eof 

Syntaxe : function Eof(var F) : Boolean; 

Utilite : Permet de determiner si le programme a atteint la fin du fichier. Utilise en conjonction 
avec Read. 

CloseFile 

Syntaxe : procedure CloseFile(var F); 

Utilite : Permet de mettre a jour les modifications du fichier et de refermer ce dernier. 
Exemple de projet 

Continuons notre programme. Vous avez deja cree le projet, ajoute un type appele Address et 
quelques variables. Ajoutez ces variables juste au-dessous de la ligne AddressDate : 
Address; 



s 



Fname : String; 
RecSize,CurRec : Longint; 



Ajoutez maintenant sept bortes d'edition, sept libelles, quatre boutons et un BitBtn. En vous 
referant a la Figure 9.4, disposez les boites d'edition et les libelles, en commencant par placer 
Editl et Labell au sommet. Modifiez les proprietes caption et name des boutons et celles du 
BitBtn. 

Le Listing 9.4 sera cree par Delphi. Examinez ce code et utilisez-le pour ajouter le code ade- 
quat aux divers composants. 

Listing 9.4 : Addr 
unit Addr; 

interface 



uses 



Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Buttons; 
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Figure 9.4 

Exemple d' utilisation de 
fichiers types : un pro- 
gramme de repertoire 
d'adr esses. 




type 

TForml = class (TForm) 
Editl : TEdit; 
Edit2: TEdit; 
Edit3: TEdit; 
Edit4: TEdit; 
Edit5: TEdit; 
Edit6: TEdit; 
Edit7: TEdit; 
Labell : TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 
Label5: TLabel; 
Label6: TLabel; 
Label7: TLabel; 
Previous: TButton; 
Next: TButton; 
Save: TButton; 
New: TButton; 
Close: TBitBtn; 

procedure FormCreate (Sender : TObject); 
procedure NewClick(Sender: TObject); 
procedure PreviousClick(Sender: TObject); 
procedure NextClick(Sender: TObject); 
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procedure SaveClick(Sender: TObject); 

procedure CloseClick(Sender: TObject); 
private 

{ Declarations privees } 

procedure LoadRecord; 

procedure SaveRecord; 

procedure ShowRecord; 

procedure ClearData; 
public 

{ Declarations publiques } 
end; 
var 

Forml : TForml ; 

implementation 
{$R * . DFM} 

type 

Address = record 

Lastname: String[20]; 
Firstname: String[20]; 
Phone: String[15]; 
StreetAddress : String[50]; 
City : String[40]; 
State : String[2] ; 
ZipCode : String[10]; 

end; 
Var 

AddressFile : File of Address; 
AddressData : Address; 
Fname : String; 
RecSize,CurRec : Longint; 



procedure TForml . LoadRecord ; 
begin 

{on charge 1 1 enregistrement } 
Read(AddressFile, AddressData) ; 
{on affiche 1 1 enregistrement a l'ecran } 
ShowRecord ; 
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end; 



procedure TForml .SaveRecord; 
begin 

{On copie 1 1 enregistrement de l'ecran vers 1 1 enregistrement } 
AddressData . Last name : =Edit1 . Text ; 
AddressData . First name : =Edit2 . Text ; 
AddressData.Phone:=Edit3.Text; 
AddressData . Street Address : =Edit4 . Text ; 
AddressData . City : =Edit5 . Text ; 
AddressData. State :=Edit6. Text; 
AddressData . ZipCode : =Edit7 . Text ; 
{On ecrit 1 1 enregistrement sur le disque } 
Write(AddressFile, AddressData) ; 
end; 

procedure TForml .ClearData; 
begin 

{On met a zero les boites d' edition } 

Editl .Text:=' 1 ; 

Edit2.Text:=' ' ; 

Edit3.Text:=' ' ; 

Edit4.Text:=' ' ; 

Edit5.Text:=' ' ; 

Edit6.Text:=' ' ; 

Edit7.Text:=' ' ; 

end; 

procedure TForml .FormCreate(Sender: TObject); 
begin 

{On met a zero les boites d 1 edition } 
ClearData; 

{On met a zero le compteur d 1 enregistrement courant } 
CurRec:=0; 

{On definit le nom de fichier } 

Fname : = 1 ADDRESS . DAT 1 ; 

{On definit la variable de fichier } 

AssignFile (AddressFile , Fname) ; 

{On regarde la taille de 1 1 enregistrement } 

RecSize : =SizeOf (AddressData) ; 

{Si le fichier existe, on le charge } 

If FileExists(Fname) then 
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Begin 

Reset(AddressFile) ; 
If not Eof (AddressFile) then 
begin 

Read (AddressFile, AddressData) ; 
ShowRecord; 
end; 

end 

{Sinon, on le cree } 
else 

Begin 

ClearData; 

Rewrite (AddressFile) ; 
end; 

end; 

procedure TForml .NewClick(Sender: TObject); 
begin 

repeat 

CurRec:=CurRec+1 ; 
Seek(AddressFile,CurRec) ; 
until Eof (AddressFile) ; 
{On met a zero les boites d 1 edition } 
ClearData; 

{On cree un nouvel enregistrement } 
SaveRecord; 

{On revient a 1 ' enregistrement courant } 
Seek(AddressFile,CurRec) ; 

end; 



procedure TForml .PreviousClick(Sender: TObject); 
begin 

If CurRec-1 < 0 then 
begin 

{Si on est avant le debut du fichier, on se place au premier 
enregistrement et on affiche le message } 
CurRec:=0; 

Seek(AddressFile,CurRec) ; 

ShowMessage( 'Ceci est le debut du fichier'); 

end 
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{Sinon, on recule d'un enregistrement et on affiche } 

else 

Begin 

CurRec:=CurRec-1 ; 

Seek(AddressFile,CurRec) ; 

Read(AddressFile,AddressData) ; 

Seek(AddressFile,CurRec) ; 

ShowRecord; 

end; 

end; 

procedure TForml .NextClick(Sender: TObject); 
begin 

{On passe a 1 1 enregistrement suivant } 
CurRec : =CurRec+1 ; 
Seek(AddressFile,CurRec) ; 

{Si on est avant la fin du fichier, on lit 1 1 enregistrement et on affiche } 
If not Eof (AddressFile) Then 
begin 

Read(AddressFile,AddressData) ; 
Seek(AddressFile,CurRec) ; 
ShowRecord; 
end 

{Sinon, on revient au dernier enregistrement et on affiche le message } 
else 
begin 

CurRec:=CurRec-1 ; 
Seek(AddressFile,CurRec) ; 
ShowMessage( 'Ceci est la fin du fichier'); 
end; 

end; 

procedure TForml .ShowRecord; 
begin 

{On copie les donnees d 1 enregistrement dans les boites d 1 edition } 

Forml . Editl . Text : =AddressData . Lastname ; 

Forml . Edit2 . Text : =AddressData . Firstname ; 

Forml . Edit3 . Text : =AddressData . Phone ; 

Forml . Edit4 . Text : =AddressData . St reet Address ; 

Forml . Edit5 . Text : =AddressData . City; 

Forml . Edit6 . Text : =AddressData .State ; 
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Forml . Edit7 . Text : =AddressData . ZipCode ; 
end; 

procedure TForml .SaveClick(Sender: TObject); 
begin 

{On sauvegarde 1 1 enregistrement} 
SaveRecord; 

{On affiche 1 ' enregistrement dans des boites d 1 edition } 
ShowRecord; 

end; 

procedure TForml .CloseClick(Sender: TObject); 
begin 

{On enregistre 1 1 enregistrement courant } 
SaveRecord; 

{On ferine le fichier } 
CloseFile(AddressFile) ; 
{On quitte 1 ' application } 
Application .Terminate; 

end; 



flnolp 



end. 

Vous venez d'ecrire une application de base de donnees d'adresses sans utiliser de moteur de 
base de donnees. Ce programme cree un fichier appel'e address.dat, prend ce que saisit I'utili- 
sateur et le stocke dans le fichier sous forme d'enregistrements. Le code du bouton Nouveau 
efface les champs de saisie et permet a V utilisateur d'entrer un nouvel enregistrement. Le 
bouton Enregistrer ecrit les donnees dans le fichier address.dat. Les boutons Precedent et 
Suivant vous permettent de naviguer dans la base de donnees enregistrement par enregistre- 
ment. Enfin, le bouton Fermer ferme I' application. 

II est temps de tester notre application. Lancez-la. Vous devriez voir apparaitre l'ecran de la 
Figure 9.5. 

Lorsque le programme est lance pour la premiere fois, il regarde si le fichier de donnees est 
present. Dans notre cas, il ne trouve pas de fichier et le cree (ADDRESS.DAT). Entrez votre 
nom, votre adresse et votre numero de telephone dans les boites d'edition et selectionnez Enre- 
gistrer. Pour entrer 1' enregistrement suivant, cliquez sur le bouton Nouveau. Les boites sont 
videes et vous pouvez entrer 1' enregistrement suivant. Entrez quelques autres enregistrements 
en procedant de la meme facon. Testez ensuite l'application en vous deplacant dans les enre- 
gistrements a l'aide des boutons Precedent et Suivant. Vous pourrez remarquer que lorsque 
vous arrivez au debut ou a la fin du fichier, une boite de message apparait indiquant que vous 
avez atteint la fin de 1' enregistrement. II est important d'empecher des erreurs ou de les captu- 
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Figure 9.5 

Exemple utilisant desfi- 
chiers types : programme 
de repertoire. 




rer, et d'empecher egalement que l'utilisateur depasse le debut ou la fin du fichier. Sortez du 
programme et lancez-le a nouveau. Cette fois, le programme trouve le fichier de donnees 
( ADDRESS. D AT), le charge et en affiche le premier enregistrement. Comme auparavant, vous 
devez pouvoir vous deplacer dans les enregistrements, les editer, en enregistrer et en ajouter de 
nouveaux. 

Maintenant que vous avez cree une application fonctionnelle, prenez un peu de temps pour etu- 
dier le code. Lisez les comme ntaires du listing pour comprendre ce qui se passe. Dans l'eve- 
nement FormCreate, remarquez la presence du code qui regarde si le fichier de donnees existe. 
Si c'est le cas, il est ouvert a l'aide de Reset. Le premier enregistrement est alors charge puis 
affiche a l'ecran. Sinon, le fichier de donnees est cree a l'aide de Rewrite et un ecran vierge 
s'affiche, pret pour la saisie. Etudiez egalement le code et les commentaires associes aux bou- 
tons et aux procedures LoadRecord, SaveRecord, ShowRecord, ClearData. Lorsque vous sen- 
tez que vous avez bien assimile les fichiers types, passez a la partie suivante. 

Fichiers non types 

Les fichiers non types vous permettent de manipuler les fichiers avec plus de souplesse. Vous 
pouvez aller en n'importe quel emplacement du fichier, modifier un octet ou un bloc entier, 
enregistrer les donnees et fermer le fichier. Lorsque vous ecrivez votre code, vous n'avez pas 
a vous conformer a des structures rigides et votre code peut traiter n'importe quel type de 
fichiers, de n'importe quelle facon. II y a un inconvenient cependant. En effet, vous devez ecri- 
re votre code en determinant tres exactement a quel endroit du fichier vous souhaitez travailler. 
Vous devez pour cela utiliser des pointeurs de fichier, vous appuyer sur une bonne connaissan- 
ce du fichier lui-meme et mettre en ceuvre des algorithmes pointus dans votre application. Les 
tailles des enregistrements peuvent varier, et il incombe au programmeur de determiner ou se 
trouve un enregistrement de donnees, et quelle est sa taille. La plus grande prudence est de mise 
lorsque vous travaillez avec des fichiers non types, mais le jeu en vaut parfois la chandelle. 
Imaginez que vous ayez un fichier de taille consequente dans lequel vous souhaitez remplacer 
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tous les espaces par des virgules. Vous pouvez ecrire un programme Delphi simple qui trans- 
ferera le fichier dans un tampon, bloc par bloc, puis cherchera dans le tampon les espaces et les 
transformera en virgules au fur et a mesure avant d'enregistrer les modifications sur le disque. 
II est indifferent que le fichier soit un fichier texte ou binaire, de meme que la facon dont sont 
stockees les donnees dans ce fichier n'importe pas. Pour tout dire, vous etes totalement libre 
dans le choix de votre methode d'acces ou de manipulation des donnees dans un fichier non 
type. Avant de poursuivre sur ce sujet, examinons quelques procedures et fonctions qui vous 
seront utiles. 

BlockRead 

Syntaxe : BlockRead (var F: File; var Buf; Count: Word [; var Result: Word]); 

Utilite : Lit un bloc de donnees sur le disque et le place dans un tampon. 

BlockWrite 

Syntaxe : BlockWrite (var f: File; var Buf; Count: Word [; var Result: Word]); 

Utilite : Permet d'ecrire un bloc de donnees de la memoire vers le disque. 

FilePos 

Syntaxe : FilePos( var F): Longint; 

Utilite : Permet de recuperer la position courante du pointeur de fichier. 
Exemple de projet 

Creons un projet qui lit un fichier dans lequel il convertira tous les espaces en virgules. 
Suivez ces etapes et creez la fiche pour l'application. 

1 . Creez un nouveau projet Delphi et enregistrez l'unite sous le nom de SP2CMA.PAS. 

2. Enregistrez le projet sous SP2COMM A .DPR . 

3. Ajoutez trois boutons, une boite d'edition et un label a la fiche. La fiche doit ressembler 
a celle de la Figure 9.6. 

Figure 9.6 wi^JAijJuiJjjajj.).ujajJiijii,iiiiJMMrrinixi 

Programme de conversion newer siiectionne M 

des espaces en virgules. : 

; Selectionnerj Traiter j ■ Qu i tter | 

4. Modifiez le libelle de la fiche pour qu'il devienne "Conversion des espaces en virgules". 

5. Ajoutez un composant OpenDialog a la fiche. 
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6. Double-cliquez sur la propriete Filter et utilisez l'Editeur de filtres pour dormer comme 
nom de filtre "Tous" et comme filtre "*.*". 

7. Definissez comme False les proprietes Visible de la boite d'edition et du label. 

Le coeur du programme reside dans l'evenement OnClick du bouton Action. C'est la que se 
trouve le code qui charge les donnees provenant du disque, puis convertit les espaces en virgu- 
les et enregistre les donnees modifiees sur le disque. Regardons de plus pres certains aspects 
de ce code. 

Dans la partie qui suit, vous definissez quelques variables necessaires a l'operation. InFile est 
une variable de type File dont nous avons deja parle. Fbuffer est un tableau de type Byte qui 
est un tampon de 1 ko permettant de stocker les donnees lues dans un fichier. Fpointer permet 
de stocker le pointeur de fichier (la position dans le fichier) afin de pouvoir revenir a cette posi- 
tion apres une operation de lecture ou d'ecriture. 

Var 

InFile : File; 

FBuffer : array [0..1023] of Byte; 
FPointer : Longint; 
BytesRead : Integer; 
x : Integer; 

Vous devez ensuite identifier le fichier et le preparer au traitement. Vous avez deja rencontre 
AssignFile, mais vous pouvez remarquer qu'on a ajoute ici un parametre a la fonction Reset. 
Ce parametre represente la taille d'enregistrement, qui est de 128 octets par defaut. Donnez-lui 
une valeur de 1 pour notre exemple. 

8 begin 
AssignFile(InFile,Fname) ; 
Reset(InFile,1); 

Une fois le fichier ouvert, vous devez le charger par morceaux de 1 ko. La boucle while se pro- 
longe tant que vous n'avez pas atteint la fin du fichier. A chaque passage dans la boucle, vous 
obtenez la position du pointeur de fichier. Vous lisez un bloc a l'aide de la procedure Bloc - 
kRead qui place 1 ko de donnees dans le tampon. Ensuite, vous parcourez les donnees du buf- 
fer, octet par octet, en transformant en virgules tous les espaces rencontres. Une fois le tampon 
traite, vous utilisez la procedure Seek pour placer le pointeur de fichier au debut de l'enregis- 
trement. Ceci est necessaire car le pointeur de fichier est deplace jusqu'au debut du bloc sui- 
vant de donnees apres une operation de lecture ou d'ecriture. Vous utilisez ensuite BlockWrite 
pour enregistrer sur disque le contenu du tampon. S'il reste des donnees a traiter, vous repartez 
dans la boucle, sinon le fichier est mis a jour puis ferme a l'aide de CloseFile. Lorsque vous 
avez fini, un message s'affiche indiquant Traitement acheve. 
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unit Addr; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Buttons; 



type 

TForml = 
Editl : 
Edit2: 
Edit3: 
Edit4: 
Edit5: 
Edit6: 
Edit7: 
Labell 
Label2 
Label3 
Label4 
Label5 
Label6 
Label7 



class(TForm) 
TEdit; 



TEdit; 
TEdit; 
TEdit; 
TEdit; 
TEdit; 
TEdit; 
TLabel; 
TLabel; 
TLabel; 
TLabel; 
TLabel; 
TLabel; 
TLabel; 
Previous: TButton; 
Next: TButton; 
Save: TButton; 
New: TButton; 
Close: TBitBtn; 

procedure FormCreate (Sender : TObject); 
procedure NewClick(Sender: TObject); 
procedure PreviousClick(Sender: TObject); 
procedure NextClick(Sender: TObject); 
procedure SaveClick(Sender: TObject); 
procedure CloseClick(Sender: TObject); 
private 

{ Declarations privees } 
procedure LoadRecord; 
procedure SaveRecord; 
procedure ShowRecord; 
procedure ClearData; 
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public 

{ Declarations publiques } 
end; 
var 

Forml : TForml ; 

implementation 
{$R * . DFM} 

type 

Address = record 

Lastname: String[20]; 
Firstname: String[20]; 
Phone: String[15]; 
StreetAddress : String[50]; 
City : String[40]; 
State : String[2]; 
ZipCode : String[10]; 

end; 
Var 

AddressFile : File of Address; 
AddressData : Address; 
Fname : String; 
RecSize,CurRec : Longint; 

procedure TForml . LoadRecord ; 
begin 

{on charge 1 1 enregistrement } 
Read(AddressFile, AddressData) ; 
{on affiche 1 1 enregistrement a l'ecran } 
ShowRecord ; 
end; 

procedure TForml .SaveRecord; 
begin 

{On copie 1 1 enregistrement de l'ecran vers 1 1 enregistrement } 
AddressData . Lastname : =Edit1 . Text ; 
AddressData . Firstname : =Edit2 . Text ; 
Add ressDat a. Phone :=Edit3. Text; 



LE PR*)GRAMMEUR 



Enlree/sorNe de fichiers er impression 



Add ressDat a. Street Add ress :=Edit4. Text ; 
AddressData . City : =Edit5 . Text ; 
AddressData . State : =Edit6 . Text ; 
AddressData . ZipCode : =Edit7 . Text ; 
{On ecrit 1 1 enregistrement sur le disque } 
Write(AddressFile, AddressData) ; 
end; 



procedure TForml .ClearData; 
begin 

{On met a zero les boites d' edition } 
Editl .Text:= 
Edit2.Text:= 
Edit3.Text:= 
Edit4.Text:= 
Edit5.Text:= 
Edit6.Text:= 
Edit7.Text:= 
end; 

procedure TForml .FormCreate(Sender: TObject); 
begin 

{On met a zero les boites d 1 edition } 
ClearData; 

{On met a zero le compteur d 1 enregistrement courant } 
CurRec:=0; 

{On definit le nom de fichier } 

Fname : = 1 ADDRESS . DAT 1 ; 

{On definit la variable de fichier } 

AssignFile (AddressFile , Fname) ; 

{On regarde la taille de 1 1 enregistrement } 

RecSize:=SizeOf (AddressData) ; 

{Si le fichier existe, on le charge } 

If FileExists(Fname) then 

Begin 

Reset(AddressFile) ; 

If not Eof (AddressFile) then 
begin 

Read (AddressFile, AddressData) ; 
ShowRecord; 
end; 

end 
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{Sinon, on le cree } 
else 

Begin 

ClearData; 

Rewrite (AddressFile) ; 
end; 

end; 

procedure TForml .NewClick(Sender: TObject); 
begin 

repeat 

CurRec : =CurRec+1 ; 
Seek(AddressFile,CurRec) ; 
until Eof (AddressFile) ; 
{On met a zero les boites d 1 edition } 
ClearData; 

{On cree un nouvel enregistrement } 
SaveRecord; 

{On revient a 1 ' enregistrement courant } 
Seek(AddressFile, CurRec) ; 

end; 

procedure TForml .PreviousClick(Sender: TObject); 
begin 

If CurRec-1 < 0 then 
begin 

{Si on est avant le debut du fichier, on se place au premier 
enregistrement et on affiche le message } 
CurRec:=0; 

Seek(AddressFile,CurRec) ; 

ShowMessage( 'Ceci est le debut du fichier'); 

end 

{Sinon, on recule d'un enregistrement et on affiche } 

else 

Begin 

CurRec:=CurRec-1 ; 

Seek(AddressFile,CurRec) ; 

Read(AddressFile,AddressData) ; 

Seek(AddressFile,CurRec) ; 

ShowRecord; 
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end; 

end; 

procedure TForml .NextClick(Sender: TObject); 
begin 

{On passe a 1 ' enregistrement suivant } 
CurRec : =CurRec+1 ; 
Seek(AddressFile,CurRec) ; 

{Si on est avant la fin du fichier, on lit 1 1 enregistrement et on affiche } 
If not Eof (AddressFile) Then 
begin 

Read(AddressFile,AddressData) ; 
Seek(AddressFile,CurRec) ; 
ShowRecord; 
end 

{Sinon, on revient au dernier enregistrement et on affiche le message } 
else 
begin 

CurRec:=CurRec-1 ; 
Seek(AddressFile,CurRec) ; 
ShowMessage( 'Ceci est la fin du fichier'); 
end; 

end; 

procedure TForml .ShowRecord; 
begin 

{On copie les donnees d 1 enregistrement dans les boites d 1 edition } 
Forml .Editl .Text:=AddressData.Lastname; 
Forml . Edit2 . Text : =AddressData . First name ; 
Forml . Edit3 . Text : =AddressData .Phone ; 
Forml . Edit4.Text :=AddressData.StreetAddress; 
Forml . Edit5. Text : =AddressData . City ; 
Forml . Edit6 . Text : =AddressData .State ; 
Forml . Edit7 . Text : =AddressData . ZipCode ; 
end; 



procedure TForml .SaveClick(Sender: TObject); 
begin 

SaveRecord; 

{On affiche 1 ' enregistrement dans des boites d 1 edition } 
ShowRecord ; 
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end; 

procedure TForml .CloseClick(Sender: TObject); 
begin 

{On enregistre 1 1 enregistrement courant } 
SaveRecord; 

{On ferme le fichier } 
CloseFile(AddressFile) ; 
{On quitte 1 1 application } 
Application .Terminate; 

end; 
end . 



Le code ci-avant sera rapide pour deux raisons. Tout d'abord, les procedures BlockRead et 
BlockWrite chargent un bloc de donnees tout entier en une seule operation. Par ailleurs, le trai- 
tement se fait en memoire (dans le tampon) ce qui est beaucoup plus rapide que de devoir lire 
et ecrire en progressant octet par octet. La taille du tampon peut etre definie a une valeur plus 
grande si vous souhaitez ameliorer encore plus les performances (pour les fichiers de taille 
importante principalement) . 

Le Listing 9.5 montre la totalite du code. Etudiez-le et prenez-le comme reference pour placer 
le code dans les boutons restants. Lorsque vous avez termine, testez votre application. 

Listing 9.5 : Sp2cma 
unit Sp2cma; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
Menus, StdCtrls; 



type 

TForml = class(TForm) 
ButtoM : TButton; 
Button2: TButton; 
Button3: TButton; 
OpenDialogl : TOpenDialog; 
Editl : TEdit; 
Labell : TLabel; 
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procedure Button2Click(Sender: TObject); 

procedure Button1Click(Sender: TObject); 

procedure Button3Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 



implementation 
Var 

Fname : String; 
{$R * . DFM} 

procedure TForml .Button2Click(Sender: TObject); 
Var 

InFile : File; 

FBuffer : array [0..1023] of Byte; 
FPointer : Longint; 
BytesRead : Integer; 
x : Integer; 
begin 

{On definit le nom de fichier comme variable de fichier } 
AssignFile(InFile, Fname) ; 

{La taille d 1 enregistrement est d'un octet } 
Reset (InFile, 1 ) ; 
While Not Eof(InFile) Do 
Begin 

{On regarde la position dans le fichier } 

FPointer:=FilePos(InFile) ; 

{On lit un bloc de 1 ko dans le tampon } 

BlockRead (InFile , FBuf f er , SizeOf ( FBuffer) , BytesRead ) ; 

{on convertit les espaces en virgules } 

For x:= 0 to BytesRead-1 do 

Begin 

If FBuffer[x]=32 then FBuffer[x] :=44; 

end; 

{On replace Filepointer au debut du bloc } 
Seek(InFile, FPointer) ; 
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{On ecrit le tampon de 1 ko sur le disque } 
BlockWrite(InFile, FBuff er,BytesRead) ; 

end; 

{On vide les tampons sur le disque et on ferme le fichier } 

CloseFile(InFile) ; 

ShowMessage( 'Traitement acheve' ) ; 

end; 

procedure TForml .Button1Click(Sender: TObject); 
begin 

{On affiche la boite de dialogue Ouvrir } 
OpenDialogl . FileName := '*.*'; 
if OpenDialogl . Execute then 

{On prend les noms de fichiers selectionnes } 

Fname := OpenDialogl . FileName; 

{On les affiche } 

Editl .Text :=Fname; 

{Maintenant que l'on dispose du nom de fichier, on affiche la boite Edit 
et son label } 

Editl .Visible:=True; 
Labell .Visible:=True; 

end; 



procedure TForml .Button3Click(Sender: TObject); 
begin 

{On quitte 1 1 application } 
Application .Terminate; 

end; 
end . 

Ce programme lit un fichier texte (s'electionn'e par V utilisateur) dans /Buffer par blocs de 
1 024 octets. Le contenu du tampon est alors scrut'e et les espaces sont convertis en vir gules 
(lorsque 1' utilisateur appuie sur le bouton Traitement). Le pointeur de fichier est repositionne 
au debut du bloc (car il a ete avanc'e a la suite de la declaration BlockRead) et les donn'ees 
modifiees sont 'ecrites dans le fichier. A la fin du traitement, le programme affiche le message 
Traitement acheve. L' utilisateur peut alors traiter un autre fichier ou s'electionner Quitter 
pour fermer le programme. 

Enregistrez le code, puis compilez-le et executez-le. Si tout a l'air de bien se comporter, allez 
dans le Bloc-notes et creez un fichier de texte simple contenant une phrase ou deux et qui vous 
servira de cobaye. Revenez a l'application et cliquez sur le bouton Selection fichier. Dans la 
boite de dialogue qui apparait alors, selectionnez le fichier texte que vous avez cree. Cliquez 
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ensuite sur le bouton Traitement. Une boite de message devrait tres vite apparaitre, vous indi- 
quant que le programme a termine sa tache. Sortez du programme et revenez dans le Bloc-notes 
pour charger de nouveau le fichier texte. Si le code ne comportait pas d'erreurs, vous devez 
voir des virgules la ou se trouvaient auparavant des espaces. Vous pouvez egalement tester le 
programme sur d'autres fichiers. Pour verifier que tout se passe correctement avec un fichier 
binaire, utilisez un gros document ecrit dans un traitement de textes tel que Write ou Word 6, 
qui enregistrent leurs fichiers dans un format binaire. Ceci termine notre introduction aux 
fichiers non types, meme si nous n'avons fait qu'effleurer toutes leurs potentialites. A vous de 
jouer... 

GesNon de fichiers, gesMon de repertoires et autres fonc- 
Mons liees aux fichiers 

La liste des fonctions et procedures d'E/S et de gestion de fichier a connaitre n'est pas close. 
Cet ouvrage ne suffirait pas pour toutes les presenter. Tachez de vous familiariser aux fonctions 
et procedures qui figurent dans l'aide en ligne dans les trois rubriques suivantes : 

• Routines de Gestion de fichier. 

• Routines d'E/S. 

• Routines de fichiers texte. 

Vous avez deja eu l'occasion d'utiliser bon nombre des fonctions et procedures qui figurent 
dans ces rubriques, mais d'autres doivent vous etre inconnues. La plupart des fonctions effec- 
tuent les memes types d'operations mais de differentes manieres. Ainsi : 

Var 

MyFileVar : File 
J Begin 

AssignFile(MyFileVar,filename) ; 
Rewrite (MyFile) ; 

2 End ; 

La routine ci-avant creer une variable Fichier et lui affecte un nom de fichier. La variable 
Fichier est utilisee par la procedure Rewrite pour creer et ouvrir le fichier. Vous pouvez par- 
venir au meme resultat en utilisant la fonction FileCreate, comme le montre le code ci-apres : 

Var 

Handle : Integer; 
Begin 

Handle : =FileCreate ( 1 Filename ') ; 
End; 
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Lafonction FileCreate renvoie un handle defichier si V operation est reussie. Un handle de 
fichier n'est rien d'autre qu'une valeur entiere qui permettra d'identifier le fichier jusqu'a sa 
fermeture. Si plus d' un fichier est ouvert, a chaque fichier sera affecte un handle qui lui est 
propre. Cet handle defichier est utilise par de nombreuses fonctions et procedures pour lire, 
ecrire, deplacer le pointeur de fichier, etc., comme lefaisaient les procedures et fonctions que 
nous avons vues, mais qui, elles, utilisaient des variables defichier. 

Utiliser des handles plutot que des variables de fichier presente certains avantages. Ainsi, la 
fonction FileOpen vous permet d'effectuer un OR sur un ensemble de constantes pour definir 
le mode dans lequel le fichier sera ouvert. Les constantes de mode de fichier sont indiquees ci- 
apres : 

J fmOpenRead 

f mOpenWrite 
J f mOpenReadWrite 
J fmShareCompat 

f mShareExclusive 

f mShareDenyWrite 

f mShareDenyRead 

f mShareDenyNone 

Pour plus de details sur ces constantes, vous pouvez vous reporter a l'aide en ligne. Vous trou- 
verez leur description dans l'aide consacree a l'unite SysUtils. Si vous souhaitez ouvrir un 
fichier avec un acces exclusif et empecher qu'un autre utilisateur ou programme puisse y acce- 
der, il vous suffit d'utiliser la constante f mShareExclusive. Par exemple : 

MyHandle : =FileOpen (f name, f mShareExclusive) ; 

N'oubliez pas que vous pouvez effectuer un OR sur ces constantes pour definir a votre guise les 
modalites d'acces au fichier. II peut devenir necessaire de le faire si vous partagez des fichiers 
avec d'autres programmes dans le meme systeme, ou avec d'autres utilisateurs dans un reseau. 

Dans le tableau ci-apres figurent d'autres fonctions et routines dont vous devez connaitre 
l'existence. Prenez le temps de les regarder et de consulter l'aide en ligne a leur sujet. 



Erase 


Supprime un fichier 


FileSize 


Donne la taille du fichier specifie 


GetDir 


Donne le repertoire courant du lecteur specifie 


MkDir 


Cree un sous-repertoire 


Rename 


Renomme un fichier 


RmDir 


Supprime un sous-repertoire 
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De nombreuses fonctions et procedures ayant trait a la manipulation des fichiers n'ont pas pu 
etre abordees ici. Si vous avez lu l'aide en ligne concernant les trois rubriques citees plus haut, 
vous avez pu completer les connaissances acquises au cours de cette journee. 



Noms longs de fichiers 

Nous en arrivons enfin aux noms longs ! Vous n'etes plus limite a des noms de fichiers de 1 1 
caracteres (8 pour le nom de fichier, 3 pour l'extension). Sous Windows 95 et NT, les noms de 
fichiers peuvent occuper jusqu'a 255 caracteres, y compris le zero terminal. La taille maximum 
d'un chemin est de 260 caracteres, y compris le zero terminal. 

Pour des raisons de compatibilite ascendante, un nom court est egalement cree a partir des six 
premiers caracteres du nom long. Si plusieurs noms longs ont en commun les six premiers 
caracteres, le systeme d' exploitation utilise un algorithme incremental de nommage des 
fichiers en format 8.3. Voici quelques exemples de noms longs avec leur equivalent de nom 
court : 



Nom long 


Nom court 


LongFichierNumerol .TXT 


LONGFI~l.TXT 


LongFichierNumero2 . TXT 


LONGFI~2.TXT 



Delphi 3 sait tirer parti des noms longs. Vous n'avez rien de particulier a faire, Delphi et le sys- 
teme d 'exploitation gerent tout ceci de facon transparente pour vous. II vous suffit d'utiliser le 
nom long dans vos fonctions, procedures et programmes. Vous pouvez egalement continuer 
d'utilser l'ancien format 8.3, la compatibilite est assuree. 



Imprinter 

Bien que nous vivions dans un monde de plus en plus electronique, dans lequel nous utilisons 
telecopie, messages electroniques et logiciels de presentation, il vient toujours un moment ou 
il est necessaire d'imprimer du texte ou un graphique venant d'un programme, pour generer 
des formulaires ou des brochures par exemple. 

Nous n'utiliserons pas QuickReport dans cette section (reportez-vous au Jour 12 pour en savoir 
plus sur QuickReport). Nous verrons deux methodes pour imprimer directement a partir de 
programmes Delphi, ce qui peut faire gagner beaucoup de temps si vous n'avez pas besoin de 
toutes les fonctionnalites de QuickReport ou d'autres logiciels d'impression. Nous parlerons 
des techniques d'impression de base, consistant a envoyer une ligne ou une chaine de texte a 
la fois vers l'imprimante, comme c'est le cas dans un programme DOS simple en Pascal. Cette 
section examine egalement les objets imprimante disponibles dans Delphi. A l'aide de ces 
objets, vous pouvez imprimer du texte. Vous verrez comment utiliser les boites de dialogue 
d'impression et comment imprimer des graphiques. Nous aborderons egalement toutes les 
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bases vous permettant de proceder a des impressions dans vos applications sans avoir besoin 
d'utiliser pour cela des produits exterieurs. 

Bases de Nmpression en Pascal 

Si vous connaissez deja les techniques d'impression en Pascal ou dans d'autres langages, vous 
ne serez pas surpris. L'impression dans sa plus simple expression consiste a creer une variable 
de fichier et a l'affecter a l'imprimante. Vous utilisez alors une declaration writeln pour 
envoyer le texte vers l'imprimante. Ce type d'impression est des plus primitifs compare aux 
fonctionnalites dont vous disposez dans Windows, mais il suffit parfois amplement. Imaginez 
par exemple qu'un ordinateur est connecte a une imprimante texte qui permet d'obtenir des 
sorties papier des mesures d'un instrument. Ou que vous souhaitez imprimer une liste simple, 
sans avoir besoin d'utiliser de graphiques, de polices et sans formatage particulier. Le code ci- 
apres utilise une declaration writeln pour imprimer : 

var 

P : TextFile; 
begin 

AssignPrn(P) ; 
rewrite(P) ; 

writeln(P, 'Test d ' 1 impression 1 ) ; 
-CloseFile(P) ; 
end; 

Comme vous pouvez le voir, on declare une variable P de type TextFile. On utilise ici une 
variante de Assign, AssignPrn. Cette fonction affecte la variable au port de l'imprimante, le 
traitant comme un fichier. II faut ensuite ouvrir le port de l'imprimante et on utilise rewrite a 
cet effet. Le texte est envoye a l'imprimante par le biais de la procedure writeln et le port de 
l'imprimante est ferme avec CloseFile . II est important de fermer le port de l'imprimante pour 
terminer l'operation. Tout texte restant encore en memoire est envoye vers l'imprimante et le 
port est ferme, tout comme un fichier. 

Pour comprendre le fonctionnement de cette methode, creons un petit programme qui selec- 
tionne un fichier texte et l'envoie a l'imprimante. Ajoutez a une fiche deux boutons, un com- 
posant OpenDialog et un liberie. Utilisez la propriete filter de 1 1 OpenDialog pour ajouter un 
filtre .txt. Referez-vous a la Figure 9.7 pour concevoir l'ecran. Puis recopiez le code qui lui est 
associe (Listing 9 .6) . Enregistrez le projet sous FILE2PRN.DPR et l'unite sous FILEPRN. 
PAS. 
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Figure 9.7 

Impression defichier 
texte : FILE2PRN.DPR. 




Note 



Vous devez ajouter Printers a la clause uses pour pouvoir acc'eder auxfonctions d'impres- 
sion. 

Listing 9.6 : Impression d'un fichier texte 
unit Fileprn; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Printers; 

type 

TForml = class (TForm) 
Buttonl : TButton; 
OpenDialogl : TOpenDialog; 
Button2: TButton; 
Labell : TLabel; 

procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 



var 

Forml : TForml ; 
implementation 
{$R * . DFM} 
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Var 

Fname : String; 

procedure TForml .Button1Click(Sender: TObject); 
begin 

if OpenDialogl .Execute then 
begin 

Fname :=OpenDialog1 .FileName; 
Labell . Caption :=' Pret a imprimer 1 + Fname; 
end; 
end; 

procedure TForml .Button2Click(Sender: TObject); 
Var 

P,F : TextFile; 
TempStr : String; 
begin 

AssignFile(F, Fname) ; 
Reset; 

AssignPrn(P) ; 
Rewrite(P) ; 

Labell .Caption:=' Impression de '+ Fname; 

While Not Eof Do 

begin 

Readln(F, TempStr) ; 
Writeln(P, TempStr) ; 

end; 

CloseFile; 
CloseFile(P) ; 

Labell .Caption:^' Impression achevee' ; 
end; 

end . 



Ce programme vous permet d'utiliser la boite de dialogue Ouvrir fichier pour choisir le 
fichier a imprimer. II lit le fichier ligne par ligne et envoie chaque ligne a I'imprimante. Testez 
ce programme en imprimant quelques fichiers texte. 
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Imprimer avec l'objet Tprinter de Delphi 

La place nous manque pour decrire en detail toutes les proprietes et methodes des objets impri- 
mante. Dans cette partie, nous developperons quelques programmes donnant des exemples 
d'utilisation des objets imprimante. Vous verrez ainsi comment doter vos applications de fonc- 
tionnalites d'impression. 

En Delphi, vous utilisez l'objet Tprinter pour acceder a l'interface d'impression Windows. 
L'unite Printers de Delphi contient la variable Printer qui est declaree comme instance de 
l'objet Tprinter : 

Printer : Tprinter; 

Pour utiliser l'objet TPrinter, vous devez ajouter l'unite Printers a la clause uses de votre 
code. A la difference d'autres unites usuelles, Printers n'est pas ajoute d'office par Delphi. 



s 



uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Printers; 



Cela fait, vous pouvez utiliser Printer pour referencer des proprietes dans l'objet TPrinter. 



L'objet TPrinter 



Avant de pouvoir utiliser l'objet TPrinter, vous devez connaitre certaines de ses proprietes et 
methodes : 

Canvas Declaree comme une instance de l'objet TCanvas. Le canevas est l'endroit 

ou la page ou le document est construit en memoire avant d'etre imprime. 
Ses proprietes Pen et Brush vous permettent d'y dessiner et d'y placer du 
texte. 

TextOut Methode de l'objet TCanvas qui permet d'envoyer du texte vers le canevas. 

BeginDoc Permet de lancer une tache d'impression. 

EndDoc Permet de terminer une tache d'impression. L'impression proprement dite 

ne commence pas tant que EndDoc n'a pas ete appele. 

PageHeight Provoque un saut de page sur l'imprimante et redefinit a (0,0) la valeur de la 
propriete Pen du canevas. 

PageNumber Renvoie le numero de la page actuellement imprimee. 



Ainsi, si vous souhaitez imprimer du texte a l'aide de l'objet Printer, vous ecrirez quelque cho- 
se comme : 

8 Printer. BeginDoc; 
Printer . Canvas .TextOut ( 1 0, 10, ' J ' ' imprime avec 1' 'objet Printer'); 
Printer. EndDoc; 
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Ce code provoque l'impression du texte J 1 imprime avec l'objet Printer a partir du dixie- 
me pixel a droite et du dixieme pixel en partant du haut du canevas. BeginDoc lance l'impres- 
sion. Le texte est envoye au canevas a l'aide de la propriete TextOut du canevas. EndDoc 
declenche l'impression du texte proprement dite et termine la tache d'impression. 

Ces proprietes et methodes ne sont que la partie emergee de l'iceberg Tprint, mais elles sont 
suffisantes pour creer le programme d'impression de fichier que nous avons ecrit plus haut. 
Chargez le projet FILE2PRN.DPR et enregistrez-le sous FILE2POB.DRP. Enregistrez 1' unite 
sous FILEPOBJ.PAS. Le programme lit le fichier ligne a ligne comme auparavant, mais il cal- 
cule aussi la position du canevas qui recevra le texte, avant de placer ce texte sur le canevas 
pour l'imprimer. Le Listing 9.7 montre la version amelioree du programme Impression de 
fichier. Les commentaires vous aideront a comprendre le code. Si vous avez fait une copie de 
FILEOBJ.PAS, editez le code du bouton Imprimer (Button2 en 1' occurrence) en vous referant 
au Listing 9.7. Vous pouvez modifier la propriete Caption pour qu'elle devienne Impression 
de fichier texte a l'aide de l'objet TPrinter. 



Listing 9.7 : Impression de fichiers texte a l'aide de l'objet TPrinter 
unit Filepobj ; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Printers; 

type 

TForml = class (TForm) 
Buttonl : TButton; 
OpenDialogl : TOpenDialog; 
Button2: TButton; 
Labell : TLabel; 

procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 



var 

Forml : TForml ; 
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implementation 

{$R * . DFM} 
Var 

Fname : String; 

procedure TForml .Button1Click(Sender: TObject); 
begin 

if OpenDialogl . Execute then 
begin 

Fname :=OpenDialog1 .FileName; 
Labell .Caption:= 1 Pret a imprimer 1 + Fname; 
end; 
end; 



procedure TForml .Button2Click(Sender: TObject); 
Var 

F : TextFile; 
TempStr, PageNum : String; 
Ct r , x , PHeight , LineSpace : Integer; 
begin 

Ctr:=1 ; 

{On ouvre le fichier a imprimer } 

AssignFile(F, Fname) ; 

Reset; 

{On lance 1' impression } 
Printer. BeginDoc; 

{On recupere la hauteur de la page } 
PHeight :=Printer. PageHeight; 

{On calcule la valeur de l'interligne en se basant sur une page de 60 
lignes } 

LineSpace :=PHeight DIV 60; 

{On recupere la page a imprimer } 

PageNum : =IntToStr (Printer . PageNumber) ; 

{On met a jour le label avec le numero de page courant } 

Labell .Caption:^' Impression de '+ Fname + 1 Page 1 + PageNum; 

While Not Eof Do 

begin 

{On lit une ligne de texte du fichier texte dans TempStr} 
Readln(F,TempStr) ; 

{On envoie le contenu de TempStr a l'imprimante } 
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Printer. Canvas .TextOut (0,x,TempStr) ; 

{On incremente x du nombre de pixels adequat pour imprimer la ligne 
suivante} 

x:=x+LineSpace; 

{On compte le nombre de lignes imprimees } 
Ctr:=Ctr+1 ; 

{Si on a imprime 60 lignes, on commence une nouvelle page, on 
recupere le numero de page et on reprend tout } 
If Ctr > 59 then 
begin 

Printer. NewPage; 
x:=0; 
Ctr:=0; 

PageNum: =IntToStr ( Printer . PageNumber) ; 

Labell .Caption:=' Impression de '+ Fname + 1 Page 1 + PageNum; 

end; 
end; 

{On ferme le fichier texte et on fait s 1 imprimer la tache } 
CloseFile; 
Printer. EndDoc; 

Labell .Caption :=' Impression achevee. 1 + 1 Pages imprimees = '+ PageNum; 
end; 

end . 

Ce programme se comporte comme auparavant, mais il effectue maintenant les impressions 
en passant par Vobjet printer. Les messages d'etat ont egalement et'e legerement modifies. 

Assurez-vous de bien enregistrer votre travail avant de tester cette nouvelle version. Le pro- 
gramme se comporte comme avant, a cela pres qu'il imprime desormais par le biais de l'objet 
Printer. Les messages d'etat ont egalement ete modifies. 

Cette methode d'impression vous permet d'ajouter facilement des graphiques a un document. 
Vous pouvez egalement ajouter du code pour modifier l'orientation de la page, la taille des 
polices, les styles et bien d'autres aspects encore. Vous beneficiez de toutes ces fonctionnalites 
sans devoir ecrire beaucoup plus de code. II suffit d'indiquer a l'objet Printer ce que vous sou- 
haitez imprimer et comment vous souhaitez que ce soit imprime. 

Les composanfs TPrinferDialog etTPrinterSetupDialog 

Vous avez sans doute vu des logiciels du commerce qui utilisent des boites de dialogue pour 
selectionner des options d'impression telles que le nombre de copies, le rassemblement de 
copies et l'orientation de la page. II n'est pas difficile avec Delphi d'obtenir ces fonctions. II 
vous suffit de placer le composant TPrinterDialog sur la page et d'ajouter quelques lignes de 
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code. Votre application dispose alors de boites de dialogue Impression. Le code qui le permet 
est le suivant : 

if PrintDialogl . Execute then 
Begin 

{votre code d 1 impression} 

end; 

Lorsque ce code est execute, la boite de dialogue Impression standard de Windows apparait, 
permettant a l'utilisateur de selectionner des options pour la tache d'impression en attente. Ces 
selections faites, la tache d'impression est menee a bien en tenant compte des parametres spe- 
cifies (sauf pour le nombre de copies, pour lequel il est necessaire de creer une boucle). Ce 
n'est pas plus complique que 9a. 

Pour voir comment tout cela fonctionne, modifions notre programme d'impression pour qu'il 
comporte une boite de dialogue Impression. Enregistrez FILE2POB.DPR sous PRINTDLG. 
DPR et FILE2POB.PAS sous PRNDLG.PAS. Dans l'onglet Dialogues, selectionnez le com- 
posant PrintDialog et deposez-le sur la fiche. Referez-vous au Listing 9.8 pour modifier le 
code du bouton Imprimer. Et voila, vous pouvez tester votre nouveau programme. 



Listing 9.8 : Ajout d'une boite de dialogue Imprimer 

Var 

F : TextFile; 
TempStr, PageNum : String; 
Ctr, x, PHeight , LineSpace : Integer; 
begin 

Ctr:=1 ; 

{On ouvre le fichier texte a imprimer } 
AssignFile(F,Fname) ; 
Reset ; 

if PrintDialogl . Execute then 
Begin 

Printer . BeginDoc ; 
PHeight :=Printer. PageHeight; 
LineSpace:=PHeight DIV 60; 
PageNum : =IntToStr (Printer . PageNumber) ; 
Labell .Caption:=' Impression de '+ Fname + ' Page 
While Not Eof Do 
begin 

Readln(F, TempStr) ; 

Printer .Canvas. TextOut (0,x, TempStr) ; 
x:=x+LineSpace; 



PageNum; 
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Ctr:=Ctr+1 ; 
If Ctr > 59 then 
begin 

Printer. NewPage; 
x:=0; 
Ctr:=0; 

PageNum: =IntToStr ( Printer . PageNumber) ; 

Labell .Caption:=' Impression de '+ Fname + 1 Page 1 + PageNum; 

end; 
end; 
CloseFile; 
Printer. EndDoc; 

Labell .Caption:=' Impression achevee! 1 + 1 Pages imprimees = 1 + PageNum; 
end; 
end; 

Les seules differences visibles entre le programme precedent et notre nouveau programme 
sont les declarations if PrintDialog et begin. . . end : 

if PrintDialogl . Execute then 

begin 

{code d' impression. . .} 

end; 

Lorsque vous lancez le programme et selectionnez Imprimer, la boite de dialogue Impression 
apparait (voir Figure 9.8). Elle permet a l'utilisateur d'effectuer ses choix avant de lancer 
l'impression. Vous pouvez aller dans la boite de dialogue Proprietes en cliquant sur le bouton 
Proprietes (voir Figure 9.9). 
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Polices ef failles de police 

II est tout aussi facile de changer de police et de taille de police. Supposons que vous souhaitez 
que la taille de la police passe a 18 et que la police devienne Times New Roman. II vous suffit 
alors d'utiliser la propriete Font du canevas. En ajoutant la ligne de code ci-apres a la routine 
d' impression de votre programme, vous pouvez choisir une police conforme a vos besoins : 

{On definit la taille de police } 
Print en. Canvas. Font .Size: =18; 
{On definit la police comme Times Roman} 
Printer. Canvas. Font. Name:='Times New Roman'; 

Cependant, un probleme se pose. Le programme initial se fondait sur la police systeme 10 
points par defaut et supposait qu'il y avait 60 lignes par page. Lorsque vous changez de police 
et de taille de police, notre ancien code ne fonctionnera plus parfaitement. Pour remedier a ce 
probleme, ajoutons quelques lignes de code qui calculent le nombre de lignes par page en fonc- 
tion de la taille de la police. Le code ci-apres, par exemple, ajoute 10 lignes a la taille de la 
police et calcule la variable LinesPerPage pour menager un espace entre les lignes lors du cal- 
cul de LineSpace : 

{On calcule le nb de lignes par page en fonction de la taille de police } 
LinesPerPage : =PHeight Div FontSize+10; 

{On calcule l'interligne en fonction du nb de lignes par page } 
LineSpace:=PHeight DIV LinesPerPage; 
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Les variables que nous avons ajoutees pour prendre en compte les changements sont FontSize 
et LinesPerPage. Ajoutez ces lignes au code du bouton Imprimer. Assurez-vous bien que le 
code resultant ressemble a celui du Listing 9.9. 



Listing 9.9 : Le code du bouton Imprimer 



procedure TForml .Button2Click(Sender: TObject); 
Var 

F : TextFile; 

TempStr, PageNum : String; 

Ct r , x , PHeight , LineSpace , LinesPerPage , FontSize : Integer ; 
begin 

Ctr:=1 ; 

{On ouvre le fichier texte a imprimer } 

AssignFile(F,Fname) ; 

Reset; 

if PrintDialogl . Execute then 
Begin 

{On commence 1' impression } 
Printer . BeginDoc ; 

{On recupere la taille de la page } 

PHeight :=Printer. PageHeight; 

{Taille de police a 18} 

Printer . Canvas . Font . Size : =1 8 ; 

{Type de polices a Times Roman} 

Printer. Canvas. Font. Name :=' Times New Roman'; 

{On calcule le nb de lignes par page en fonction de la police, en 
ajoutant 10 pour laisser un peu d'espace entre les lignes } 
LinesPerPage : =PHeight Div FontSize+10; 

{On calcule l'interligne en fonction du nb de lignes par page } 

LineSpace:=PHeight DIV LinesPerPage; 

{numero de la page a imprimer } 

PageNum : =IntToStr (Printer . PageNumber) ; 

{On met a jour le label avec le numero de page courant } 

Labell .Caption:= ' Impression de '+ Fname + ' Page ' + PageNum; 

While Not Eof Do 

begin 

{On lit une ligne de texte du fichier texte dans TempStr} 
Readln(F,TempStr) ; 

{On envoie le contenu de TempStr a 1 1 imprimante } 
Printer .Canvas .TextOut (0,x, TempStr) ; 

{On ajoute a x le nb de pixels necessaire a 1' impression de la ligne 
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suivante } 

x:=x+LineSpace; 

{Compte du nb de lignes imprimees } 
Ctr:=Ctr+1 ; 

{Si on a imprime LinesPerPage lignes, on commence une nouvelle page, 
on recupere le no de page et on recommence } 
If Ctr > LinesPerPage - 1 then 
begin 

Printer. NewPage; 

x:=0; 

Ctr:=0; 

PageNum: =IntToStr( Printer . PageNumber) ; 

Labell .Caption:=' Impression de '+ Fname + 1 Page 1 + PageNum; 

end; 
end; 

{On ferme le fichier texte et on imprime la tache } 

CloseFile; 

Printer. EndDoc; 

Labell .Caption:^ 1 Impression achevee! 1 + 1 Pages imprimees = '+ PageNum; 
end; 
end; 



final 



ip 



Ce programme imprime des fichiers texte en Times New Roman et en corps 18, calcule le 
nombre de lignes de texte qui peuvent etre imprimees par page et commence une nouvelle 
page en consequence. 

Cette technique vous permet de laisser l'utilisateur choisir la police au moyen d'une boite de 
dialogue Polices. Les informations de police proviennent de l'utilisateur et vous ne les codez 
plus "en dur" dans votre programme. Nous allons mettre une derniere touche a notre program- 
me en ajoutant la boite de dialogue Police pour que l'utilisateur puisse selectionner la police, 
la taille de la police, le style de la police, etc. Ajoutez un bouton Police. Nous allons egalement 
ajouter du code pour que le programme imprime le nombre de copie demande par l'utilisateur. 

Pour modifier les parametres de police, vous pouvez utiliser la propriete Fonte et ses proprietes 
pour obtenir des informations provenant de la boite de dialogue Police afin de les appliquer au 
canevas. Printer. Canvas . Font . Size : =FontDialog1 . Font .Size; definit la taille de la police. 
Printer. Canvas. Font. Name: = 'Times New Roman; definit la police comme etant du Times 
New Roman. Printer. Canvas. Font. Type : =FontDialog1 .Font. Type; definit le style (gras, 
italique...) donne par la boite de dialogue Police. 

Pour le nombre de copies, vous devez creer une boucle qui enserre le code d'impression et 
l'execute un nombre de fois egal au nombre de copies demande par l'utilisateur. Pour obtenir 
le nombre de copies demande par l'utilisateur, on utilise cette declaration: NumCopies: 
=PrintDialog1 . Le nombre de copies est stocke dans la variable NumCopies, pour un usage 
ulterieur. 
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Pour modifier notre programme, editez le code du bouton Imprimer pour qu'il ressemble a 
celui du Listing 9.10. Ajoutez un deuxieme libelle a la fiche, juste au-dessus de Labell . Exa- 
minez le code de pres, car certaines lignes ont ete deplacees pour que la boucle fonctionne. Les 
commentaires vous seront precieux. 

Listing 9.10 : Le bouton Imprimer contenant le code pour Police et N ombre de copies 



procedure TForml .Button2Click(Sender: TObject); 
Var 

F : TextFile; 

TempStr, PageNum : String; 

Ctr,x,PHeight,LineSpace,LinesPerPage,FontSize,CopyNum,NumCopies: 
Integer; 
begin 

if PrintDialogl . Execute then 
Begin 
Ctr:=1 ; 

AssignFile(F, Fname) ; 
NumCopies :=PrintDialog1 .Copies; 
for CopyNum:=1 to NumCopies do 
begin 

{Ouvre le fichier au debut } 
Reset ; 

{remet les compteurs a zero pour la passe suivante } 
x:=0;Ctr:=0; 

{debut de 1 ' impression } 

Printer . BeginDoc ; 

PHeight :=Pr inter. PageHeight ; 

Printer . Canvas . Font . Size : =Font Dialog 1 . Font . Size ; 

{Definit le nom de la police pris dans la boite de dialogue Police} 
Printer . Canvas . Font . Name : =Font Dialog 1 . Font . Name ; 

{Definit le style de la police pris dans la boite de dialogue Police } 
Printer . Canvas . Font . Style : =Font Dialog 1 . Font . Style ; 
{Calcul du nb de lignes par pages} 
LinesPerPage : =PHeight Div FontSize+10; 
{Calcul de 1 ' interligne} 
LineSpace:=PHeight DIV LinesPerPage; 
{Numero de la page a imprimer } 
PageNum :=IntToStr (Printer . PageNumber) ; 
{Mise a jour du label } 

Labell . Caption : = 1 Impression de '+ Fname + ' Page 1 + PageNum; 
While Not Eof Do 
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begin 
ReadlnfF.TempStr) ; 

Print er. Can vas .TextOut (0,x,TempStr) ; 

x:=x+LineSpace; 

Ctr:=Ctr+1 ; 

If Ctr > LinesPerPage - 1 then 
begin 

Printer. NewPage; 

x:=0; 

Ctr:=0; 

PageNum: =IntToStr( Printer . PageNumber) ; 

Labell .Caption:=' Impression de '+ Fname + 1 Page ' + PageNum; 

end; 
end; 

CloseFile; 
Printer . EndDoc ; 

Labell .Caption:='impression achevee! 1 + ' Pages imprimees = '+ 
PageNum; 

Label2.Caption:='Nombre de Copies = 1 + IntToStr(NumCopies) ; 
end; 
end; 
end; 



Figure 9.10) et les utilisent pour la tache d' impression. Cette tciche d' impression est executee 
le nombre defois specifie par V utilisateur dans la boite de dialogue Imprimer. 




348 DELPHI 3 



Vous pouvez en savoir plus sur les proprietes disponibles en vous reportant a l'aide en ligne. 
Lorsque vous aurez apporte toutes ces modifications au programme, il devrait ressembler a 
celui qui figure dans le Listing 9.11. 



Listing 9.11 : Les boites de dialogue Police et Impression 
unit Prndlg; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, Printers; 

type 

TForml = class (TForm) 
Buttonl : TButton; 
OpenDialogl : TOpenDialog; 
Button2: TButton; 
Labell : TLabel; 
PrintDialogl : TPrintDialog ; 
FontDialogl : TFontDialog; 
Button3: TButton; 
Label2: TLabel; 

procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure Button3Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 

implementation 

{$R * . DFM} 
Var 

Fname : String; 
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procedure TForml .Button1Click(Sender: TObject); 
begin 

if OpenDialogl . Execute then 
begin 

Fname:=OpenDialog1 .FileName; 
Labell .Caption:^ 1 Ready to print 1 + Fname; 
end; 
end; 



procedure TForml .Button2Click(Sender: TObject); 
Var 

F : TextFile; 

TempStr, PageNum : String; 

CtrjXjPHeightjLineSpacejLinesPerPagejFontSize.CopyNumjNumCopies: 
Integer; 
begin 

if PrintDialogl . Execute then 
Begin 
Ctr:=1 ; 

{Ouverture du fichier a imprimer } 
AssignFile(F, Fname) ; 

{Nombre de copies a imprimer pris dans la boite de dialogue Impression } 

NumCopies:=PrintDialog1 .Copies; 

{Boucle pour chaque copie a imprimer } 

for CopyNum:=1 to NumCopies do 

begin 

{Ouverture du fichier au debut } 
Reset; 

{Remise a zero des compteurs pour la passe suivante } 
x:=0;Ctr:=0; 

{Debut de 1' impression } 
Printer . BeginDoc ; 
{Hauteur de page } 
PHeight :=Printer. PageHeight ; 

{Taille de police prise dans la boite de dialogue Police } 
Printer . Canvas . Font . Size : =Font Dialog 1 . Font . Size ; 
{Norn de la police } 

Printer . Canvas . Font . Name : =Font Dialog 1 . Font . Name ; 
{Style de la police } 

Printer . Canvas . Font . Style : =FontDialog1 . Font . Style ; 
{calcul du nb de lignes par page } 
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Page 



LinesPerPage : =PHeight Div FontSize+10; 
{Calcul de l'interligne } 
LineSpace:=PHeight DIV LinesPerPage; 
{numero de la page imprimee } 
PageNum :=IntToStr (Printer . PageNumber) ; 
{mise a jour du label } 
Labell .Caption:=' Impression de '+ Fname + 
While Not Eof Do 
begin 
Readln(F,TempStr) ; 

Printer . Canvas . TextOut ( 0 , x , TempSt r ) ; 

x:=x+LineSpace; 

Ctr:=Ctr+1 ; 

If Ctr > LinesPerPage - 1 then 
begin 

Printer. NewPage; 

x:=0; 

Ctr:=0; 

PageNum: =IntToStr ( Printer . PageNumber) ; 
Labell .Caption:^ 1 Impression de '+ Fname + 

end; 
end; 
CloseFile; 
Printer . EndDoc ; 

Labell .Caption:=' Impression achevee! 
PageNum; 

Label2.Caption:=' Number of Copies = 
end; 
end; 
end; 

procedure TForml .Button3Click(Sender: TObject); 
begin 

FontDialogl .Execute; 

end; 



PageNum; 



Page ' + PageNum; 



+ 1 Pages imprimees = '+ 
+ IntToStr(NumCopies) ; 



end . 



Qnaliirn ^ e c °de du Listing 9.11 permet a V utilisateur de s'electionner un fichier a imprimer par le 
1 1 1 □ I L| 3d biais d'une boite de dialogue Ouvrir fichier de Windows. Le bouton Police permet la selection 
par I' utilisateur de la police par le biais de la boite de dialogue Police de Windows. Enfin, le 
bouton Imprimer fait apparaitre la boite de dialogue Impression de Windows, donnant ainsi 



LE PR*)GRAMMEUR 




Enlree/sorNe de fichiers et impression 



acces a toutes les fonctionnalites qui y figurent. Comme vous pouvez le voir, la plus grande 
partie du code se trouve dans Vevenement OnClick du bouton Imprimer. 

La fiche du programme definitif apparait Figure 9.11. 



Figure 9.11 

Le programme d' impression 
avec boites de dialogue 
Impression et Police. 



Zone graphique 



Divi. de taille 



Charger image 



Imprimer des cpphiques 

Vous avez imprime du texte en utilisant la methode traditionnelle et vous avez egalement 
envoye du texte par le biais de l'objet TPrinter. Mais qu'en est-il des representations 
graphiques ? Vous desirez peut-etre creer des logos, des graphiques et d'autres informations 
non textuelles. Dans cette partie, nous verrons comment imprimer pratiquement n'importe quel 
graphique. Vous n'etes en fait limite que par l'imprimante que vous utilisez. 

Envoyer des graphiques a l'imprimante n'est pas tres different d'envoyer des graphiques a 
l'ecran. Vous utilisez la propriete Canvas de l'objet TPrinter et ses proprietes et methodes 
pour dessiner ou disposer des graphiques sur le canevas. Vous pouvez en fait concevoir des 
graphiques en commencant par les envoyer a l'ecran. Lorsque vous aurez une bonne idee de 
leur aspect, il vous suffira de modifier le code pour envoyer le graphique a l'imprimante. 

Prenons un exemple. Le code ci-apres trace un cercle dans le coin superieur gauche de la fiche 
Forml : 

J begin 

{Definit une epaisseur de crayon de 5 pixels } 
Forml .Canvas. Pen. Width:=5; 

{Dessine une ellipse dont le coin superieur gauche est a 0,0 et le coin 
inferieur droit a 200,200} 

Forml .Canvas. Ellipse(0, 0, 200, 200); 

end; 

Le code suivant dessine le meme cercle, au meme emplacement sur le canevas de TPrinter et 
l'envoie a l'imprimante : 
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I begin 
{debut de la tache d 1 impression } 
Printer . BeginDoc ; 
{ Definit une epaisseur de crayon de 5 pixels } 
Printer . Canvas . Pen .Width : =5; 
{ Dessine une ellipse dont le coin superieur gauche est a 0,0 et le coin 
inferieur droit a 200,200} 
Printer. Canvas. Ellipse(0, 0, 200, 200); 
{fin et impression de la tache d ' impression } 
Printer. EndDoc; 
end; 

En ajoutant les lignes BeginDoc et EndDoc, et en transformant Forml en Printer pour pointer 
vers le canevas de rimprimante plutot que celui de la fiche, vous pouvez envoyer le meme gra- 
phique a rimprimante. Creons un petit programme comportant un bouton Ecran et un bouton 
Imprimante pour tester notre code. 

Vous pouvez envoyer presque aussi facilement un graphique vers rimprimante que vers 
1' ecran. 

Creons done un programme qui permette a l'utilisateur de selectionner un fichier graphique — 
bitmap (*.bmp) ou metafichier Windows (*.wmf) — dans une boite de dialogue Ouvrir. Ce 
graphique sera affiche a 1' ecran puis envoye a rimprimante. C'est chose facile avec Delphi. 
Vous utilisez un composant Image pour stacker le graphique a l'ecran et la methode CopyRect 
pour deplacer l'image vers le canevas de l'imprimante, qui envoie ensuite l'image a rimpri- 
mante. Dans ce programme, nous permettrons a l'utilisateur de selectionner un diviseur qui 
modifiera la taille de la sortie papier. On ajoute egalement du code pour que le graphique soit 
imprime au centre de la page. 

Commencons par creer la fiche qui apparait Figure 9.12, en utilisant les composants suivants : 

• 2 boutons 

• 1 composant image 

• 1 composant OpenDialog 

• 1 Panel 

• 2 Label 

• 1 composant SpinEdit pris dans l'onglet Exemples 

Creez un nouveau projet. Appelez-le PRINTPIC.DPR et appelez 1' unite PICPRINT.PAS. 
Referez-vous a la Figure 9.6 pour disposer les composants sur la fiche. Donnez a la fiche le 
titre Impression d 1 image. Modifiez les caption des boutons en Charger image et Imprimer. 
Ajoutez des filtres au composant OpenDialog pour qu'il contienne fichiers graphiques (.bmp 
et .wmf) et Tous (*.*). Dans le composant SpinEdit, definissez MinValue a 1 et MaxValue a 
10. Donnez pour caption Diviseur de taille a Labell et Zone graphique a Label2. Definissez 
comme True la propriete Imagel .Stretch pour que l'image soit redimensionnee de facon 
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Figure 9.12 

Lafiche du programme d' impression 
d'image. 



Zone graphique 



Divi. de taille 



Charger imagej 



,1 : '"""' mer I 



Note 



qu'elle entre dans la boite d'image lors de son chargement. Assurez-vous egalement que la pro- 
priete AutoSize est definie comme False. 

Lorsque vous placez la boite d'image sur la fiche, faites-en un carre de taille raisonnable et 
placez-la de sorte que ses proprietes Top et Left soient toutes deux a 0 dans I'Inspecteur 
d'objet. La boite se mettra en position. Ce positionnement est important. 

Pour charger l'image, executez la methode LoadFromFile pour la boite d'image placee sur la 
fiche. Donnez comme parametre pour la methode LoadFromFile le nom de fichier provenant 
de OpenDialog. L'image est alors chargee puis affichee. 



3 



If OpenDialogl .Execute then 

Imagel .Picture. LoadFromFile (OpenDialogl .FileName) ; 



Pour imprimer l'image, vous devez savoir ou se trouve le centre du canevas afin d'imprimer 
l'image au centre. Le code ci-apres recupere les coordonnees x, y du centre en divisant la hau- 
teur et la largeur de la page de l'imprimante par 2. Le resultat est stocke dans les variables Cen - 
terX et CenterY. 



{On cherche le centre du canevas } 
PHeight :=Printer. PageHeight ; 
PWidth : =Printer . PageWidth ; 
CenterX:=PWidth Div 2; 
CenterY: =PHeight Div 2; 

Vous calculez les coordonnees de positionnement en vous appuyant sur le diviseur entre par 
l'utilisateur. On commence par recuperer la valeur entree dans la propriete Value du compo- 
sant SpinEdit. Pour placer l'image, il faut connaitre les coordonnees x,y des positions Haut, 
Gauche et Bas, Droite. 

Les variables sont : 



Variable 


Position 


X1 


Gauche 
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Variable Position 

Y1 Haut 

X2 Droite 

Y2 Bas 



Le code ci-apres calcule la position du centre en utilisant le diviseur entre par l'utilisateur : 

{On calcule la position du centre avec le diviseur de taille fourni par 
l'utilisateur } 

SDiv:=SpinEdit1 .Value; 

X1 :=CenterX- (PWidth Div (SDiv*2)); 

Y1 :=CenterY- (PHeight Div (SDiv*2)); 

X2:=CenterX+(PWidth Div (SDiv*2)); 

Y2:=CenterY+(PHeight Div (SDiv*2)); 

Le diviseur est multiplie par deux. On divise ensuite la hauteur et la largeur par ce produit. Le 
resultat est soustrait ou ajoute aux valeurs CenterX et CenterY pour determiner la position du 
centre. Si l'utilisateur selectionne le diviseur par defaut (1), l'image est imprimee centree sur 
la page et occupe la page toute entiere. Si la page de rimprimante mesure 2000 pixels par 
2000 pixels, la position du centre est 1000,1000. En effet : 

X1 = 1000 - (2000 Div (1*2)) soit X1 = 1000 - 1000 soit 
X1 = 0 

Cela definit la position XI (gauche) a 0, qui est la position la plus a gauche sur la page : 

X2 = 1000 + (2000 Div (1*2)) soit X2 = 1000 + 1000 soit 
X2 = 2000 

Cela definit la position X2 (droite) a 2000, qui est la position la plus a droite sur la page : 

Dans ce cas, l'image occupe toute la page. En changeant le diviseur, l'utilisateur peut reduire 
la taille de l'image imprimee. Vous utilisez l'operateur Div pour les divisions car vous tra- 
vaillez avec des entiers et vous ne souhaitez pas vous occuper des restes de division. Avec cette 
formule, l'image est toujours imprimee au centre de la page, quel que soit le diviseur entre par 
l'utilisateur. 

Pour placer le graphique sur le canevas de rimprimante, vous devez utiliser la methode Copy - 
Rect, qui copie une zone rectangulaire d'un canevas vers un autre. 

procedure CopyRect (Dest : TRect; Canvas: TCanvas; Source: TRect); 

Les rectangles source et destination sont passes comme variables de type TRect. En l'occur- 
rence, le canevas source est celui de Forml . 

Vous placez la boite d'image en 0,0 car la declaration CopyRect prend l'image dans le canevas 
de la fiche, et pas directement dans la boite d'image. Si vous placez la boite d'image en 0,0 
dans la zone client de la fiche, vous n'avez pas a prendre en compte de decalages dans vos cal- 
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culs. Si vous deplacez la boite a image jusqu'a un nouvel emplacement sans calculer la valeur 
de decalage correspondante, vous risquez de perdre tout ou partie de 1' image car celle-ci se 
trouvera alors en dehors de la zone rectangulaire qui est copiee. 



Comme CopyRect prend deux variables de type TRect, vous devez declarer deux variables de 
ce type et y placer les donnees. Pour declarer les variables : 

BVar 
PrnRect, ImgRect : TRect; 

TRect est defini ainsi comme enregistrement dans l'unite Windows : 

TRect = record 
case Integer of 

0: (Left, Top, Right, Bottom: Integer); 
1: (TopLeft, BottomRight : TPoint); 

end; 

Vous lui fournissez quatre valeurs, puis vous utilisez la fonction Rect pour stacker les donnees 
dans les nouvelles variables. La fonction Rect prend les coordonnees XI , Yl ,X2, Y2 (ou Haut, 
Gauche, Droite, Bas) comme parametres et renvoie aux variables les donnees sous forme 
d' enregistrement TRect. Ainsi : 

{On stocke la taille du rectangle de canevas d' impression dans PrnRect} 
PrnRect:=Rect(X1 ,Y1 ,X2,Y2) ; 

{on place la taille du Rect de la boite d' image dans ImgRect} 
ImgRect :=Rect (0,0, Image 1 .Width, Image 1 .Height) ; 

Une fois que vous avez affecte les valeurs PrnRect et ImgRect, utilisez les variables dans la 
declaration de methode CopyRect pour copier l'image dans le canevas de l'imprimante : 

B{0n copie l'image de la boite d ' image au canevas de l'imprimante } 
Printer. Canvas. CopyRect(PrnRect,Form1 . Canvas , ImgRect ) ; 

A quelques details pres — vous devez aussi cacher le libelle qui marque la zone graphique lors- 
que le graphique est affiche et mettre a jour le volet en indiquant l'etat du programme — votre 
programme d' impression d' image est maintenant fonctionnel. Le Listing 9.12 montre le code 
complet du programme d'impression de graphique. Entrez le code aux emplacements adequats 
et testez le programme. 

Listing 9.12 Impression d'image 

8 unit Picprint; 
interface 
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uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
Dialogs, Printers, StdCtrls, ExtCtrls, Spin; 

type 

TForml = class (TForm) 
Buttonl : TButton; 
Button2: TButton; 
OpenDialogl : TOpenDialog; 
Imagel : TImage; 
SpinEditl : TSpinEdit; 
Panell : TPanel; 
Labell : TLabel; 
Label2: TLabel; 

procedure Button1Click(Sender: TObject); 

procedure Button2Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 
Var 

PHeight , PWidth : Integer; 



procedure TForml .Button1Click(Sender: TObject); 
Var 

PrnRect , ImgRect : TRect ; 

CenterX,CenterY,X1 ,Y1 ,X2,Y2,SDiv : Integer; 

begin 

Panell . Caption : = 1 Impression . . . ' ; 
Printer . BeginDoc ; 
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{On cherche le centre du canevas } 
PHeight :=Printer. PageHeight ; 
PWidth : =Printer . PageWidth ; 
CenterX:=PWidth Div 2; 
CenterY:=PHeight Div 2; 

{On calcule la position du centre en tenant compte du diviseur de taille } 

SDiv:=SpinEdit1 .Value; 

X1 :=CenterX- (PWidth Div (SDiv*2)); 

Y1 :=CenterY- (PHeight Div (SDiv*2)); 

X2:=CenterX+(PWidth Div (SDiv*2)); 

Y2:=CenterY+(PHeight Div (SDiv*2)); 

{On stocke la taille du rect de canevas d 1 impression dans PrnRect} 
PrnRect:=Rect(X1 ,Y1 ,X2,Y2) ; 

{On place le taille du rect de la boite d' image dans ImgRect} 
ImgRect :=Rect (0,0, Imagel .Width, Imagel .Height) ; 

{On copie 1' image de la boite d 1 image vers le canevas de 1 1 imprimante } 
Printer. Canvas. CopyRect( PrnRect, Forml .Canvas, ImgRect ) ; 
Printer. EndDoc; 

Panell .Caption:=' Impression achevee! 1 ; 

end; 

procedure TForml .Button2Click(Sender: TObject); 
begin 

{On charge un graphique dans la boite d'iamge de la fiche } 

If OpenDialogl . Execute then 

begin 

Label2. Visible :=False; 

Imagel . Picture. LoadFromFile (OpenDialogl .FileName) ; 

end; 

end; 



flnolijse 



end. 

Le code du Listing 9.12 permet a I ' utilisateur de selectionner unfichier graphique en aliquant 
sur le bouton Charger image. L'image est ajfichee sur la fiche dans le composant Image. Puis, 
on peut imprimer l'image en cliquant sur le bouton Imprimer. Dans ce cas, l'image est copi'ee 
a partir du canevas de la fiche et est envoy ee a V imprimante. 

Vous devez pouvoir lancer le programme, selectionner une image graphique et l'afficher a 
l'ecran. Vous pouvez selectionner un nombre de 1 a 10 comme diviseur de taille et imprimer 
l'image. Votre image est dimensionnee et centree sur la page si tout s'est deroule comme prevu. 
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Recapifulatif 

Lors de cette journee, nous avons presente les attributs de fichier et les methodes pour les lire 
et les modifier. Vous avez appris a manipuler des fichiers texte en ecrivant un editeur de texte 
simple. Nous avons ensuite approfondi la question pour creer un programme simple de base de 
donnees permettant de stacker des adresses en utilisant des fichiers types. Vous avez ensuite 
pu decouvrir les fichiers non types. Enfin, nous avons rapidement cite d'autres routines de ges- 
tion de fichiers et d'E/S. La question des manipulations de fichiers a ete traitee de facon aussi 
complete que possible. Les controles de base de donnees et d'autres fonctionnalites de Delphi 
peuvent parfois rendre superflu ce type d'acces aux donnees. Cependant, les sujets abordes ici 
peuvent fournir matiere a ecrire des programmes de conversion, des utilitaires d'importation 
ou votre propre editeur de texte specialise. Vous aurez forcement besoin un jour ou l'autre des 
notions que nous venons d'aborder. Quoi qu'il en soit, vous savez maintenant comment enre- 
gistrer, charger, lire et traiter des fichiers. 

Vous avez egalement pu apprendre les techniques d'impression de base, consistant a traiter le 
port de 1'imprimante comme un fichier et a utiliser des declarations writeln pour envoyer du 
texte a 1'imprimante. Vous avez pu ecrire un programme lisant un fichier texte dont chaque 
ligne est tour a tour envoyee a 1'imprimante. 

Vous avez egalement appris a effectuer la meme tache en utilisant cette fois l'objet TPrinter 
qui vous permet de modifier les polices, la taille des polices, etc. Vous avez pu voir comment 
utiliser les boites de dialogue Impression pour permettre a l'utilisateur de selectionner ses pro- 
pres options d'impression. Vous avez vu comment dessiner sur le canevas de 1'imprimante, 
comme si vous dessiniez sur l'ecran avant d'envoyer l'image a 1'imprimante. 

Enfin, vous avez appris a charger une image graphique a l'ecran et a l'envoyer a 1'imprimante. 
Bien que cette journee n'ait fait qu'effleurer le sujet de l'impression, vous pouvez en appliquer 
les enseignements dans vos futures applications. 

Vous devriez maintenant etre en mesure de manipuler aussi bien les fichiers que l'impression. 
Vous pouvez des lors creer des applications puissantes utilisant ces fonctionnalites essentielles. 

Atelier 

L' atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu 
de cette journee. La section Questions - Reponses propose des questions frequemment rencon- 
trees, ainsi que leurs reponses, la section Questionnaire vous pose des questions, dont vous 
trouverez les reponses en consultant 1' Annexe A, et les Exercices vous permettent de mettre en 
pratique ce que vous venez d'apprendre. Nous vous recommandons de lire et repondre a cha- 
cune de ces sections avant de passer a la suite ; elles constituent en effet un recapitulatif des 
points essentiels abordes lors de cette section. 
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Questions - Reponses 

Q Y a-t-il quelque chose de particulier a faire pour utiliser les noms longs de 
Windows 95 et NT ? 

R Non, les composants et fractions de Delphi 3 comportent en standard toutes les fonction- 
nalites requises pour la gestion des noms longs. lis sont a meme de traiter indifferemment 
des noms courts ou des noms longs, a fin de compatibilite ascendante. 

Q Que faut-il faire pour que les programmes reconnaissent le type de fichier auquel ils 
ont affaire ? 

R II n'y a rien a faire. Bien qu'il existe des standards sur la facon d'utiliser des extensions 
de fichier pour indiquer un type de fichier, ces standards ne sont pas toujours respectes. 
Vous devrez vous-meme determiner quel sera le formatage et la structure des fichiers a 
traiter et vous devrez faire de votre mieux pour verifier la validite des fichiers et gerer les 
erreurs qui peuvent survenir. Plus generalement, vous devez esperer que l'utilisateur 
choisira le bon fichier. 

Q J'ai essaye d'imprimer une icone en utilisant lTmpression d'image. J'ai reussi a la 
charger mais il n'a pas ete possible de la dimensionner ou de la centrer correctement 
sur le papier ou sur l'ecran. Pourquoi ? 

R A la difference d'un bitmap ou d'un metafichier, une icone n'est pas un graphique redi- 
mensionnable dans la boite d'image. L' icone s'affiche simplement dans le coin superieur 
gauche de la boite et s'imprime pareillement sur la page. Lorsque vous avez copie l'image 
rectangulaire de la boite d'image vers le canevas de l'imprimante, vous avez pris la taille 
de la boite d'image. L'icone n'utilise qu'une petite partie de cet espace. Le programme 
fonctionne correctement, le probleme est que vous ne pouvez voir la boite d'image qui 
contient l'icone. L'image change de taille et se deplace vers le centre lorsque vous speci- 
fiez des diviseurs plus grands. 

Q Comment savoir si ma tache d'impression est bien en train de s'imprimer ? 

R Utilisez la propriete Printing de l'objet TPrinter. Si Printing est defini comme True, 
la tache d'impression a ete appelee avec BeginDoc mais EndDoc n'a pas ete appele. Votre 
code pourra ressembler a ceci : 

B If Printer . Printing then 
{votre code ici} 

Q Comment interrompre une tache d'impression ? 

R En utilisant la methode Abort de l'objet TPrinter, vous pouvez ajouter du code a un bou- 
ton ou a votre programme pour interrompre une tache d'impression. La ligne de code sui- 
vante provoque l'interruption de la tache d'impression : 

Printer. Abort; 
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Questionnaire 

1 . Quelle est la difference entre les fichiers types et les fichiers non types ? 

2. Quelle procedure permet de deplacer le pointeur de fichier ? 

3. Quels types de fichiers pouvez-vous manipuler si vous utilisez des fichiers non types ? 

4. Est-il necessaire d'utiliser l'objet Printer pour envoyer du texte a rimprimante ? 

5 . Pour utiliser les fonctions d'impression, que devez-vous faire figurer dans la partie inter- 
face de votre programme ? 

6. Citez les deux methodes importantes permettant d'imprimer avec l'objet Printer. (Indice : 
la tache d'impression ne peut commencer ou s'achever sans elles). 

7. Dessiner sur le canevas de l'imprimante n'est pas tres different de dessiner sur le canevas 
d'une fiche. Vrai ou faux ? 

8. Quel code permet d'activer la boite de dialogue Proprietes ? 

9. Quelle methode permet de copier une image du canevas de la fiche vers le canevas de 
l'imprimante ? 

10. Comment imprimer un petit cercle ou une petite ellipse a l'aide de l'objet TPrinter ? 

Exercices 

1. Dans le programme de repertoire, ajoutez une fonctionnalite permettant de se deplacer 
jusqu'au premier ou au dernier enregistrement. 

2. Modifiez le programme d'impression d'image pour permettre a l'utilisateur de decider 
s'il souhaite imprimer l'image au centre, en haut a gauche ou en bas a droite de la page. 
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Delphi propose de nombreuses fonctions permettant de creer facilement des applications gra- 
phiques. Lors de cette journee, nous vous presenterons la base de la creation d' applications gra- 
phiques et vous montrerons comment utiliser des techniques graphiques et multimedias 
sophistiquees. 



Les elements graphiques 

Les programmeurs doivent comprendre comment afficher des images dans des applications ou 
comment manipuler des points, des formes, des lignes et des couleurs. Windows 95 et 
Windows NT offrent des fonctionnalites puissantes permettant a des applications graphiques 
de haut niveau de tirer parti des ressources systeme le plus efficacement possible. Delphi vous 
offre une gamme etendue de composants et de methodes cachant au developpeur une grande 
partie des details de 1' implementation systeme. C'est un plus pour celui qui decouvre les gra- 
phismes car il peut se concentrer sur leur moyen de fonctionnement au lieu de perdre son temps 
a apprendre la manipulation d'appels complexes au systeme d'exploitation. 

Coordonnees 

Vous savez sans doute ce que sont des coordonnees. Tous les composants visuels ont une pro- 
priete Top (haut) et une propriete Left (gauche). Les valeurs stockees dans ces proprietes deter- 
minent la position du composant sur la fiche. Autrement dit, le composant est place aux 
coordonnees X, Y, ou X est la propriete Left et Y la propriete Top. Les valeurs en X et Y (ou 
Left et Top) sont exprimees en pixels. Un pixel est la plus petite zone d'ecran manipulable. 

Propriete Canvas 

La propriete Canvas est la zone de dessin sur une fiche et sur d'autres composants graphiques ; 
elle permet au code Delphi de manipuler la zone de dessin en cours d'execution. L'une de ses 
principales caracteristiques est qu'elle est constitute de proprietes et de methodes facilitant la 
manipulation de graphiques dans Delphi. Toutes les manipulations formelles et les comptabi- 
lites diverses sont cachees dans 1' implementation de l'objet Canvas. 

La partie suivante presente les fonctions de base vous permettant d'effectuer des operations 
graphiques dans Delphi a l'aide de l'objet Canvas. 

Pixels 

D'un point de vue conceptuel, toutes les operations graphiques reviennent a definir la couleur 
des pixels de la surface de dessin. En Delphi, vous pouvez manipuler les pixels individuelle- 
ment. Aux debuts de l'informatique, un pixel etait soit active, soit desactive, il etait done noir 
ou blanc (ou vert ou ambre). Les pixels peuvent maintenant prendre une vaste gamme de cou- 
leurs. Leur couleur peut etre specifiee soit comme une couleur predefinie, telle que clBlue, soit 
comme un melange arbitraire des trois couleurs rouge, vert et bleu. 
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Pour acceder aux pixels d'une fiche, vous devez utiliser la propriete Canvas de la fiche et la 
propriete Pixels du Canvas. La propriete Pixels est un tableau a deux dimensions correspon- 
dant aux couleurs du Canvas . Pixels [ 1 0 , 20 ] correspond a la couleur du pixel situe a 10 pixels 
a droite et a 20 pixels en bas de l'origine. Vous traitez le tableau pixel comme toute autre 
propriete : pour modifier la couleur d'un pixel, affectez-lui une nouvelle valeur ; pour determi- 
ner sa couleur, lisez la valeur. 

UMIiser des pixels 

Dans l'exemple suivant, nous utilisons la propriete Pixels pour dessiner une courbe de sinus 
dans la fiche principale. Le seul composant de la fiche est un bouton qui dessine la courbe lors- 
qu'on clique dessus. Nous utilisons les parametres Width (largeur) et Height (hauteur) de la 
fiche afin que la courbe prenne place sur 70 % de la hauteur de la fiche et sur 1' ensemble de la 
longueur. Le code produisant cette courbe figure dans le Listing 10.1. La Figure 10.1 montre 
l'execution de l'application. 



Listing 10.1 : Dessiner une sinusoide avec des pixels 
unit unitSine; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls; 

type 

TForml = class (TForm) 
DrawSine: TButton; 

procedure DrawSineClick(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 



implementation 
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{$R * . DFM} 

procedure TForml .DrawSineClick(Sender: TObject); 



var 
X 
Y 
PX 
PY 



real; 
real; 
longint; 
longint; 
Half Height : longint; 
begin 

{ On determine la moitie inferieure de la fiche } 
HalfHeight := Forml . Height div 2; 
for PX:=0 to Forml .Width do 
BEGIN 

{On met a l'echelle X en fonction de 2 PI pour decrire une periode de sinus 
complete } 

X := PX * (2*PI/Form1 .Width) ; 

Y := sin(X); 

PY := trunc(0.7 * Y * HalfHeight) + HalfHeight; 

{On rend le pixel noir (0 d'intensite RVB) } 

Canvas. Pixels[PX,PY] := 0; 
END; 
end; 
end. 



Iijse 



Dans cette application, on commence par determiner la hauteur de la fiche afin d'echelonner 
correctement la sinuso'ide. Le compteur PX va ensuite de 0 a la largeur de la fiche, et une 
valeur Y est calculee en chaque point de la sinuso'ide. La coordonn'ee Y est multipliee par un 
facteur d'echelle afin que la courbe soit bien plac'ee sur la fiche. Le point est dessin'e en d'efi- 
nissant la propri'et'e Canvas. Pixel. 

Chaque canevas dispose d'un crayon imaginaire lui permettant de tracer des lignes et des for- 
mes. Pensez au crayon du canevas comme a un veritable crayon sur une feuille de papier. On 
peut deplacer ce crayon de deux facons. La premiere consiste a le deplacer en touchant le 
papier afin de laisser une marque. La deuxieme consiste a le lever, ce qui ne laisse pas de mar- 
ques. En outre, des attributs lui sont associes. Le crayon possede ainsi une couleur et une epais- 
seur de trait specifiques. Pour le deplacer sans dessiner, il suffit d'utiliser la methode MoveTo. 
La ligne de code ci-apres deplace le crayon jusqu'aux coordonnees 23,56. 

Forml . Canvas. MoveTo(23, 56) ; 
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Figure 10.1 

Le programme de sinuso'ide 
utilisant la propriete Pixels. 
La propriete Pen. 




Tracer des lignes 

Pour tracer une ligne droite allant de la position actuelle du crayon jusqu'a une autre position, 
il suffit d'utiliser la methode LineTo. LineTo n'a besoin que des coordonnees de la destination 
du crayon, et trace alors une ligne droite de la position actuelle jusqu'a la nouvelle. 

La procedure simple du Listing 10.2 utilise la propriete LineTo pour dessiner un joli motif. La 
Figure 10.2 vous montre le programme. 

Listing 10.2 : Un motif de lignes 



procedure TForml .DrawSineClick(Sender: TObject); 



var 




X 


: real; 


Y 


: real; 


PX 


:longint 


PY 


: longint 



Offset : longint; 
Half Height : longint; 
begin 

{ On determine les coordonnees de la moitie inferieure de la fiche } 
HalfHeight := Forml . Height div 2; 
For Offset := -10 to 10 do 
BEGIN 

PX := 0; 
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While PX 
BEGIN 
X 
Y 
PY 



< Forml .Width do 



flnolijse 



PX * (2*PI/Form1 .Width) ; 
sin(X) ; 

trunc(0.7 * Y * HalfHeight) 
+ HalfHeight + (Offset *10); 
IF (PX = 0) Then 

canvas. MoveTo(PX,PY) ; 
canvas . LineTO(PX, PY) ; 
PY := trunc(0.7 * Y * HalfHeight) + 

HalfHeight + ((Offset-1) *10); 
canvas . LineTO(PX, PY) ; 
PX := PX +15; 



END; 



END; 
end; 
end. 

Ce programme est presque identique a celui du trace de courbe sinus, a cecipres qu'ici nous 
cr'eons des interstices entre les points, que nous connectons ensuite avec des lignes. Lors de la 
premiere iteration (lorsque PX=0), on utilise la m'ethode MoveTo pour aller au premier point. 
II nous suffit ensuite d'utiliser MoveTo pour nous d'eplacer vers tous les points suivants. 



Figure 10.2 

Motif dessine a I'aide de 
LineTo et de MoveTo. 
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Dessiner des polqgones 

En plus du trace de lignes droites, le canevas dispose de methodes pour tracer des formes. Vous 
pouvez en tracer certaines, telles que des rectangles, en utilisant des methodes specifiques, 
mais vous pouvez en tracer d'autres en utilisant une serie de points. Ces formes sont appelees 
polygones. Delphi dispose de plusieurs methodes pour tracer des formes remplies. Voyons 
pour commencer les polygones contoures (nous verrons par la suite comment remplir des 
objets graphiques). On compte parmi les polygones usuels les triangles, les octogones ou les 
trapezoi'des. La Figure 10.3 vous montre quelques polygones usuels. 



Figure 103 

Quelques polygones 
courants. 




Carre Triangle Octogone Trapeze 



Quelques polygones usuels 



Nouveau 



Pour tracer un polygone, vous passez a la fonction PolyLine une serie de points qu'elle inter- 
connecte au moyen de lignes. 

Vous passez a la fonction PolyLine un tableau de point (c'est un concept qui doit vous sembler 
nouveau). Jusqu'ici, tout se faisait au moyen de coordonnees et vous passiez a la fonction 
LineTo des valeurs en X et Y. 

Delphi comporte un type TPoint, qui encapsule les valeurs en X et Y dans un enregistrement 
unique appel'e point. La f aeon la plus simple de cr'eer un point consiste a utiliser la fonction 
Point. Point prend une valeur X et une valeur Y et renvoie en enregistrement TPoint. Vous 
remarquerez que le premier et le dernier points ne sont pas forcement connectes, vous devez 
done en specifier un dernier identique au premier si vous souhaitez obtenir un polygone ferm'e. 
Ainsi, I'appel au PolyLine suivant trace un rectangle : 

Forml . Canvas. PolyLi- 
ne ([Point (10,10) , Point (100, 100) , Point (50,75) , Point (10,10) ] ) ; 

Vous pouvez etendre ce principe pour creer une procedure tracant un polygone symetrique 
compose d'un nombre arbitraire de cotes entre par l'utilisateur. Si l'utilisateur entre 8, la pro- 
cedure trace un octogone ; un 6 donne un hexagone. II suffit d'utiliser des principes simples de 
geometrie en placant les sommets sur un cercle. Le Listing 10.3 vous montre la source de ce 
programme. 

Listing 10.3 : Un polygone a n cotes 



B 



procedure TForml .DrawPolyClick(Sender: TObject); 
Sides : integer; 
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Count : integer; 

PolyArray : Array[0..15] of TPoint; 
begin 

Sides := strtoint (NumSides .Text) ; 

If Sides > 15 then Sides := 15; /* Le tableau ne contient que 15 points*/ 

For Count := 0 to Sides do 

BEGIN 

{On utilise les points d'un cercle. On choisit des sommets comme points} 
PolyArray[Count] := 

Point(TRUNC(SIN( (2*PI ) *COUNT/Sides ) * 30) +( Forml .Width div 2), 

TRUNC(C0S( (2*PI)*C0UNT/Sides)* 30) +( Forml . Height div 2)); 

END; 

{On connecte le dernier point au premier et on definit tous les } 
{points restants comme egaux au premier point } 
For Count := Sides+1 to 15 do 

PolyArray[Count] := PolyArray[0] ; 
{On dessine le polygone} 
Forml . Canvas. PolyLine(PolyArray) ; 



flnolus 



ip 



end; 

Cette procedure calcule des points r'egulierement espaces sur un cercle. Le nombre de points 
calcul'es depend du nombre de cotes selectionnes . Les points sont connect'es en utilisant la 
methode PolyLines sur le canevas. Pour fermer le polygone, il suffit de definir les points 
inutilis'es comme etant egaux au point de depart. La Figure 10.4 vous montre V application en 
pleine execution. 



Figure 10.4 

Un programme de trace 
de polygone a n cotes. 
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Modifier les affribufs de cragon 

Toutes les formes tracees jusqu'ici utilisaient le crayon par defaut. II est possible de changer la 
couleur, l'epaisseur de trait et le style du crayon. En Delphi, vous accedez au crayon par le biais 
du canevas, qui dispose d'une propriete Pen. Les principales proprietes par le crayon son 
Color, Width, Style et Mode. 

Color 

Vous pouvez definir la couleur du crayon en utilisant les memes methodes que pour la couleur 
de la fiche. Ainsi, pour definir comme bleue la couleur du crayon, procedez ainsi : 

Forml .Canvas. Pen. Color := clBlue; 
Vous pouvez egalement utiliser la ligne suivante : 

Forml .Canvas. Pen. Color := RGB(0,0,255) ; 
Pour afficher toutes les nuances de gris, utilisez la procedure suivante : 

I procedure TForml .DrawGreyClick(Sender: TObject); 
Count : Integer; 
begin 
For Count := 0 to 255 do 
BEGIN 
Forml .Canvas. Pen. Color := RGB(Count, Count, Count) ; 
Forml . Canvas. MoveTo(Count,0) ; 
Forml . Canvas. LineTo(Count, 100) ; 
end; 
end; 

Width et Style 

La propriete Width definit la largeur du crayon en pixels. La propriete Style donne au crayon 
des traces varies, tels que pointilles ou tirets. Les valeurs valides pour la propriete Style sont 
psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear et psInsideFrame. Si vous sou- 
haitez un crayon rouge, large de trois pixels et tracant en pointille, executez ce qui suit : 

code: 

Forml .Canvas. Pen. Color := clRed; 

Forml .Canvas . Pen .Width := 3; 

Forml .Canvas. Pen. Style := psDot; 
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Mode 

La propriete Mode du crayon lui permet d'interagir avec son environnement. Un mode pmNot, 
par exemple, fait tracer le crayon dans une couleur inverse de celle du fond (1' inverse de chaque 
bit par consequent). Le crayon utilise le mode pmCopy par defaut, lui faisant utiliser la couleur 
courante. Vous pouvez determiner la couleur du crayon en regardant la propriete color. 

La propriete Mode vous permet de faire des animations simples. Vous pouvez creer une anima- 
tion en redessinant une partie d'une image et en montrant les modifications au fur et a mesure. 
Le cerveau a alors l'illusion du mouvement. Pour des animations simples, vous pouvez utiliser 
les modes pmXor ou pmNotXor pour dessinerunobjet,puis l'enlever sans modifier le fond. Rap- 
pelez-vous que chaque pixel stocke une couleur sous forme d'une sequence de bits. Modifier 
un pixel en effectuant un Ou exclusif (XOR) sur le pixel courant change la couleur. L'operation 
XOR prend deux operandes considered comme des ensembles de bits et renvoie True si l'un des 
operandes est vrai (mais pas les deux). Proceder de meme une nouvelle fois remet le pixel dans 
sa couleur initiale. Les etapes suivantes vous montrent ce qu'il se passe. 

1 . Le pixel de fond a une valeur de 01 1001 1 . 

2. Vous effectuez un Ou exclusif de cette valeur avec 111 1000. 

3. Le nouveau pixel a une valeur de 100101 1 . 

Lorsque vous souhaitez effacer le pixel et refaire apparaitre le fond, il suffit de reprendre le 
meme procede : 

1 . Le pixel a actuellement pour valeur 100101 1 . 

2. Vous effectuez un Ou exclusif de cette valeur avec 111 1000. 

3. Vous obtenez 01 1001 1 comme resultat (la valeur initiale). 

L'avantage de cette methode est que vous n'avez pas besoin de stocker les informations con- 
cernant le fond, elles sont retrouvees automatiquement. L' inconvenient est que vous n'obtenez 
pas tout a fait l'image souhaitee car vous faites figurer les informations de fond dans la couleur 
du pixel. Dans la procedure du Listing 10.4, on utilise cette technique pour animer un triangle 
se deplacant sur une fiche. Vous pouvez voir une boite rouge sur la fiche, le triangle bleu pas- 
sera sur la boite sans la modifier. 

Listing 10.4 : Une animation simple utilisant la propriete Mode 

procedure TForml .SimpleAnimateClick(Sender: TObject); 
var 

Count : Integer; 
Pause : real ; 
J begin 

J { On dessine une boite } 

Forml .Canvas. Pen. mode := pmCopy; 
J Forml .Canvas . Pen .Color := clRed; 
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Forml .Canvas . Poly Line ( [ point (50, 1 0) , 

point(100,10) , 
point(100,200) , 
point(50,200) , 
point(50,10)]); 

{On definit le crayon } 

Forml .Canvas. Pen. Colon := clBlue; 

Forml .Canvas. Pen. mode := pmNotXor; 

For Count := 0 to (Forml. Width div 5) do 

BEGIN 

{On dessine le triangle } 

Forml . Canvas. PolyLine([point(Count*5, 100) , 

point (Count *5+10, 100) , 
point(Count*5+5,110) , 
point(Count*5, 100) ] ) ; 

Pause := Time; 

while (Time-Pause) < 1e-12 do; {nothing} 

{On efface le triangle } 

Forml . Canvas. PolyLine([point(Count*5, 100) , 

point(Count*5+10, 100) , 
point(Count*5+5,110) , 
point(Count*5, 100) ] ) ; 

end; {du While} 
end; 



Rnalus 



ip 



Le programme commence le dessin d'une boite rouge en definissant Vetat du crayon a pmCopy 
et la couleur a clRed. II deplace ensuite un triangle sur I'ecran en utilisant le mode de crayon 
pmNotXor. Le mode pmNotXor est semblable a XOR car il preserve Vintage de fond, mais il 
affiche la vraie couleur au premier plan. II est n'ecessaire de dessiner deuxfois le triangle a 
chacune de ses positions. La premiere fois, le triangle est dessine, la seconde fois, il est 
efface. 



Objet Pinceau et remplissage 



Au lieu de n'utiliser que les contours, vous pouvez remplir certains des objets proposes par 
Delphi. La propriete Brush determine la facon dont un objet est rempli. Les trois proprietes 
principales affectant le pinceau (brush) sont Color, Style et Bitmap. On peut utiliser le pinceau 
de deux facons differentes : avec les proprietes Color et Style ou avec la propriete Bitmap. 

Lorsque vous utilisez les proprietes Color et Style, la couleur du remplissage derive de la 
valeur de la propriete Color. La propriete Style definit le style du remplissage. De la meme 
facon que vous utilisez la methode PolyLine pour des objets contoures (non remplis), utilisez 
la methode Polygon pour dessiner des polygones remplis. 
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L'exemple de programme du Listing 10.5 montre tous les styles disponibles sur huit triangles 
differents. La Figure 10.5 vous montre ces triangles. 

Listing 10.5 : Trace de triangles remplis dans differents styles 

procedure Triangle ( Iteration : Integer); 
begin 

Forml .Canvas. Brush. Color := clBlue; 

Forml .Canvas . Polygon ( [Point (TRUNC( ( Iteration /9) * Forml .Width) ,50) , 

Point (TRUNC( (Iteration/8)*Form1 .Width) ,100) , 
Point ( TRUNC( ( ( Iteration -1 )/8)*Form1 .Width) , 100) , 
Point (TRUNC( (Iteration/9) *Form1 .Width) ,50)] ) ; 

end; 



procedure TForml .ShowTrianglesClick(Sender: TObject); 
begin 



Forml . Canvas . Brush . Style 
Triangle (1 ) ; 

Forml . Canvas . Brush . Style 
Triangle (2) ; 

Forml . Canvas . Brush . Style 
Triangle(3) ; 

Forml . Canvas . Brush . Style 
Triangle(4) ; 

Forml . Canvas . Brush . Style 
Triangle (5) ; 

Forml . Canvas . Brush . Style 
Triangle(6) ; 

Forml . Canvas . Brush . Style 
Triangle(7) ; 

Forml . Canvas . Brush . Style 
Triangle(8) ; 



bsSolid; 

bsClear; 

bsHorizontal; 

bsVertical; 

bsFDiagonal; 

bsBDiagonal; 

bsCross; 

bsDiagCross; 



end; 
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Vous cr'eez une procedure generique qui elabore des triangles dans une des huit regions de 
I'ecran. La procedure ShowTriangleClick definit divers parametres pour le pinceau et 
appelle la procedure de triangle en lui passant la position du triangle souhaite. 

Au lieu d'utiliser les styles et les couleurs predefinis pour le pinceau, utilisez un bitmap qui 
definit le motif utilise par le pinceau pour remplir des objets. 

Un bitmap de pinceau est un bitmap de 8 pixels par 8 pixels definissant le motif utilise pour 
remplir les objets. 

Pour utiliser un bitmap sur un pinceau, vous devez commencer par creer un bitmap, l'affecter, 
puis le liberer lorsque vous avez termine. La creation et la manipulation des bitmap sont 
detaillees un peu plus loin. 



Dessiner des rectangles remplis 

De meme que le type TPoint specifie un ensemble de coordonnees en Delphi, un type TRect 
precise une partie rectangulaire dans une fiche ou dans une zone graphique. Vous specifiez une 
region rectangulaire en donnant les coordonnees des coins superieur gauche et inferieur droit. 
La fonction Rect permet de creer un type TRect a partir de coordonnees. La plupart des fonc- 
tions manipulant les regions rectangulaires utilisent des types TRect comme parametres. Ainsi, 
vous utilisez la methode FillRect pour dessiner un rectangle rempli. La ligne de code ci-apres 
est un exemple d'utilisation de la methode FillRect. Remarquez que vous devez utiliser la 
fonction Rect pour specifier les coordonnees. 

Forml .Canvas. FillRect (Rect (20,20, 100, 100) ) ; 

En plus de la procedure FillRect, la procedure Rectangle dessine un rectangle en utilisant les 
attributs du pinceau courant pour le remplissage et ceux du crayon courant pour les contours. 
Cependant, cette procedure ne prend pas les memes parametres que la precedente. Les quatre 
points sont parametres, et Ton ne passe done pas un type TRect. La ligne de code ci-apres est 
un exemple d'utilisation de la procedure Rectangle. 

Forml .Canvas. Rectangle (20, 20, 100, 100) ; 
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Dessiner des cercles, des courbes e\ des ellipses 

Tout ce que vous avez pu tracer jusqu'ici etait constitue de points distincts ou de combinaisons 
de lignes droites. Le monde serait bien morne sans courbes ; Delphi propose differentes metho- 
des pour tracer des cercles, des ellipses, des arcs et des tranches. Un cercle est une ellipse dont 
le rayon est constant. 

Pour dessiner une ellipse en Delphi, il suffit de fournir la region rectangulaire du canevas dans 
laquelle elle sera contenue. Pour tracer un cercle parfait, il suffit d'executer ce qui suit : 

Forml .Canvas. Ellipse ( 100, 100,200,200) ; 

Pour dessiner une ellipse dont la largeur est superieure a la hauteur, executez ce qui suit : 

Forml .Canvas. Ellipse ( 100, 100,300,200) ; 

Pour ne dessiner qu'une portion d'ellipse, la procedure est un peu plus complexe. La methode 
prend huit parametres. Les quatre premiers sont necessaires au trace d'une ellipse complete. 
Les deux derniers (en fait quatre) sont les points indiquant le pourcentage de l'ellipse qui appa- 
raitra. lis representent les points d'arrivees des deux lignes partant de l'origine et definissant la 
portion de courbe a tracer. Ainsi, par exemple, la ligne ci-apres trace le quart de cercle qui 
apparait Figure 10.6. 

Forml . Canvas . Pie ( 1 00 , 1 00 , 200 , 200 , 1 00 , 1 00 , 1 00 , 200 ) ; 



Figure 10.6 

Un quart de cercle utilisant 
la methode pie. 




Un arc est en tous points semblable a une tranche, a cela pres qu'il n'est pas rempli. Le code 
ci-apres affiche un arc de meme longueur que la tranche tracee ci-avant. 

Forml .Canvas. Arc (100, 100,200,200,100, 100, 100,200) ; 
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OnPaint : pour redessiner une fenetre 

Autrefois, un programme graphique utilisait tout l'ecran et supposait que toute modification a 
l'ecran etait le fait des actions du programme lui-meme. Dans un environnement Windows 95 
ou Windows NT, de nombreuses applications peuvent s'executer simultanement sur un ecran. 
Que se passe-t-il alors si une fenetre est recouverte par une autre ou si elle est redimensionnee ? 
Le systeme peut garder une copie de l'ecran en memoire et effectuer en memoire les modifi- 
cations qui ne sont pas visibles. Cette methode serait tres couteuse en ressources, tout particu- 
lierement si de nombreuses applications s'executent. Au lieu de cela, le systeme d'exploitation 
previent l'application que quelque chose a change et c'est a l'application d'y remedier. Des 
qu'une mise a jour est necessaire, un evenement OnPaint survient. 

Delphi ne redessine que la partie du canevas qui a et'e affectee, ou invalid'ee . Lorsqu 'une partie 
d'unefiche est invalide, Delphi appelle la procedure sp'ecifi'ee dans le Gestionnaire d'evene- 
ments OnPaint, afin de redessiner la partie invalid'ee de lafiche. 

L'exemple du Listing 10.6 place dans le Gestionnaire d'evenements OnPaint un code qui des- 
sine un quart de cercle dans la fiche. II fait egalement apparaitre une boite d' edition affichant 
le nombre de fois ou la fiche a ete repeinte. 

Listing 10.6 : Demonstration du Gestionnaire d'evenements OnPaint 
unit unitOnPaint; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls; 

type 

TForml = class (TForm) 
NumRepaints: TEdit; 
procedure FormPaint (Sender : TObject); 
procedure FormCreate (Sender : TObject); 
private 

{ declarations privees } 
NumPaints : integer; 
public 

{ declarations publiques } 
end; 
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van 

Forml : TForml ; 
implementation 
{$R * . DFM} 

pnocedune TFonml .FonmPaint(Senden: TObject); 
begin 

NumPaints := NumPaints + 1; 

Fonml .Canvas. Pie (100, 100,200,200, 100, 100,100,200) ; 
NumRepaints .Text := IntToStr(NumPaints) ; 

end; 

procedure TForml .FormCreate(Sender: TObject); 
begin 

NumPaints := 0; 

end; 
end. 



flnolus 



ip 



Lorsque vous executez ce programme, vous pouvez voir le compteur d'iteration augmenter 
chaque fois que le gestionnaire OnPaint est appel'e. Cela est du au fait que la variable 
NumPaints est incr'ement'ee et qffichee a chaque appel au gestionnaire OnPaint. 



ComposanT TPoinTBox 



Tous les dessins que vous avez effectues jusqu'ici l'ont ete sur le canevas ou sur une fiche. II 
est souvent utile de confiner un graphique a une region rectangulaire d'une fiche. Delphi pro- 
pose un composant le permettant : TPaintBox. Faites l'exercice suivant : 

1 . Placez un composant TPaintBox sur une fiche. 

2. Placez un composant TButton sur une fiche. 

3. Ajoutez le code suivant dans l'evenement OnClick du bouton : 

PaintBoxl . canvas. Ellipse(0,0,2*PaintBox1 .Width , 2*PaintBox1 .Hei- 
ght); 

4. Compilez, puis executez 1' application. 

Que s'est-il passe ? Vous avez demande une ellipse mais Delphi n'a trace qu'un arc. En effet, 
l'ellipse est plus grande que le composant TPaintBox, qui est la seule zone dans laquelle Delphi 
peut dessiner. Le reste de l'ellipse a ete tronque. Imaginez la complexity d'une application qui 
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s'assurerait que rien n'est dessine en dehors d'une region donnee. Le composant TPaintBox 
s'en charge pour vous. Les coordonnees dans une TPaintBox sont relatives a la TPaintBox elle- 
meme, pas a la fiche. Cela signifie egalement que tant que le Gestionnaire d'evenements 
OnPaint est responsable du trace de la TPaintBox, vous pouvez deplacer l'image sur la fiche 
en modifiant les proprietes Top et Left de la TPaintBox. La TPaintBox utilise la propriete Ali - 
gn afin que l'image reste au sommet, sur la gauche, sur la droite ou au bas de la fiche. Cette 
propriete oblige egalement la TPaintBox a remplir la zone client de la fiche. 

Composanf TShape : moins de complexite 

Que faire si vous souhaitez manipuler des formes simples, sans pour autant vous preoccuper 
de gestion d'evenements pour contrer 1' invalidation ? Existe-t-il des controles qui simplifient 
les actions ? Oui. Le composant TShape encapsule dans ses methodes et proprietes la plupart 
des methodes de dessin. Le composant TShape a des proprietes representant son pinceau, son 
crayon et sa forme. Les formes que peut prendre le composant sont le cercle, 1' ellipse, le rec- 
tangle, le rectangle arrondi, le carre et le carre arrondi. Le grand avantage de TShape est que 
tout le code necessaire au trace et au reaffichage de l'objet est cache. 

Produire des images 

Les methodes et les composants graphiques conviennent parfaitement a la plupart des applica- 
tions, mais il arrive qu'un developpeur souhaite ajouter une image graphique predessinee a son 
application. Cela serait assez dur a realiser si Ton ne disposait que de composants graphiques. 
Prenons un exemple : les entreprises Bartlebooth, fabricants de puzzles, veulent placer la photo 
de leur fondateur sur tous les documents de l'entreprise. Obtenir ce resultat avec les methodes 
graphiques serait un vrai cauchemar. II vous suffit de prendre une photo de John Barnabooth 
et de la numeriser en utilisant un scanner. Le programme de numerisation stocke l'image dans 
un format particulier que Delphi peut comprendre et se contente d'afficher. Les methodes ne 
conviennent pas non plus si un artiste concoit une image dans un programme de dessin et sou- 
haite l'incorporer dans une application Delphi. 

Delphi prend en charge de maniere native quatre types d'images : les bitmap, les icones, les 
metafichiers et les metafichiers avances. Ces quatre types de fichiers stockent des images. La 
difference reside dans la facon dont les images sont stockees dans le fichier et dans les outils 
permettant de manipuler ces images et d'y acceder. Lorsque vous avez calcule la place prise 
en memoire pour stacker une image de l'ecran, vous avez du multiplier la profondeur de cou- 
leur (en bits) par la resolution. Un bitmap est une sorte de photographie instantanee de l'ecran 
et de toutes les informations qui lui sont associees. Un bitmap connait la couleur de chaque 
pixel de l'image, mais ne sait pas ce que l'image represente. Ainsi, si vous prenez un bitmap 
d'un carre rouge sur fond bleu, les seuls informations presentes dans le bitmap sont que tous 
les pixels sont bleus, sauf les pixels qui appartiennent au carre dont les sommets sont (10,10) 
dans le coin superieur droit et (100,100) dans le coin inferieur gauche, qui eux sont rouges. 
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Windows 3.1, Windows NT et Windows 95 ont edicts des formats de fichiers standard pour 
les bitmap. Les bitmap Windows sont des bitmap independants du materiel, ce qui signifie que 
les informations sont stockees de telle facon que n'importe quel ordinateur peut afficher l'ima- 
ge dans la resolution et avec le nombre de couleurs de sa definition. Cependant, cela ne veut 
pas dire que l'image a le meme aspect sur n'importe quel ordinateur. Le resultat sera bien 
meilleur sur un ecran acceptant une resolution de 1024 par 768 en couleurs 24 bits que sur un 
moniteur VGA standard. Le point a retenir est que les utilisateurs de ces deux ordinateurs pour- 
ront voir l'image. Ce standard permet au developpeur de ne pas se soucier de la signification 
de chaque octet de ses fichiers bitmap. 

Fort heureusement, les details du format de fichier bitmap sont encapsules dans le systeme 
d' exploitation et dans Delphi. Le moyen le plus facile d' afficher un bitmap en Delphi consiste 
a utiliser le composant TImage. Ce composant peut afficher differents types d'images graphi- 
ques. II peut charger un bitmap provenant d'un fichier, et lui servir de conteneur dans l'appli- 
cation. Vous pouvez ainsi distribuer l'application sans devoir inclure un fichier bitmap distinct 
dans le logiciel. 

Les icones sont en fait de tres petits bitmap. Elles appartiennent a une autre categorie car elles 
servent generalement a figurer un raccourci vers une application ou une vue reduite d'objet. De 
maniere interne, les icones sont stockees comme les bitmap. Les metafichiers et les metafi- 
chiers avances, en revanche, sont stockes de facon totalement differente. Un metafichier ne 
stocke pas des series de bits decrivant l'image, mais des informations indiquant la facon dont 
l'image a ete creee. 

Les metafichiers stockent la sequence de commandes de trace necessaire a la re-creation de 
l'image. 

Pour afficher une image en utilisant le composant TImage, placez un TImage sur une fiche et 
double-cliquez sur la propriete Picture. Une boite de dialogue apparait alors, vous permettant 
d'afficher, de charger et d'enregistrer un bitmap dans le composant. Cliquez sur Charger et 
choisissez n'importe quel fichier .pico, .bmp, .emf ou .wmf valide. Le bitmap ou le metafichier 
que vous avez choisi est alors affiche dans le composant TImage. 

ENrer et redimensionner des images 

Par defaut, une image est affichee dans sa resolution d'origine, et vous n'en voyez que la partie 
qui est affichee dans le composant TImage . Deux proprietes importantes affectent la facon dont 
une image apparait dans un TImage. La propriete Autosize fait que la taille du composant cor- 
respond aux dimensions de l'image. En definissant comme True la propriete Stretch (etire- 
ment) du composant, vous obligez l'image a prendre les dimensions du composant. Si vous 
definissez comme False les proprietes Stretch et Autosize, l'image est par defaut centree 
dans le composant. Pour obliger l'image a s' afficher dans le coin superieur gauche du compo- 
sant, definissez comme False la propriete Center. 
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Charger en cours d'execuNon une image provenant 
dun fichier 

Vous avez vu comment utiliser le composant TImage pour afficher un bitmap, un metafichier 
ou une icone en declarant 1' image au moment de la conception de votre application. Vous pou- 
vez egalement charger un bitmap provenant d'un fichier en cours d'execution a l'aide de la 
methode LoadFromFile. La ligne qui suit charge le bitmap d' installation de Windows 95 dans 
votre composant d'image : 

Imagel . Picture . LoadFromFile ( 'C: \WIN95\SETUP.BMP 1 ) ; 

Remarquez que la methode opere sur la propriete Picture du composant d'image et non sur le 
composant lui-meme. L'image utilise la plupart de ses proprietes pour decrire la facon dont elle 
interagit avec l'application. La propriete Picture contient des informations sur l'image elle- 
meme, vous devez done charger l'image dans cette propriete. 

Creer son propre bitmap 

Nous vous avons montre precedemment comment dessiner sur le canevas d'une fiche et d'une 
Paintbox. Est-il possible de dessiner sur le canevas d'un bitmap ? La reponse est oui. En Del- 
phian objet TBitmap possede un canevas que vous pouvez manipuler comme le canevas d'une 
TPaintBox ou d'une TForm. Lorsque vous dessinez sur un bitmap, il n'est pas necessaire de 
vous soucier des evenements OnPaint pour reafficher la scene en cas d'invalidation. II vous 
suffit de recharger le bitmap qui est en memoire. L' inconvenient du bitmap est qu'il necessite 
plus de ressources systeme car il est stocke en memoire. En Delphi, un bitmap seul est limite 
car il est difficile de l'afficher. Cela vient du fait que le bitmap n'est pas lui-meme un compo- 
sant et ne peut done se "reparer" lui-meme si quelque chose s'y inscrit. Cependant, si vous uti- 
lisez un bitmap en association avec un composant d'image qui l'affiche, ce composant image 
repond automatiquement a son propre evenement OnPaint en redessinant le bitmap chaque fois 
que e'est necessaire. 

Creer entitlement un bitmap 

Pour creer un nouveau bitmap, vous devez declarer une variable de type TBitmap et utiliser la 
methode Create comme constructeur pour allouer de l'espace au bitmap. 

MyBitmap : TBitmap; 

9 BEGIN 

MyBitmap := TBitmap. Create; 

Pour l'instant, le bitmap a ete cree mais il est encore vide. II convient maintenant de definir ses 
dimensions. Utilisez pour cela les proprietes Height et Width : 
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MyBitmap. Height : = 100; 
MyBitmap. Width := 200; 



Avant de dessiner le bitmap, ajoutez-lui quelques graphiques (ici, une ligne diagonale). 



B 



MyBitmap. Canvas .MoveTo( 200, 100) ; 
MyBitmap. Canvas. LineTo(0,0) ; 



Pour afficher un bitmap, vous pouvez utiliser la methode Draw qui en copie un sur un canevas. 
Toute autre manipulation du bitmap s'effectue en memoire. Pour dessiner le bitmap sur Forml 
aux coordonnees 100,100, utilisez la ligne suivante : 

Forml .Canvas. Draw (100, 100, MyBitmap) ; 

Lorsque vous avez termine avec le bitmap, vous devez liberer ses ressources systeme a l'aide 
de la methode Free : 

MyBitmap. Free; 

Une methode pour afficher le bitmap consiste a definir celui que vous avez cree comme 1' ima- 
ge d'un composant d'image : 

Imagel .Picture. Graphic := MyBitmap; 

L'un des avantages de cette methode est que vous n'avez plus a vous soucier d'une eventuelle 
invalidation de 1' image car le composant se charge de son reaffichage. 

Enregislrer un bitmap dans un fichier 

Vous pouvez non seulement charger ou manipuler des bitmap, mais aussi les enregistrer dans 
un fichier. Pour sauvegarder le bitmap, utilisez simplement la methode SaveToFile . 

My bitmap. SaveToFile ('C:\Perso\MyBitmap. BMP') ; 

Un programme simple uNlisant des images 

Dans cet exemple, vous utilisez les fonctions graphiques de Delphi pour creer un programme 
qui manipule les bitmap. Un utilisateur charge un bitmap dans le programme, clique sur le bou- 
ton Melanger bitmap, et cree ainsi un nouveau bitmap qui est construit en melangeant aleatoi- 
rement des pieces du precedent. La Figure 10.7 montre le programme en action. 
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Figure 10.7 

Le programme de melange 
a" images. 




Le Listing 10.7 montre le source de l'unite mixup. 

Listing 10.7 : Le programme Mixup 
unit unitMixup; 
interface 
uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls, Menus, ExtCtrls; 

type 

TForml = class (TForm) 
Orig: TImage; 
Newlmage: TImage; 
OpenDialogl : TOpenDialog; 
SaveDialogl : TSaveDialog; 
MainMenul : TMainMenu; 
Filel : TMenuItem; 
Savel : TMenuItem; 
0pen1 : TMenuItem; 
Exitl : TMenuItem; 
Mixup: TButton; 

procedure Exit1Click(Sender: TObject); 
procedure 0pen1Click(Sender: TObject); 
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procedure MixupClick(Sender: TObject); 

procedure Save1Click(Sender: TObject); 
private 

{ declarations priees } 

NewBitmap : TBitmap; {Bitmap to create} 

ImageSet : Boolean; 
public 

{ declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .Exit1Click(Sender: TObject); 
begin 

Application .Terminate; 
end; 

procedure TForml .0pen1Click(Sender: TObject); 
begin 

if OpenDialogl . Execute then 
Begin 

Orig . Picture . LoadFromFile (OpenDialogl . FileName ) ; 
End; 
end; 

procedure TForml .MixupClick(Sender: TObject); 

{ Divise le bitmap initial en 16 morceaux. Cree un} 

{ nouveau bitmap en selectionnant de fagon aleatoire un des 16} 

{ morceaux et ce pour chaque morceau du nouveau bitmap } 



Var 

NewBitmap 

X,Y,NewX,NewY 

ChunkX.ChunkY 



TBitmap; {Bitmap a creer } 

integer; {utiliser pour indexer les pieces } 

integer; {dimensions X et Y de chaque piece } 



begin 
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{libere Bitmap pour en charger un nouveau } 
if ImageSet then 
NewBitmap.Free; 

{On alloue des ressources pour un nouveau bitmap } 
NewBitmap := TBitmap. Create; 

{les dimensions sont celles de 1' original } 

NewBitmap. Height := Orig . Picture . Bitmap . Height ; 
NewBitmap .Width := Orig . Picture . Bitmap .Width ; 
Newlmage. Stretch := true; 

{On calcule les dimensions de chaque section } 
ChunkX := NewBitmap .Width div 4; 
ChunkY := NewBitmap . Height div 4; 

{On construit le nouveau bitmap } 
For X := 0 to 3 do 
For Y := 0 to 3 do 
BEGIN 

NewX : = random(3) ; 
NewY := random(3) ; 
NewBitmap . canvas . CopyRect ( 

Rect(X*ChunkX,Y*ChunkY, (X+1 )*ChunkX, (Y+1 ) *ChunkY) , 
Orig . Picture . Bitmap . Canvas , 
Rect(NewX*ChunkX,NewY*ChunkY, 

(NewX+1 )*ChunkX, (NewY+1 )*ChunkY) ) ; 
END; {For Y} 

{on affiche le nouveau bitmap } 
Newlmage. Picture. Graphic := NewBitmap; 
end; 

procedure TForml .Save1Click(Sender: TObject); 

{On utilise la boite de dialogue Enregistrer usuelle pour enregistrer 

bitmap } 

begin 

if SaveDialogl .Execute then 
Begin 

Newlmage . Picture . SaveToFile (SaveDialogl . FileName ) ; 
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End; {if} 
end; {Procedure} 

procedure TForml .FormCreate(Sender: TObject); 
begin 

ImageSet := False; 

end; 
end. 

Examinez le fonctionnement de ce programme. On commence par utiliser les composants 
suivants : 

Deux composants d'image permettant d'afficher Vimage initiale et I'image melangee. 
Un composant OpenDialog pour acceder a la boite de dialogue usuelle Ouvrir. 
Un composant SaveDialog pour acceder a la boite de dialogue usuelle Enregistrer. 
Un menu et un bouton standard pour d'eclencher des evenements. 



La Figure 10.8 montre la disposition des divers composants. 



| ^ On s'eclate avec les bitmaps 



Figure 10.8 

Disposition des composants 
de Mixup. 




Lorsque vous selectionnez l'option FichierlOuvrir dans le menu, le programme affiche la boite 
de dialogue Ouvrir usuelle. En choisissant OK, le programme charge le fichier de bitmap que 
vous avez selectionne dans le composant d'image Orig, a l'aide du code suivant : 

Orig . Picture . LoadFromFile (OpenDialog! . FileName ) ; 
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Ensuite, vous cliquez sur le bouton Melanger les bitmap cela invoque la procedure MixupBit - 
mapClick qui melange le bitmap. Les etapes qui permettent de construire un nouveau bitmap 
et de prendre des morceaux de facon aleatoire dans le bitmap initial sont les suivantes : 

1 . Vous liberez d'eventuels bitmap existants puis construisez un nouveau bitmap en execu- 
tant la methode Create sur un objet bitmap de cette facon : 

NewBitmap := TBitmap. Create; 

2. Definissez les dimensions du bitmap pour qu'elles soient egales a celles de 1' image ini- 
tiale. Vous pouvez remarquer qu'on utilise Picture . Bitmap au lieu de Picture. Graphic 
pour obtenir ces dimensions. 

B NewBitmap. Height := Orig. Picture. Bitmap. Height; 
NewBitmap. Width := Orig. Picture. Bitmap. Width; 

3. Lorsque le bitmap initial est divise en 16 morceaux et que le nouveau bitmap est assem- 
ble, vous devez connaitre la taille de chaque morceau. On calcule une valeur entiere pour 
quatre morceaux dans chaque direction. La perte eventuelle de trois bits par partie est ac- 
ceptable (ainsi, si le bitmap est large de 43 pixels, ChunkX ne fera que 10 pixels). 

BChunkX := NewBitmap .Width div 4; 
ChunkY := NewBitmap . Height div 4; 

4. Chaque secteur est ainsi parcouru et vous selectionnez une piece aleatoire que vous pla- 
cez dans le nouveau bitmap. Pour cela, construisez une boucle imbriquee qui choisit les 
differents morceaux du bitmap a creer. Vous selectionnez un morceau aleatoire dans le 
bitmap initial en utilisant la fonction random qui donne des coordonnees X et Y aleatoires. 
Vous pouvez dessiner un bitmap en utilisant une fonction de canevas quelconque. Une de 
ces fonctions est CopyRect, elle copie une region rectangulaire d'un canevas sur une re- 
gion rectangulaire d'un autre canevas. 

I For X := 0 to 3 do 
For Y := 0 to 3 do 
BEGIN 
NewX := random(3); 
NewY := random(3) ; 
NewBitmap . canvas . CopyRect ( 
Rect(X*ChunkX,Y*ChunkY, (X+1 )*ChunkX, (Y+1 ) *ChunkY) , 
Orig . Picture . Bitmap . Canvas , 
Rect(NewX*ChunkX,NewY*ChunkY, 
(NewX+1 )*ChunkX, (NewY+1 )*ChunkY) ) ; 
END; {For Y} 
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5. Lorsque le programme cree le nouveau bitmap, il l'affiche en definissant la propriete 
Picture . Graphic de la nouvelle image comme etant egale au bitmap, a l'aide de la ligne 
de code suivante : 

Newlmage. Picture. Graphic := NewBitmap; 

Pour enregistrer 1' image, le programme utilise la boite de dialogue Enregistrer usuelle lorsque 
vous selectionnez FichierlEnregistrer dans le menu. Si vous donnez un fichier valide, le pro- 
gramme utilise la methode SaveToFile sur le composant Newlmage, comme le montre le code 
suivant : 

Newlmage . Picture . SaveToFile (SaveDialogl . FileName) ; 



Nulfimedia et animation 

Qu'est-ce que le multimedia ? Pour simplifier, les ordinateurs actuels peuvent exprimer 
1'information par un autre medium que de simples images fixes sur un ecran. Nous pouvons 
visualiser de veritables videos et ecouter des sons. L'utilisateur est toujours etonne de pouvoir 
entendre un discours ou visionner un clip video. 

Delphi fournit des composants et des appels API qui rendent la programmation multimedia 
facile. 



Pour commencer : utiliser des sons dans les 
applications 

II existe bien des f aeons de lire un son dans une application. Dans cette partie, nous verrons un 
moyen tres simple d'utilisation du multimedia dans Delphi, avec l'appel API PlaySound ( ) . 
L'appel API PlaySound ( ) peut lire des sons provenant de differentes sources en employant 
diverses options. Vous pouvez utiliser cet appel pour lire un fichier WAV ou pour lire un des 
sons systeme par defaut. Vous disposez aussi de nombreuses options affectant la maniere dont 
le son interagit avec votre application. Ainsi, vous pouvez lire un son et suspendre 1' execution 
du programme jusqu'a son achievement, ou vous pouvez lire un son et continuer a executer 
d'autres commandes Delphi alors que sa lecture se poursuit. 

Commencons avec un exemple simple. Creons une nouvelle application et ajoutons un unique 
bouton sur la fiche principale. Dans l'unite de la fiche principale, deux etapes sont necessaires 
pour lire un son. Tout d'abord, l'unite mmsystem doit etre ajoutee dans une clause uses de la 
partie implementation de l'unite. Ensuite, l'appel API PlaySound doit etre ajoute au Gestion- 
naire d'evenements OnClick du composant visuel TButton. Pour notre premier exemple, nous 
allons nous contenter de lire un des fichiers WAV fournis avec Windows 95. Vous specifiez 
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egalement que le son doit etre joue de fa9on synchrone, ce qui signifie que l'application est 
suspendue jusqu'a la fin de la lecture du fichier son. Le code de cette unite figure dans le 
Listing 10.8. 



Listing 10.8 : Un son dans une application Delphi avec VappelAPI PlaySoundQ 
unit multl ; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls; 

type 

TForml = class (TForm) 
Buttonl : TButton; 

procedure Button1Click(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 

{Remarque : il faut inclure mmsystem pour que le programme fonctionne} 
uses mmsystem; 

{$R * . DFM} 



procedure TForml .Button1Click(Sender: TObject); 
begin 

{Remplacez C:\WIN95 par 1 1 emplacement de votre repertoire Windows 95 } 
PlaySound( 'C: \WIN95\MEDIA\The Microsoft Sound', 0, SND_SYNC); 

end; 

Dans cet exemple, on se contente de lire le fichier son se trouvant dans le sous-repertoire 
C:\WIN95\MEDIA appele "The Microsoft Sound". Le son est joue de facon synchrone, c'est- 
a-dire que le programme est suspendu jusqu'a la fin de la lecture. 
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Les trois parametres pris par l'appel API PlaySound sont les suivants : 

• Le parametre 1 est un parametre de variante qui peut etre un nom de fichier, une adresse 
memoire ou un evenement systeme. 

• Le parametre 2 est utilise dans des occasions speciales, lorsque le son est stocke dans un 
fichier de ressources. Cette section ne traitera pas d'un tel cas, nous supposerons done que 
le parametre 2 est a 0. 

• Le parametre 3 specifie toutes les options, notamment la facon de jouer le son et le type de 
parametre que represente le parametre 1 . N'oubliez pas que 1' API Win32 n'est pas orientee 
objet, il ne peut done y avoir de formes multiples d'un appel qui detecterait automatique- 
ment le type de donnees contenues dans le premier parametre. Les constantes utilisees pour 
le parametre 3 sont definies dans l'unite mmsystem. Des operateurs logiques ou des opera- 
tions sur les bits peuvent etre utilises pour combiner plusieurs options. Ainsi, l'appel ci- 
apres joue "The Microsoft Sound" de facon asynchrone (permettant la poursuite de 
l'execution pendant la lecture du son) et continue a jouer le son jusqu'a ce qu'un autre 
appel a PlaySound soit effectue. 

PlaySound( 'C: \WIN95\MEDIA\The Microsoft Sound 1 , 0, SND_ASYNC or 
SND_L00P) ; 

Les evenements systeme sont des sons predefinis qui surviennent lorsqu'un programme ou le 
systeme d' exploitation desirent faire passer un message clair a l'utilisateur. Par exemple, pour 
jouer le son qui retentit lors du demarrage du systeme, vous pouvez faire : 

PlaySound ( 1 SystemStart ' , 0, SND_ASYNC OR SND_N0DEFAULT) ; 

Si vous souhaitez jouer un son regulierement et ne voulez pas acceder chaque fois au disque, 
il est possible de jouer un son stocke en memoire. Ce n'est generalement pas necessaire car le 
systeme d' exploitation se charge tres bien de gerer un cache disque. L'avantage de cette metho- 
de est que votre utilisateur n'a pas acces au fichier (ainsi, vous empechez quiconque de repi- 
quer votre son). 



Differed types de fichiers mulNmedias 

L'API PlaySound utilisait un fichier particulier appele fichier wav (de wave, onde en anglais). 
Vous saviez qu'un fichier wav pouvait stocker un son, mais comment fait-il exactement ? En 
stockant une representation numerique de la frequence et du volume sur la longueur du clip 
sonore. Le fichier wav ne sait pas ce que represente le son, et par consequent il doit stocker de 
nombreuses informations pour contenir un clip sonore. 

Un autre type de fichier multimedia est le fichier MIDI (Musical Instrument Digital Interface 
ou Interface musicale d' instrument musical). Un fichier MIDI stocke le son en enregistrant des 
donnees indiquant quels instruments jouent quelles notes sur quelle dur'ee. C'est V equivalent 
informatique d'une partition de chefd'orchestre.L'un des grands avantages des fichiers MIDI 
est leur taille tres reduite. Pour employer une analogic le fichier wav est au fichier MIDI ce 
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qu'unfichier bitmap est a un metafichier. Dans les deux cas, un format defichier comprend 
les donnees qu'il repr'esente et V autre se contente de contenir les donn'ees brutes qui sont en- 
suite transmises a un p'eripherique de sortie. 

Les fichiers Wav et MIDI ne peuvent stacker que des sons. Qu'en est-il de la video ou de 
1' animation ? II existe de nombreux formats de stockage de la video, AVI et MPEG par exem- 
ple. La plupart des fichiers video contiennent egalement une piste reservee au son, afin que le 
son et l'image soit synchronises. Maintenant que vous savez quels sont les formats de fichier 
utilises, vous devez savoir les utiliser dans Delphi. C'est la qu'intervient le composant visuel 
Media Player (lecteur multimedia), presente dans la partie suivante. 



Composant visuel Lecfeur multimedia 

La MCI {Media Control Interface, Interface de controle de support) est une interface de com- 
mande de haut niveau permettant de controler les fichiers multimedias, et qui est integree aux 
systemes d' exploitation Windows 95 et Windows NT. Delphi fournit un composant visuel qui 
encapsule l'interface de commande dans ce qui ressemble a un magnetoscope ou a un magne- 
tophone (voir Figure 10.9). 



Figure 10.9 

Le composant visuel 
Lecteur multimedia 
(IVlediaPlayerh 
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Le composant Media Player peut etre utilise de deux facons. II contient une interface utilisa- 
teur pouvant etre activee, permettant ainsi a l'utilisateur de manipuler des fonctions multime- 
dias a l'aide de boutons tels que "Lecture" , "Stop" , "Enregistrer" et " Arriere" . La seconde facon 
consiste a cacher le composant et a manipuler les fichiers multimedias en executant les metho- 
des du composant a partir d'un bloc de code. 

Commencons par creer une application simple mais puissante permettant a l'utilisateur de 
charger un fichier WAW, MIDI ou AVI, puis de le lire et de le manipuler a l'aide de l'interface 
du composant Media Player. L'application, assez simple, necessite trois composants : un 
composant TMainMenu, un composant TOpenDialog et un composant TMediaPlayer. Ajoutez 
la possibility de selectionner FichierlOuvrir dans le composant de menu. Les deux autres com- 
posants doivent etre places sur la fiche comme le montre la Figure 10.10. 
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Ajoutez le code ci-apres a l'evenement Fichier/Ouvrir du menu : 

procedure TForml .0pen1Click(Sender: TObject); 
begin 

{On definit le nom du fichier } 

MediaPlayerl . FileName := OpenDialogl . FileName; 
{On ouvre le fichier a l'aide de la methode open } 
MediaPlayerl .Open; 
end; 

Vous disposez maintenant d'une application pleinement fonctionnelle pouvant lire des fichiers 
audio et video au moyen d'une interface des plus conviviales. La Figure 10.11 montre cette 
application lisant un fichier AVI standard. 
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II est possible de modifier la facon dont le media player interagit avec les fichiers multimedias 
en modifiant les proprietes du composant. Lorsque un fichier AVI est lu, le composant affiche 
la video dans sa propre fenetre. Ce comportement peut etre change en modifiant la propriete 
Display du media player. Cette propriete Display indique au lecteur multimedia ou afficher 
le fichier video qu'il lit. La valeur peut etre n'importe quelle fiche ou composant derives d'un 
TWinControl. II existe egalement une propriete DisplayRect permettant de specifier la region 
de la nouvelle fenetre dans laquelle sera affichee le clip video. 

La propriete DisplayRect peut preter a confusion dans sa facon d'accepter ses parametres. On 
affecte le type TRect a la propriete DisplayRect et Ton pourrait penser que ce type represente 
la region dans laquelle l'image sera affichee. Ce n'est pas le cas, en fait le parametre haut- 
gauche indique bien ou placer l'image, mais le parametre bas-droite specifie la largeur et la 
hauteur. Ainsi, 

BMediaPlayeM . Display := Forml ; 
MediaPlayerl .DisplayRect := RECT (10,10, 200 , 200 ) ; 

indique que vous souhaitez afficher la video sur la Forml entre les coordonnees 10,10 et 
200,200 (et non pas 10,10 a 200,200). 

En utilisant ces deux proprietes, nous allons creer notre deuxieme application d'exemple, telle 
qu'elle figure dans le Listing 10.9. Cette application permet a l'utilisateur de charger un fichier 
video et de le jouer comme auparavant. Cependant, l'image sera maintenant affichee dans une 
partie de la fiche principale et non plus dans sa propre fenetre. De plus, vous ajoutez un bouton 
special permettant a l'utilisateur de capturer une image particuliere. L'image capturee est 
conservee meme si la lecture du clip video se poursuit. La Figure 10.12 montre un fichier AVI 
en train d'etre lu dans le cadre de gauche tandis qu'une image a ete capturee dans le cadre de 
droite. 
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Listing 10.9 : L' application de capture d 'image 
unit unitCapture; 
interface 
uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 

ExtCtrls, StdCtrls, Menus, MPlayer; 
type 

TForml = class (TForm) 

MediaPlayeM : TMediaPlayer; 
MainMenul : TMainMenu; 
Filel : TMenuItem; 
Openl : TMenuItem; 
Capture: TButton; 
PaintBoxl : TPaintBox; 
Exitl : TMenuItem; 
OpenDialogl : TOpenDialog; 
procedure 0pen1Click(Sender: TObject); 
procedure CaptureClick(Sender: TObject); 
procedure FormPaint (Sender : TObject); 
procedure Exit1Click(Sender: TObject); 
procedure FormCreate(Sender: TObject); 

procedure FormClose (Sender : TObject; var Action: TCloseAction) ; 
procedure PaintBox1Paint(Sender: TObject); 
private 

{ Declarations privees } 
ImgBitmap : TBitmap; 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 
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procedure TForml .0pen1Click(Sender: TObject); 

{on ouvre le fichier et on definit l'affichage sur forml} 

{on definit egalement la region sur laquelle afficher (10,10,210,210)} 

begin 

{On utilise le composant OpenDialog pour trouver un fichier video } 

if OpenDialogl .Execute then 

begin 

MediaPlayeM . FileName := OpenDialogl . FileName; 
MediaPlayerl .Open; 
MediaPlayeM . Display := Forml; 
MediaPlayerl .DisplayRect := RECT(10, 10,200,200) ; 
end; {if} 
end; {procedure} 

procedure TForml .CaptureClick(Sender: TObject); 

{lorsqu'on appuie sur le bouton de capture, on utilise la methode CopyRect } 

{pour copier 1' image dans un bitmap en memoire } 

begin 

ImgBitmap . Canvas . CopyRect ( Rect (0,0, 200 , 200 ) , 

Forml .Canvas, Rect (10, 10,210,210) ) ; 

PaintBoxl . Invalidate; 
end; {procedure} 

procedure TForml . FormPaint (Sender : TObject); 

{Lorsque la fiche est invalidee, on redessine le rectangle en arierre-plan } 
begin 

Canvas. FrameRect (Rect (8,8,212,212) ) ; 
end; {procedure} 

procedure TForml .Exit1Click(Sender: TObject); 
begin 

Application .terminate; 

end; 

procedure TForml .FormCreate(Sender: TObject); 

{lorsque la fiche est creee on alloue des ressources pour le } 

{bitmap et on definit la taille initiale. On efface egalement le bitmap.} 

begin 

ImgBitmap := Tbitmap. create; 
ImgBitmap. Height := 200; 
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ImgBitmap. Width := 200; 
ImgBitmap. Canvas. Rectangle (0,0, 200, 200) ; 
end; {procedure} 

procedure TForml .FormClose(Sender: TObject; var Action: TCloseAction) ; 
{A la fin, on nettoie en liberant le bitmap } 
begin 

ImgBitmap. Free; 
end; {procedure} 

procedure TForml .PaintBox1Paint(Sender: TObject); 
{lorsque la paintbox qui affiche 1' image capturee est invalidee,} 
{on copie le bitmap present en memoire dans la paintbox. 
{On evite ainsi de perdre 1' image } 
begin 

PaintBoxl . Canvas. CopyRect(Rect(0, 0,200, 200) , 

ImgBitmap. Canvas, Rect (0,0,200,200) ) ; 

end; {procedure} 
end. 

Pour charger lefichier, vous definissez une option Ouvrir dans le menu principal. Le Gestion- 
naire d'evenements, appel'e lorsque V utilisateur ouvre un nouveau fichier, charge le fichier, 
determine I'endroit oil sera affiche le clip video et active le composant media player. 

Pour determiner le fichier a ouvrir, utilisez le composant OpenDialog. Lorsque la methode 
execute est appliquee a ce composant, la boite de dialogue Ouvrir standard apparait et une 
valeur booleenne est renvoyee, indiquant si l'utilisateur a choisi "OK" ou "Annuler". Si l'uti- 
lisateur selectionne un fichier valide, on affecte a la propriete FileName du media player la pro- 
priete FileName du composant OpenDialog : 

MediaPlayerl . FileName := OpenDialogl . FileName ; 

Ensuite, on ouvre le fichier et on active le media player en appelant la methode Open : 

MediaPlayerl .Open; 

La derniere etape de la preparation du clip video consiste a specifier que vous souhaitez voir 
1' image apparaitre sur la Forml , et qu'elle reste circonscrite dans un rectangle bien defini. Cet- 
te precaution est necessaire afin que vous sachiez ou capturer l'image : 

B MediaPlayerl . Display := Forml; 
MediaPlayerl .DisplayRect := RECT(10, 10,200,200) ; 

Le programme utilise l'interface fournie avec le media player pour permettre a l'utilisateur de 
manipuler le fichier multimedia charge. II est ainsi possible d'effectuer des actions telles que 
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Lecture, Stop, Retour arriere, Avance rapide et Pause. L'application utilise cette interface pour 
controler le player. On ajoute cependant un bouton (Capture) qui prend l'image courante et la 
copie dans un bitmap residant en memoire. 

Pourquoi utiliser un bitmap ? Vous pourriez vous contenter de copier l'image ailleurs dans la 
fiche principale ou dans une paintbox. Cependant, si on deplacait une fenetre au-dessus de 
l'image capturee, et si on Ten retirait, l'image serait effacee. En copiant l'image dans un bit- 
map, vous la stockez dans une partie de la memoire que vous controlez totalement. 

L'usage d'un bitmap complique cependant un peu notre programme. Ou doit-on stocker ce 
bitmap ? Seules les procedures et les fonctions de la fiche ont besoin d'y acceder. Nous pou- 
vons done ajouter le bitmap a la partie Private de la declaration de classe de TForm. Bien qu'il 
soit reference dans la fiche, vous devez tout de meme appeler la methode Create et specifier 
ses dimensions lorsque la fiche est chargee. Ce code peut etre place dans le Gestionnaire d'eve- 
nements OnCreate de la fiche. De meme, vous devez proceder a un nettoyage final en suppri- 
mant le bitmap lorsque la fiche se ferme. Remarquez qu'en stockant l'image dans un bitmap, 
vous ne l'affichez pas dans la fiche. Placez un composant PaintBox sur la fiche et utilisez son 
evenement OnPaint pour copier le bitmap dans la PaintBox a chaque appel a l'evenement 
OnPaint. Le Gestionnaire d'evenements OnPaint est le suivant : 

procedure TForml .PaintBox1Paint(Sender: TObject); 
begin 

PaintBoxl . Canvas . CopyRect ( Rect (0, 0 , 200 , 200) , ImgBitmap 
Canvas, Rect (0,0, 200, 200) ) ; 
end; 

Ainsi, chaque fois que le systeme d' exploitation determine que l'image doit etre redessinee, il 
appelle la procedure PaintBoxlPaint pour le faire. 

Ufiliser les methodes pour controler le lecteur 
multimedia 

II arrive que vous souhaitiez utiliser des fonctions multimedias dans une application, sans pour 
autant afficher le composant lecteur multimedia. II vous suffit d'affecter False a la propriete 
Visible du composant media player, et d'utiliser toutes ses fonctions par le biais des methodes 
du composant. II existe des methodes correspondant a tous les boutons de l'interface du lecteur 
multimedia, ainsi que des methodes offrant des fonctions qui ne sont pas prises en charge par 
l'interface seule. C'est le cas, par exemple, de la methode Open , qui permet d'ouvrir un fichier. 

II est courant de cacher le composant media player lorsque vous souhaitez afficher un clip 
video dans une application mais ne voulez pas derouter l'utilisateur ou encombrer l'interface. 
Imaginez, par exemple, une application de livre de recettes. L'utilisateur pourrait cliquer sur 
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un bouton pour voir un clip video dans lequel un grand cuisinier prepare un plat. Dans ce cas, 
il serait inutile de faire figurer l'interface toute entiere, seul le clip video importe a l'utilisateur. 

Repondre aux evenements du Lecteur multimedia 

Bien que le composant Lecteur multimedia comporte de nombreuses proprietes et methodes, 
il compte relativement peu d' evenements. Les evenements qui sont fournis permettent de 
s'immiscer dans l'interface utilisateur fournie et d'etre prevenu lorsqu'une tache multimedia 
s'acheve. II est ainsi possible d'executer un code specifique lorsque l'utilisateur clique sur l'un 
des boutons, et d'indiquer au lecteur multimedia s'il doit executer la tache demandee. 



Stockdpe des fichiers video 

mail D ans ^ es exemples precedents, vous avez vu comment utiliser des fichiers AVI dans vos appli- 
fCDU cations pour utiliser de la video. Mais qu'est-ce qu'unfichier video precisement, et comment 
fonctionne-t-il ? Le cerveau humain voit un mouvement dans une succession rapide d'images 
legerement modifiees. Dans une video, chaque image est legerement differente de la preceden- 
te. Pour que la video, ou ['animation, soitfluide, la vitesse id'eale se situe aux alentours de 30 
images par seconde. Pour une vitesse sup'erieure, la difference n'est guere perceptible et pour 
une vitesse inferieure, I'image semble sautiller. 

Faisons un petit calcul. Un bitmap plein ecranfait plusieurs centaines de kilo-octets . Si vous 
deviez stocker chaque image d'une video sous forme de bitmap, vous auriez besoin de capaci- 
t'es de stockage gigantesques . En utilisant cette methode, vous ne pourriez en effet stocker que 
72 secondes de video sur un CD-ROM... S'il n'existait que cette methode, toute application 
multimedia serait impraticable . La solution reside dans la compression. 

Plutot que de se lancer dans de longues explications mathematiques decrivant la compression 
video d'un format particulier (AVI ou MPEG par exemple), nous allons nous contenter de pre- 
senter, dans les grandes lignes, l'une des techniques mises a l'ceuvre. Dans certains dessins ani- 
mes japonais on voit I'image s'arreter alors que seule la bouche du personnage continue de 
bouger. Les animateurs ont vite compris qu'il est beaucoup plus facile de ne changer qu'une 
partie de la scene plutot que la totalite de la scene. La compression video s'appuie sur un prin- 
cipe similaire. Lorsqu'une image est capturee, le materiel ou le logiciel de compression prend 
une decision : "Est-ce que je peux stocker cette image en utilisant moins de place en n'enregis- 
trant que les parties differentes de I'image precedente, ou est-ce que j'enregistre I'image dans 
son integralite ?". La plupart du temps, il est plus facile de n'enregistrer que les parties qui ont 
change. Cependant, dans certains cas, lorsque le plan change par exemple, la description des 
divers changements prendrait plus de place que le simple enregistrement de I'image elle- 
meme. Les techniques de stockage de video ont fait bien des progres. II est desormais possible 
de stocker un long metrage sur un CD-ROM standard. 
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Techniques d'animaNon en Delphi 

Lorsque vous utilisez des animations ou des graphiques en mouvement, il est important que le 
mouvement semble fluide. Malheureusement, creer une image en dessinant une forme, puis 
l'effacer pour en dessiner une autre, produit une animation dont le scintillement irrite la vue. 



Doubles Tampons uNlisanr les services Windows standard 

(nail U n double tampon est un ensemble de surfaces de dessin. Une surface est affich'ee et I'autre 
( CUU est utilisee comme surface de dessin. Lorsque le dessin est achev'e dans le tampon de dessin, 
les tampons permutent de telle sorte que celui qui etait auparavant cache est maintenant affi- 
| che, ou encore le tampon cache est rapidement copi'e dans le tampon d'affichage. 

II existe plusieurs methodes pour construire un double tampon en Delphi. Une d'elles consiste 
a creer un bitmap en memoire et a l'utiliser comme tampon temporaire. Dessinez l'image sur 
le bitmap et lors du dessin de chaque image, utilisez une methode CopyRect pour copier l'image 
bitmap dans le tampon d'affichage. 



Un cube virevolfanf 

Les principes de l'animation en Delphi maintenant assimiles, vous pouvez construire un exem- 
ple interactif . Cet exemple montrera qu'il est possible d'obtenir de beaux effets d' animation en 
Delphi sans pour autant utiliser les techniques graphiques accelerees disponibles dans OpenGL 
ou DirectX. Cette application affiche un cube dans une fiche. L'utilisateur peut definir la Vites- 
se de rotation du cube par rapport aux axes X, Y et Z. La Figure 10.13 vous montre l'applica- 
tion en action. 



Figure 10.13 

Le cube virevoltant. 




Cet exemple illustre les principes evoques dans cette section tout en introduisant quelques 
notions de graphisme en trois dimensions. La premiere etape de la creation du cube consiste a 
savoir comment dessiner chaque image. Le cube est compose de six faces et de huit points. 
Vous definissez la position de chaque point dans l'espace a trois dimensions en stockant une 
coordonnee (X, Y, Z) dans un enregistrement appele TDPoint (Point a Trois Dimensions). 
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Vous assurez le suivi de tous ces points en utilisant un tableau d'enregistrements. Ce tableau 
est defini de la maniere suivante : 

Pnts : array[1..8] of TDPoint; {Image initiale } 
Listing 10.10 : Un cube virevoltant 
unit unitSpinCube; 

^* ************************************************* * 

{* Le cube 3d en notation - Un exemple complet * 

{* d ' animation en Delphi. Cette application * 

{* affiche un cube en rotation. L ' utilisateur peut* 

{* ajuster la vitesse de rotation selon chaque * 

{* axe. *} 

^***************************************************y 

interface 



uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
ExtCtrls, StdCtrls; 

type 

TForml = class(TForm) 
ZRot: TScrollBar; 
YRot: TScrollBar; 
XRot: TScrollBar; 
ResetCube: TButton; 
Timerl : TTimer; 

Labell : TLabel; {Labels utilises pour faire des barres de defilement} 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 

procedure FormCreate(Sender: TObject); 

procedure FormClose (Sender : TObject; var Action: TCloseAction) ; 

procedure Timer1Timer(Sender: TObject); 

procedure ResetCubeClick(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
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end; 



var 

Forml : TForml ; 

implementation 

{$R * . DFM} 
Type 

{permet de creer une matrice de rotation } 
Matrix = array[0. .3,0. .3] of Extended; 
{Structure stockant un point 3D } 
TDPoint = record 
X : Extended; 
Y : Extended; 
Z : Extended; 
end; 

var 

DoubleBuffer : TBitmap; {on dessinera la-dedans avant d'effectuer un 
CopyRect} 

BlankBuffer : TBitmap; {Bitmap qui stocke le fond } 
PntsOut :array[1..8] of TDPoint; {points en rotation } 
TPPnts : array[1..8] of TPoint; {representation 2D des points} 
Pnts : array[1..8] of TDPoint; {Image initiale } 
XAng,YAng,ZAng : Extended; 

{On cree un tableau (ou matrice) qui definit la rotation selon des angles 
passes en radians. } 

procedure matrixRotate(var m:Matrix; 

x,y,z : Extended); 

var 

sinX, cosX, 
sinY, cosY, 

sinZ, cosZ: Extended; {on le stocke ici pour ne calculer qu'une fois } 
C1,C2 : integer; {pour les boucles } 

begin 

sinX := sin(x); {un peu de geometrie . . . } 



LE PR*)GRAMMEUR 




cosX := 
sinY := 
cosY := 
sinZ := 
cosZ := 
for C1 : 
for C2 
if C1 



cos(x) : 
sin(y): 
cos(y) : 
sin(z) : 
cos(z) : 
= 0 to 3 do 
:=0 to 3 do 
= C2 then 



{matrice Identite } 



M[C1,C2] : = 0 
else 
M[C1,C2] := 1; 



M[0,0] 


= (COSZ * 


cosY) ; 






M[0,1 ] 


= (COSZ * 


-sinY * 


-sinX + sinZ * 


cosX) ; 


M[0,2] 


= (COSZ * 


-sinY * 


cosX + sinZ * 


sinX) ; 


M[1 ,0] 


= (-sinZ 


* cosY) ; 






M[1,1] 


= (-sinZ 


* -sinY 


* -sinX + cosZ 


* cosX) ; 


M[1,2] 


= (-sinZ 


* -sinY 


* cosX + cosZ * 


sinX) ; 


M[2,0] 


= (sinY); 








M[2,1] 


= (COSY * 


-sinX) ; 






M[2,2] 


= (COSY * 


cosX) ; 







end; 



{On applique la matrice de rotation a un point 3D pour obtenir un autre 
point 3D } 

procedure ApplyMatToPoint(PointIn : TDPoint; 

var pointOut: TDPoint; mat : Matrix); 

var 

x, y, z : Extended; 



begin 

x :=(PointIn.x * mat[0,0]) + (Pointln.y * mat[0,1]) + 

(Pointln.z * mat[0,2]) + mat[0,3]; 
y := (Pointln.x * mat[1,0]) + (Pointln.y * mat[1,1]) + 

(Pointln.z * mat[1,2]) + mat[1,3]; 
z := (Pointln.x * mat[2,0]) + (Pointlr 

(Pointln.z * mat [2,2] ) + mat[2,3]; 
PointOut. x := x; 
PointOut. y := y; 
PointOut. z := z; 

end; 



.y * mat[2,1]) + 
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{Notre cube a huit points, correspondant aux 8 sommets. Nous allons definir 
les coordonnees de chaque point. Le centre du cube est en (0,0,0) } 
procedure InitCube; 
begin 



Pnts 


1 ] 


.X 


: = 


-50 


Pnts 


1 ] 


.Y 


: = 


-50 


Pnts 


1 ] 


.Z 


: = 


-50 


Pnts 


2] 


.X 


: = 


50; 


Pnts 


2] 


.Y 


: = 


-50 


Pnts 


2] 


.Z 


: = 


-50 


Pnts 


3] 


.X 


: = 


50; 


Pnts 


3] 


.Y 


: = 


50; 


Pnts 


3] 


.Z 


: = 


-50 


Pnts 


4] 


.X 


: = 


-50 


Pnts 


4] 


.Y 


: = 


50; 


Pnts 


4] 


.Z 


: = 


-50 


Pnts 


5] 


.X 


: = 


-50 


Pnts 


5] 


.Y 




-50 


Pnts 


5] 


.Z 




50; 


Pnts 


6] 


.X 




50; 


Pnts 


6] 


.Y 




-50 


Pnts 


6] 


.Z 




50; 


Pnts 


7] 


.X 




50; 


Pnts 


7] 


.Y 




50; 


Pnts 


7] 


.Z 




50; 


Pnts 


8] 


.X 




-50 


Pnts 


8] 


.Y 




50; 


Pnts 


8] 


.Z 




50; 



end; 

{La fonction qui suit renvoie true si la somme des parametres est superieure 
a zero et false sinon. Cette fonction permet de determiner quelles sont les 
faces du cube a cacher} 

function ShowSide(V1 , V2, V3, V4 : Extended) : Boolean; 
begin 

if (V1+V2+V3+V4) > 0 then 
ShowSide := TRUE 
else 

ShowSide := FALSE; 

end; 
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{On utilise un tampon double. Cette fonction determine si une face est 
visible. Si c 1 est le cas, elle dessine la representation 2D de notre tampon 
bitmap avec pour couleur de remplissage celle passee } 
procedure AddSide(P1 ,P2,P3,P4:Integer;SideColor : TColor); 
begin 

if ShowSide(Pnts0ut[P1 ] .Z,Pnts0ut[P2] .Z, 

Pnts0ut[P3] .Z,Pnts0ut[P4] .Z) then 

begin 

DoubleBuffer. Canvas. Brush. Color := SideColor; 
DoubleBuffer. Canvas. Polygon( [TPPnts[P1 ] ,TPPnts[P2] , 

TPPnts[P3] ,TPPnts[P4] ,TPPnts[P1 ] ] ) ; 

end; 
end; 



procedure TForml .FormCreate(Sender: TObject); 

{Lorsque la fiche se charge, on cree et on initialise notre bitmap de fond 

et on initialise notre bitmap double tampon} 

begin 

DoubleBuffer := TBitmap. Create; 
DoubleBuffer. Height := 200; 
DoubleBuffer. Width := 200; 
BlankBuffer := TBitmap. Create; 
BlankBuffer. Height := 200; 
BlankBuffer. Width := 200; 
BlankBuffer. Canvas. Brush. Color := clWhite; 
BlankBuffer. Canvas. rectangle (0,0, 200 ,200) ; 
InitCube( ) ; 



XAng 
YAng 
ZAng 
end; 



0; 
0; 

0; 



procedure TForml .FormClose(Sender: TObject; var Action: TCloseAction) ; 
{Quand tout est fini on fait le menage en liberant les bitmap } 
begin 

BlankBuffer. Free; 

DoubleBuffer . Free; 
end; 

procedure TForml .Timer1Timer(Sender: TObject); 

{La procedure principale qui dessine le cube. Cette procedure est appelee 
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pan un timen qui execute sa fonction OnTimen toutes les 20 ms} 
van 

M : Matnix; {La matnice de notation } 

Count2 : Integen; {poun bouclen a tnavens les points } 

begin 

XAng := XAng + XRot . Position ; {on a juste 1' angle de notation } 

YAng := YAng + YRot . Position ; {en agissant sun les banres de } 

ZAng := ZAng + ZRot . Position ; {defilement } 

{On ajuste en degne et on constnuit la matnice de notation } 

matnixRotate(M, (PI*XAng) /180, (PI*YAng) /180, (PI*ZAng) /180) ; 

{On pancount tous les points et on effectue la notation poun} 

{obtenin la representation 2D } 

fon Count2:= 1 to 8 do 

begin 

ApplyMatToPoint(Pnts[Count2] ,Pnts0ut[Count2] ,M) ; 
TPPnts[Count2] := Point(trunc(Pnts0ut[Count2] .X+100) , 

tnunc(PntsOut[Count2] .Y+100) ) ; 

end; 

{On efface le tampon double en effectuant un CopyRect sun le fond } 

DoubleBuf f er . Canvas . CopyRect ( RECT (0,0, 200 , 200) , 

BlankBuf fen. Canvas, RECT( 0,0, 200, 200) ) 
{On constnuit le cube en appelant AddSide pour chacune des six faces } 

AddSide(1 ,2,3,4,clBlue) ; 

AddSide(5,6,7,8,clRed) ; 

AddSide (1,2,6,5, clYellow) ; 

AddSide(2,3,7,6,clGneen) ; 

AddSide(3,4,8,7,clPunple) ; 

AddSide (4, 1 ,5,8,clSilven) ; 
{On copie le tampon double sur la fiche } 

Fonml . Canvas. CopyRect (RECT(0, 0,200, 200) , 

DoubleBuff en. Canvas, RECT(0, 0,200, 200) ) ; 

end; 

procedune TForml .ResetCubeClick(Senden: TObject); 
begin 



XAng 


:= 0 


YAng 


:= 0 


ZAng 


:= 0 
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Graphismes. multimedia et animation 




end; 
end. 



IlICQ ^ es P°' nts sont initialises dans la procedure InitCube (voir Listing 11.6).Ces valeurs ne chan- 
I L|3C geant jamais, cela n'est necessaire qu'une seule fois. A chaque image, on determine la posi- 
tion du cube et on calcule un nouvel ensemble de points prenant en compte les coordonnees 
du cube en rotation. Cela est men'e a bien en creant une matrice de rotation, puis en appelant 
ApplyMatToPoint pour chacun des huit points. Vous obtenez alors un nouvel ensemble de 
points dans I'espace. II vous suffit alors de vous debarrasser de la valeur en Z et pour obtenir 
vos coordonnees X et Y pour les huit sommets. 

Vous pouvez avoir recours a une petite astuce pour determiner les faces cachees du cube. Si un 
cube est situe en (0,0,0), une face apparait si la somme de ses valeurs en Z est superieure a 0. 
Cette astuce n'est valable que pour certains types d'objets, et generalement la gestion des faces 
cachees est bien plus complexe. Dans notre cas, elle est assuree dans la fonction simple Show- 
Side. 

Maintenant que vous savez quoi dessiner et avec quelles coordonnees, il ne vous reste plus qu'a 
tout animer de maniere fluide. Chaque image est declenchee par un evenement OnTimer. La 
procedure lit les composants curseurs pour determiner 1' incrementation de chaque angle de 
rotation. Pour dessiner 1' image, utilisez un bitmap en memoire et initialisez-le en copiant un 
autre bitmap. On utilise le deuxieme bitmap plutot qu'une methode Rectangle car CopyRect 
est plus rapide. Vous determinez ensuite quelles sont les faces devant s'afficher et vous les des- 
sinez sur le bitmap en memoire en utilisant une methode poly gone. Chaque face est dessinee a 
l'aide d'une couleur distincte pour rendre l'effet d'animation encore plus spectaculaire. Enfin, 
vous utilisez un CopyRect pour copier le bitmap en memoire sur la fiche principale. C'est un 
exemple interessant qui peut etre facilement modifie et etendu. 

Pour plus de performances : DirectX et OpenGL 

L'exemple precedent a montre comment creer des graphismes en trois dimensions a l'aide de 
composants Delphi standard. Un des problemes poses par cette technique est qu'il n'est pas 
possible de tirer parti du materiel concu specifiquement pour le rendu 3D (alors que la plupart 
des nouvelles cartes graphiques en sont capables). De plus, cette technique vous oblige a effec- 
tuer vous-meme toutes les taches automatisees par un moteur graphique 3D, comme la sup- 
pression des surfaces cachees et les ombrages. 

OpenGL et Direct3D (une des composantes de DirectX) sont specifiquement concus pour 
effectuer un rendu graphique optimise tirant parti du materiel 3D. Direct3D se fonde sur le 
modele objet de composant (COM) et offre les meilleures performances. OpenGL definit une 
interface specialisee de commande graphique. OpenGL et Direct3D sortent cependant du cadre 
de cet ouvrage ; nous vous invitons a consulter des ouvrages consacres a ce sujet. 
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Recapifulatif 

Le developpement graphique est l'un des domaines les plus courus du moment. Delphi est un 
outil parfaitement adapte pour exploiter les fonctionnalites graphiques de Windows 95 et Win- 
dows NT. La surface primaire de dessin en Delphi est le canevas. Ce canevas permet a une 
application de dessiner sur une fiche, une paintbox ou un bitmap. Lors de cette journee, nous 
avons vu differentes facons de manipuler un canevas, plusieurs techniques de travail sur les 
images et les bitmap, ainsi que certains points theoriques sur le graphisme en general. 

Le mot magique de multimedia est maintenant sur toutes les levres. En fait, le multimedia n'est 
autre que l'utilisation du son et de la video dans des applications. Cette partie vous a montre 
comment utiliser l'appel API PlaySound pour ajouter des effets sonores a une application. 
Nous avons egalement vu le composant visuel Lecteur multimedia (media player) pouvant lire 
toutes sortes de fichiers multimedias, fichiers video inclus. Le composant Lecteur multimedia 
est tres configurable et ses usages sont multiples. 

Enfin, nous avons parle de l'animation. Le Lecteur multimedia est l'outil de choix pour la lec- 
ture de videos preenregistrees, mais il n'est pas adapte a la creation d'animations evolutives. 
Vous avez pu voir comment ameliorer les performances en tirant parti d'algorithmes plus ou 
moins efficaces. Cette journee d'apprentissage s'est terminee sur une animation de cube en 
rotation qui a fait la demonstration de la puissance des methodes de Delphi. 

Atelier 

L' atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu 
de cette journee. La section Questions - Reponses vous propose des questions couramment 
posees, ainsi que leurs reponses. Les reponses aux questions de la section Questionnaire se 
trouvent dans l'Annexe A, et les Exercices vous permettent de mettre en pratique ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Comment mon application peut-elle utiliser des API graphiques Win32 en conjonc- 
tion avec des composants graphiques en Delphi ? 

R La plupart des composants et objets Delphi sont dotes de proprietes que vous pouvez uti- 
liser pour manipuler les handles sous-jacents. Ainsi, la classe TBitmap contient une pro- 
priete Handle a laquelle vous pouvez acceder pour effectuer des API de bitmap. De plus, 
le contexte de peripherique (DC) du canevas est disponible par le biais de cette meme pro- 
priete Handle. 
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Q En quoi est-il plus interessant de dessiner un bitmap hors de l'ecran avant de le co- 
pier sur l'affichage ? 

R Lorsque vous dessinez sur un bitmap hors de l'ecran, l'image ne subit pas de scintille- 
ment. Vous pouvez conserver ainsi plusieurs images et les substituer rapidement les unes 
aux autres dans une partie de l'ecran afin de creer une animation. 

Q Est-il possible d'utiliser la MCI (interface de controle multimedia) sans utiliser le 
composant lecteur multimedia ? 

R Oui, tous les appels API multimedias sont disponibles. Si vous disposez du code source 
du lecteur multimedia, vous verrez qu'il utilise lui-meme l'API MCI. 

Q CopyRect a ete utilise pour deplacer rapidement une portion rectangulaire d'un ca- 
nevas. Y a-t-il d'autres moyens pour deplacer rapidement des portions d'un 
canevas ? 

R Oui, vous pouvez acceder a la propriete Handle d'un canevas, qui est un handle vers son 
contexte de peripherique. Vous pouvez alors utiliser tous les appels GDI Win32 que vous 
souhaitez pour manipuler l'image. II existe un appel qui permet de deplacer des donnees 
vers un parallelogramme, vous permettant egalement d'effectuer diverses operations de 
masque. 

Q Plusieurs threads peuvent-ils ecrire sur le meme canevas ? 

R Oui. Vous devez appeler la methode Lock sur le canevas avant de le manipuler, et la me- 
thode UnLock lorsque vos operations sont terminees. 

Questionnaire 

1. Dans l'exemple d'animation simple, que se passe-t-il si pmCopy est utilise pour le mode 
de crayon au lieu de pmNotXor ? 

2. Le clipping est utile pour circonscrire un dessin dans une portion donnee d'une fiche. 
Quels composants Delphi pourriez-vous utiliser pour decouper ainsi un dessin selon une 
region de l'ecran ? 

3 . Comment une application peut-elle utiliser une methode pour charger un bitmap dans une 
image ? Comment copier un morceau d'un bitmap dans une paintbox ? 

4. Comment PlaySound sait-il s'il doit attendre que le son ait ete lu pour executer l'instruc- 
tion suivante, ou s'il doit au contraire executer 1' instruction suivante alors que le son con- 
tinue a etre lu ? 

5. Quel est l'effet de l'appel : 

MediaPlayeN .DisplayRect := RECT(50,50,200,200) ; 

sur un composant Lecteur multimedia ? Indice : il ne demande pas d'afficher les coordon- 
nees dans la portion delimitee par (50,50) et (200,200). 

6. Lorsque vous effectuez une animation, pourquoi n'est-il pas interessant de dessiner une 
image, puis de l'effacer avant de dessiner la suivante ? 
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Exercices 

1. Verifiez que lorsqu'une fenetre contenant un objet graphique ne se reaffiche pas d'elle- 
meme apres avoir ete recouverte, l'image qui figure dans cette portion de la fenetre est 
effacee. 

2. Modifiez le programme MIXUP de facon que les pieces du bitmap nouvellement cree 
soient disposees dans un ordre specifique plutot qu'aleatoire (en inversant les X et les Y 
par exemple). 

3. Ecrivez un programme qui joue constamment de la musique de fond. 

4. Utilisez le composant lecteur multimedia pour lire un fichier video. Laissez a l'utilisateur 
le choix de determiner l'endroit ou la video sera jouee (dans sa propre fenetre ou dans la 
fiche principale). Ajoutez des barres de defilement permettant a l'utilisateur de definir la 
taille de l'image. 

5 . Modifiez le programme de rotation de cube afin que le cube soit en rotation sur un fond 
en bitmap. Une astuce : remplacez le bitmap vierge utilise pour nettoyer l'image par un 
vrai bitmap. 
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Les bases de donnee 
sous Delphi 
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Tout programmeur est tot ou tard confronte au probleme suivant : 

L' application doit acceder a de gros volumes de donnees et les manipuler. Existe-t-il un moyen 
simple d'y parvenir ? 

La reponse est oui. Les systemes de bases de donnees sont des outils generiques de manipula- 
tion de donnees. Un moteur de bases de donnees fournit les mecanismes necessaires pour mani- 
puler et visualiser les donnees de la base. Sans les bases de donnees, les programmeurs seraient 
obliges d'ecrire des routines complexes pour gerer les fichiers de facon efficace. En resume, le 
programmeur devrait gerer et la base de donnees, et son moteur. 

L'implementation des bases de donnees dans Delphi est simple et efficace. Elle comporte des 
composants visuels permettant d'acceder a des tables et fournissent des methodes pour mani- 
puler les enregistrements. Cette partie explique comment creer vos propres bases de donnees 
en utilisant les outils fournis avec Delphi, et comment integrer ces bases de donnees dans vos 
applications. Delphi peut aussi bien faire des manipulations complexes de bases de donnees 
que se comporter comme un simple terminal. 

11Q311 Un terminal de bases de donnees est un programme quipossede une interface simple d'emploi 
V CUD qf m d'acceder aux donnees d'une base de donnees et les manipuler. Delphi comprend un outil 

rendant le d'eveloppement d' applications quasi automatique en g'erant I'essentiel des opera- 
| Hons a votre place. Cet outil s'appelle 1' Expert fiche base de donnees. II cr'ee une application 

completement fonctionnelle sans vous demander d'ecrire une seule ligne de code. 

Nodele de donnees relofionnel 

La plupart des bases de donnees recentes sont relationnelles. Une base de donnees relationnelle 
stocke l'information dans des tables logiques composees de lignes et de colonnes. Ces tables 
sont appelees des tables de bases de donnees. Examinons une table simple. 

L'universite de RAD (RADU) desire garder des enregistrements relatifs a ses etudiants. Pour 
cela, RADU organise ses donnees en table. Cette table figure au Tableau 11.1. 



Tableau 11.1 : Donnees sous forme relationnelle 



NoSS 


Nom 


Classe 


Telephone 


Moyenne 


2650392125351 


Ada Smith 


Deugl 


01-43-23-45-64 


13,4 


1660221530400 


Henry Ford 


Deugl 


01-51-25-45-21 


12,8 


1651102003020 


Ragle Gumm 


Deugl 


04-15-94-52-46 


13,8 


1631203100235 


Niklaus Wirth 


Deug2 


02-15-45-19-54 


14,0 
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Les colonnes d'une table s'appellent des champs, et les lignes des enregistrements. Pour cha- 
que enregistrement dans la table, il doit y avoir une valeur par champ. 



imiers pas : l'Expert fiche base de donnees 

Delphi est fourni avec un puissant outil qui transcrit les champs d'une table en champs d'edi- 
tion d'une fiche. Voici un exemple d'utilisation de cet outil pour creer une application en uti- 
lisant l'Expert de fiche. Cet exemple utilise l'une des bases de donnees fournies avec Delphi. 

I/Expert fiche base de donnees 

II est aussi simple qu'amusant d'utiliser l'Expert fiche base de donnees de Delphi. Faites des 
choix et l'Expert genere automatiquement le code et les ecrans a votre place. Suivez ces etapes 
pour creer votre premier ecran de base de donnees : 

1. Lancez Delphi. 

2 . Choisissez Base de donnees/Expert fiche . . . depuis le menu principal . La boite de dialogue 
Expert fiche base de donnees apparait alors (voir Figure 11.1). 



Figure 11.1 

Selection des options dans 
l'Expert fiche base de donnees. 





Options d'ensemble de donnees (DataSet) 
Creer une fiche avec des objets T Table 
C Creer une fiche avec des objets Tfluery 



3. Dans la premiere boite de dialogue, selectionnez Creer une fiche simple, et Creer une fi- 
che utilisant des objets TTable. Cliquez sur Suivant. 

4. Dans la boite de dialogue suivante, selectionnez DBDEMOS dans la section Lecteur (ou 
Alias). Cela fait apparaitre une liste de tables dans la boite de liste de gauche (voir 
Figure 11.2). 
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Figure 11.2 

Choix des tables a utiliser. 




5. Choisissez EMPLOYEE .DB. Cliquez sur Suivant. 

6. Cliquez sur le bouton » pour indiquer que vous voulez construire une fiche comportant 
tous les champs (voir Figure 1 1 .3). 



Figure 113 

Choix des champs a utiliser. 




Pour ajouter des champs a la iiche. cliquez chacun deux 
dans la liste des champs disponibles puis cliquez sui ">" 
Pour choisir tous les champs, cliquez sur "»". 



Champs seleclionnes tries : 



_*J_»J 



7. Cliquez sur le bouton Suivant en acceptant toutes les valeurs par defaut jusqu'a la creation 
de la fiche. 

8. Choisissez Executer/Executer dans la barre de menu. 

Felicitations ! Vous venez de creer votre premiere application de bases de donnees sous Delphi 
(voir Figure 11.4). 



Comment qa marche ? 

Cette application donne a l'utilisateur le plein pouvoir sur une table contenant des informations 
sur les employes. Pour manipuler les enregistrements, une barre de navigation est inseree en 
haut de 1' application. Chaque bouton de cette barre execute une manipulation de la base de 
donnees. La fonction de chacun des boutons est detaillee dans le Tableau 1 1 .2. 
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Figure 11.4 

L' application generee par 

V Expert fiche base de donn'ees. 



Tableau 112 : Les boutons de navigation de base de donn'ees 



Icone 


Fonction 


Description 


■ 


Premier enregistrement 


Se place sur le premier enregistrement de la 
table 


■ 


Precedent 


Revient a l'enregistrement precedent. 


■ 


Suivant 


Passe a l'enregistrement suivant. 




Dernier 


Passe au dernier enregistrement de la table. 


•J 


Inserer 


Insere un nouvel enregistrement a la position 
courante. 




Supprimer 


Supprime l'enregistrement affiche. 




Editer 


Permet de modifier les champs de l'enregis- 
trement affiche. 




Valider 


Valide les modifications apportees a l'enre- 
gistrement. 




Annuler 


Annule les modifications apportees a l'enre- 
gistrement. 
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Icone 



Fonction 



Description 



Rafraichir 



Recharge tous les enregistrements courants 
et les autres. Cette fonction est surtout utile 
si plusieurs applications accedent a la meme 
base de donnees, les donnees de l'enregistre- 
ment courant pouvant etre modifiees. 



Choix de lo base de donnees 

L'une des fonctionnalites les plus puissantes du moteur de bases de donnees de Delphi est qu'il 
dispose d'une couche d'abstraction venant se placer entre les donnees sous-jacentes et les 
mecanismes de traitement. A la question : "Quelle base de donnees dois-je utiliser ?", il n'y a 
done pas de reponse privilegiee, et le choix d'une base de donnees n'est pas definitif : vous 
pourrez changer le type de base de donnees sans modifier votre code. 



Nodeles de bases de donnees 

Beaucoup d' applications utilisent des bases de donnees. Un centre des impots et un garage 
n'utilisent pas les memes : le volume de donnees, les traitements qui leur sont appliques, et le 
nombre d' applications differentes susceptibles de les exploiter different largement. D'autre 
part, certains problemes requierent des bases de donnees utilisees par plus d'un programme et 
plus d'une personne en meme temps. Que se passerait-il, par exemple, si deux programmes 
essayaient de modifier en meme temps le meme enregistrement ? Quelles sont les solutions 
pour qu'une application ne puisse acceder qu'a une partie d'une base de donnees ? Ces deux 
problemes sont appeles problemes d'acces concurrent et problemes de securite. En fonction 
d'eux, il convient de choisir differents types de bases de donnees. 

La puissance, la complexite et les fonctionnalites d'un systeme de bases de donnees sont sou- 
vent liees a 1' infrastructure physique sous-jacente. Nous allons maintenant explorer les trois 
principales categories de bases de donnees : locale, a fichiers partages, et Client/Serveur. Nous 
verrons egalement la structure de base de donnees multiliaison fournie avec Delphi CS. 

Les sections suivantes decrivent les differents types de modeles de base de donnees : 

• Locale 

• A fichiers partages 

• Cllient/Serveur 

• Multiliaison 
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Bases de donnees locales 

Les bases de donnees locales sont les plus simples a manipuler, car un grand nombre de pro- 
blemes ne se posent plus. Les donnees sont stockees dans la machine locale, et le moteur est 
egalement sur cette machine. II est done impossible que deux utilisateurs essaient simultane- 
ment d'acceder a la base de donnees : les problemes de concurrence disparaissent. Generale- 
ment, une telle base de donnees demande rarement des calculs complexes qui s'effectueraient 
au detriment du contort de l'utilisateur. Les bases de donnees locales sont utiles pour les appli- 
cations distributes a un grand nombre d'utilisateurs, chacun maintenant ses propres donnees 
de facon independante. Par exemple, une application destinee a suivre le nombre de kilometres 
parcourus par une voiture afin de rembourser les frais de carburant pourrait etre developpee 
selon ce modele. Chaque personne utilisant l'application gererait sa propre consommation sur 
son ordinateur : personne n'ayant besoin de connaitre les consommations des autres, une base 
de donnees locale est bien adaptee. II existe un grand nombre de systemes de gestion de bases 
de donnees locales. Les bases de donnees Paradox et dBASE peuvent etre creees et manipulees 
en standard avec Delphi. Ces systemes de bases de donnees peuvent s'utiliser en local ou en 
fichiers partages. 

Bases de donnees partagees 

Une base de donnees a fichiers partages se comporte presque comme une base de donnees loca- 
le, excepte le fait que plusieurs programmes peuvent y acceder au travers d'un reseau. La base 
de donnees peut done etre manipulee par plusieurs personnes en meme temps. Considerons par 
exemple la base des employes d'une entreprise. Si un administrateur change le salaire d'un 
employe, l'application de paie sera immediatement avertie de la modification. Cependant, si 
les donnees de la base sont distantes, le moteur de bases de donnees reste local. Un autre avan- 
tage des bases de donnees a fichiers partages est qu'elles ne demandent pas de connaissance a 
priori du type de reseau utilise. La base de donnees se moque de savoir si le systeme d'exploi- 
tation est Banyan, Novell, ou Microsoft NT, par exemple, parce qu'elle considere les donnees 
comme un simple fichier. Cette formule trouve cependant ses limites des que le nombre 
d'acces concurrents ou la charge de calcul augmente. Dans ces situations, on se tourne vers les 
bases de donnees Client/Serveur. 

Bases de donnees Client/Serveur 

La solution la plus sophistiquee pour Faeces concurrent a une base de donnees est le modele 
Client/Serveur. Dans ce cadre, une machine dediee, appelee serveur, est congue pour gerer les 
acces d'un groupe de clients a la base. Prenons par exemple la base de donnees des impots sur 
le revenu, et supposons qu'une application demande l'ensemble des numeros de securite socia- 
le pour lesquels l'impot a ete compris entre 10 000 et 800 000 francs cette annee. Une telle 
requete sur un systeme a fichiers partages bloquerait la base de donnees et tout le systeme pour 
un certain temps. Dans le cadre Client/Serveur, le client effectue la requete aupres du serveur. 
C'est alors au Client de decider s'il prefere attendre la reponse ou bien faire autre chose pen- 
dant l'execution de la requete. De son cote, le Serveur a ete optimise pour traiter les requetes 
le plus rapidement possible. Cependant, l'architecture Client/Serveur a aussi un inconvenient : 
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ces solutions reviennent plus cher que celles a fichiers partages, et demandent une connaissan- 
ce prealable de 1' implementation reseau utilisee (par exemple TCP/IP). Bien qu'il soit possible 
d'installer plusieurs couches reseau sur une meme machine, on perd de la souplesse. 

Un nouveau paradipme : les bases de donnees 
mulNliaisons 

Voici une nouvelle facon d'aborder la manipulation des bases de donnees dans un reseau. Cette 
approche est qualifiee de systeme multiliaisons. Elle se compose d'une combinaison de clients 
"legers", de serveurs d' application, et de serveurs de bases de donnees. Le resultat est un sys- 
teme permettant la gestion des pertes et des replications de donnees. Nous ne donnerons pas 
plus de details sur ce nouveau modele puisqu'il n'est fourni que dans l'edition CS de Delphi. 
Si vous avez la version CS, referez-vous a l'aide en ligne. 

Lors d'un developpement sous Delphi ne demandant pas une compatibility avec un systeme de 
bases de donnees preexistant, le developpeur choisira tres probablement dBASE, Paradox, ou 
Access, ces trois systemes etant tres bien integres dans Delphi. Le Tableau 11.3. donne quel- 
ques-unes des caracteristiques de ces trois systemes : 



Tableau 113 : Comparaison des tables Paradox, dBASE et Access 


Attribut 


Paradox 


dBASE 


Access 


Nombre d'enregistrements 


2 milliards 


1 milliard 


2 milliards 


Champs par table 


255 


1024 




Caracteres par champ 


ns 


256 


ns 


Octets par enregistrement 


32750 


32767 


32767 



Comme vous le voyez, ces trois systemes sont extremement puissants et capables de gerer plus 
de donnees que vos applications n'en demandent. Paradox et Access offrent un peu plus de 
souplesse au niveau de la base de donnees. Cela signifie que les tables savent stocker autre cho- 
se que les donnees brutes. Paradox comprend notamment des cri teres de validation au niveau 
de la table, ainsi que des mots de passe. Ces caracteristiques prennent tout leur interet si 1' appli- 
cation Delphi n'est pas la seule a acceder aux donnees. 

Choisir le bon modele de bases de donnees pour une application est souvent une tache difficile. 
Fort heureusement, le moteur de bases de donnees Borland est suffisamment souple pour chan- 
ger de modele de base de donnees sans grands efforts. Si cela n'offre pas assez de fonctionna- 
lites, le moteur de bases de donnees peut communiquer avec ODBC, lui-meme pouvant 
communiquer avec la grande majorite des systemes de gestion de bases de donnees (SGBD) 
du marche. Nous parlerons plus loin d'ODBC, mais pour le moment, voyons comment creer 
une nouvelle table en utilisant le Module base de donnees. 



DELPHI 3 



Alias 



Les bases de donnees peuvent etre gerees de differentes facons. Sous Microsoft Access, plu- 
sieurs tables sont stockees dans un seul fichier. Paradox et dBASE utilisent un fichier par table. 
Un systeme Client/Serveur comme Sybase ou Microsoft SQL server stocke toutes les donnees 
sur une machine separee et communique avec les clients a travers un langage dedie appele SQL 
(nous en parlerons plus loin). En plus des methodes de stockage des donnees, certaines bases 
de donnees ont besoin d' informations supplementaires. La tache du moteur de bases de don- 
nees est done complexe, les differents systemes de bases de donnees demandant des informa- 
tions legerement differentes. Une base de donnees Paradox, par exemple, voudra savoir quel 
repertoire represente la base de donnees, alors qu'une base de donnees Sybase pourra deman- 
der une adresse reseau pour le serveur, un nom de base de donnees, un nom d'utilisateur, et un 
mot de passe. La solution a ce probleme repose sur les alias. Un alias contient toutes les infor- 
mations necessaires pour acceder a la base de donnees. Lors de la creation d'un alias Paradox, 
il suffit de fournir le repertoire contenant la base de donnees. 

Creer une nouvelle table avec le module nose 
de donnees 

Maintenant que vous maitrisez les differents elements de base d'une table, vous allez en creer 
un exemple simple. Le Module base de donnees Borland (voir Figure 11.5) peut etre lance 
depuis le menu Outils de Delphi. Choisissez cette option pour lancer le Module base de donnees. 



Figure 11.5 

Le Module base de donnees 
Borland. 




Creation d une nouvelle table 

La creation de tables sous Delphi est simplified par l'utilisation du Module base de donnees. 
Suivez ces instructions pour creer les tables et les champs : 



LE PR*)GRAMMEUR 




I 



1 . Choisissez Fichier/Nouveau/Table dans la barre de menu. Une boite de dialogue apparait, 
vous demandant quel type de table vous desirez creer. Pour de nouvelles applications, Pa- 
radox est tres probablement le meilleur moyen de travailler. Choisissez Paradox 7, et cli- 
quez sur OK. La boite de dialogue de la Figure 1 1 .6 apparait. 



Figure 11.6 

Definition des champs dans le 
Module base de donn'ees. 




2. La premiere chose a faire est de decider quelles donnees vous voulez stacker dans votre 
table et quel est leur type. Pour cet exemple, considerons la table des enregistrements re- 
latifs aux etudiants de RADU. Chaque champ doit etre ajoute dans la zone description des 
champs de la boite de dialogue. Pour ajouter le premier champ, tapez SSN dans le champ 
Nom de champ. Vous indiquez ainsi que vous voulez creer un nouveau champ appele SSN. 

3. L'information suivante est le type de donnees que vous allez stocker dans votre table. Les 
numeros de securite sociale sont stockes sous la forme d'une chaine de caracteres.Faites 
un clic droit dans le champ Type pour afficher les types disponibles. Pour une chaine, Pa- 
radox utilise le type Alphanumerique. Choisissez Alphanumerique dans la liste de types 
affichee. 

4. Pour certains types, une taille doit etre specifiee. Cela indique a la base de donnees la plus 
grande quantite de donnees pouvant etre stockee dans le champ. Pour un numero de se- 
curite sociale, indiquez 13. Certains types de donnees comme les nombres n'utilisent pas 
le champ de taille, et le Module base de donnees le rend inaccessible dans ce cas. 

5. La derniere information indique si le champ sera ou non un index. S'il est un index, ce 
champ est unique pour chaque enregistrement, c'est-a-dire que deux enregistrements dif- 
ferents ne pourront pas avoir la meme valeur pour ce champ. L'utilisation des index dans 
les bases de donnees est capitale, mais nous y reviendrons. Pour l'instant, indiquez que le 
champ SSN est un index, puisque chaque etudiant a un numero de securite sociale diffe- 
rent des autres. 



DELPHI 3 



6. Pour definir le champ suivant de la table, appuyez sur Entree. Continuez a definir les 
champs en utilisant les informations fournies dans le Tableau 1 1 .4. 

Tableau 11.4 : Definition et attributs d'une table simple 



Nam de champ Type Tattle Index 



SSN 


A 


13 


* 


Nom 


A 


30 




Classe 


A 


10 




Telephone 


A 


10 




Moy 


N 







7. Cliquez sur le bouton Enregistrer sous... pour sauvegarder les informations. 

8. Dans la boite de dialogue Enregistrement de la table, changez le lecteur (ou Alias) pour 
indiquer DB DEMOS. Tapez STUDINFO.DB dans la case Nouveau nom de fichier. Cli- 
quez sur OK pour sauvegarder la table. C'est termine, vous avez cree une nouvelle table. 



Pourquoi uMliser des index ? 

Pourquoi avoir defini SSN comme etant un index ? Les index aident le moteur de base de don- 
nees a travailler efficacement. II est utile de pouvoir distinguer chaque enregistrement des 
autres a l'interieur d'une table. Paradox impose que tous les champs d'index soient definis en 
premier dans la definition des champs. Bien que la plupart des systemes de bases de donnees 
vous dispensent d'avoir des index, c'est une bonne habitude a prendre que d'avoir au moins un 
index par table. Cependant, comment faire si la table sur laquelle vous travaillez n'a pas de can- 
didat naturel au role d'index ? Cela signifie qu'il n'y a pas de champ qui soit unique en fonction 
de 1' enregistrement. Regardons par exemple le Tableau 1 1 .5, qui pourrait etre utilise pour une 
base de donnees de recettes de cuisine. 

Tableau 11.5 : Ingredients d'une base de donnees de recettes 



Recette Ingredient 



Macaroni 


Macaroni 


Macaroni 


Cheddar 


Macaroni 


Lait 


Thon 


Thon 


Thon 


Cheddar 


L E 
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Vous ne pouvez pas utiliser Recette comme index car il y a plusieurs ingredients par recette. 
Le terme Ingredient ne convient pas mieux, puisqu'un ingredient peut apparaitre dans plusieurs 
recettes. Fort heureusement, la plupart des bases de donnees savent comment contourner le 
probleme grace a des types specialises qui sont geres automatiquement par le moteur de base 
de donnes, garantissant que ce champ sera unique. Sous Paradoxe, ce type de donnees est appele 
Incrementation Auto. En definissant un champ de type Incrementation Auto, vous creez un 
champ dont la valeur augmente de 1 a chaque nouvelle entree, ce qui lui permet de servir 
d'index. Le Tableau 1 1 .6 montre comment ajouter un champ d'index a vos recettes de cuisine. 

Tableau 11.6 : Creation d'un index dans la base de donnees recettes 



Nom du champ Type Tattle Index 



Recettelndex + 




* 


Recette A 


30 




Ingredient A 


30 




Quand des donnees sont ajoutees a la table, chaque enregistrement se voit attribuer une valeur 
unique. Notre table ressemble maintenant a celle du Tableau 1 1 .7. 


Tableau 11.7 : Ingredients d'une base de donnees de recettes 




Recettelndex Recette 




Ingredients 


1 Macaroni 




Macaroni 


2 Macaroni 




Cheddar 


3 Macaroni 




Lait 


4 Thon 




Thon 


5 Thon 




Cheddar 



Quelques informations devraient etres ajoutees afin de pouvoir reellement travailler sur cette 
base de donnees, mais le modele que nous avons cree est une bonne base de depart. Nous ver- 
rons plus loin comment augmenter les performances de la base de donnees et s'assurer que seu- 
les des informations valides peuvent y figurer. 

Rcceder o une table depuis Delphi 

Nous vous avons montre la methode la plus simple pour creer une application Delphi qui accede 
a une table : 1' Expert Fiche de Delphi. Examinons maintenant de plus pres ce qu'il se passe 
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derriere la scene et quelles etapes sont necessaires pour construire une application en partant 
de zero. 

Le moyen le plus simple d' acceder a et de manipuler des bases de donnees sous Delphi consiste 
a utiliser les composants visuels fournis. Les composants visuels de bases de donnees sont 
stockes dans deux onglets de la palette de composants : les onglets AccesBD et ControleBD. 
Les composants de l'onglet AccesBD sont utilises pour indiquer a Delphi quelles tables et 
quelles fonctions doivent etre utilisees, alors que l'onglet ControleBD recense les composants 
visuels qui peuvent afficher les donnees d'une base de donnees ou fournir une interface pour 
manipuler les donnees (ajouter, inserer, modifier). 

Indiquer une fable a Delphi : le composanf TTable 

Pour utiliser une table, vous devez tout d'abord indiquer a Delphi que vous desirez travailler 
avec. Placez sur la fiche un objet Table accedant aux donnees de la table. La feuille de proprie- 
tes comprend deux proprietes nominees DatabaseName, et TableName. Ces deux proprietes sont 
indispensables pour indiquer a Delphi comment acceder a la table. La propriete DatabaseName 
correspond a l'alias. La propriete TableName indique quelle table de la base doit etre utilisee. 

Acceder a la fable d'informarions sur les efudianfs 

La premiere etape lors de la creation d'une application destinee a acceder a la base de donnees 
que vous avez creee precedemment dans cette section consiste a placer un composant TTable 
sur votre fiche et a configurer les proprietes DatabaseName et TableName. 

1 . Creez une nouvelle application. 

2. Placez un composant TTable sur la fiche. Le composant TTable se trouve dans l'onglet 
AccesBD de la palette de composants. 

3. Dans la feuille de proprietes, mettez DatabaseName a DBDEMOS. DBDEMOS est l'alias 
dans lequel nous avons sauvegarde la table STUDINFO.DB. 

4. Apres avoir defini la propriete DatabaseName, la propriete TableName indique les tables 
disponibles pour cet alias. Choisissez STUDINFO.DB comme valeur pour TableName. 

5 . Mettez la propriete Active a True. Cela a pour effet d'ouvrir la table lorsque l'application 
est lancee. Si vous laissez cet indicateur a False, l'application ne pourra pas acceder a la 
table tant que vous ne l'aurez pas mise a True durant l'execution. 

6. Donnez la valeur Studlnf o au champ Name. 

Deux autres proprietes interessantes lors de l'execution sont Readonly et Exclusive. La pre- 
miere vous permet de specifier que la table n'est accessible qu'en lecture, et qu'il est done 
impossible de la modifier. La seconde vous assure un acces exclusif a la table en empechant 
d'autres applications d'y acceder. Nous avons done fourni les informations necessaires pour 
acceder a la table, mais nous ne pourrons manipuler les donnees qu'apres avoir associe un 
DataSource a l'objet table. 



LE PR*)GRAMMEUR 




Interfagage des donnees : le composant 
TDataSource 

Delphi peut acceder aux informations de bases de donnees a travers une serie de composants 
appeles les composants de bases de donnees, comme par exemple le composant TTable. Les 
controles orientes donnees sont des controles qui affichent et manipulent les donnees d'une 
base a laquelle on accede depuis Delphi. Pour fournir une couche d'abstraction aux controles, 
il existe le composant TDataSource. Le TDataSource permet egalement de savoir si des chan- 
gements ont eu lieu dans les donnees. 

On parle indifferemment du composant TDataSource ou d'une DataSource. Vous serez done 
amene a rencontrer I'une ou I' autre de ces denominations. 

Ajourd'un TDataSource 

Le composant TDataSource etant maintenant sur votre fiche, vous devez le connecter. Ainsi, 
les composants orientes donnees pourront utiliser le composant TTable que vous avez defini. 
Procedez selon les etapes suivantes : 

1. Ajoutez un composant TDataSource a votre fiche. 

2. Mettez Studlnfo dans la propriete DataSet . Cela relie le TDataSou rce au composant TTa - 
ble Studinfo, qui accede a la table STUDINFO.DB de la base de donnees DBDEMOS. 

3. Changez le nom du TDataSource en dsStudent. 

Controles orientes donnees : voir et modifier les 
donnees 

Vous avez a present fourni a Delphi tous les renseignements necessaires pour communiquer 
avec une table. Cependant, il est necessaire de decider de quelle facon doivent s'afficher les 
donnees, et comment les manipuler. La facon la plus simple est d'utiliser des controles orientes 
donnees. La plupart de ces controles servent a lier un champ a un composant visuel. Par exem- 
ple, il est souvent necessaire d'avoir une boite d'edition contenant la valeur d'un champ d'une 
table. Les controles orientes donnees standard sont tres puissants, simples d'utilisation, et Del- 
phi en possede une large gamme. Excepte le DBNavigator, tous les composants de l'onglet 
ControleBD sont utilises pour afficher les donnees d'une base. Pour commencer, ajoutez un 
composant DBGrid dans votre exemple. 

fljour dun composanr oriente donnees : le composanr DBGrid 

Le composant DataSource etant pret, attachons-lui les controles orientes donnees : 

1 . Placez le controle DBGrid sur votre fiche. Comme ce composant sera visible lors de l'exe- 
cution, vous devez changez sa taille de facon a ce qu'il occupe une large portion de la fiche. 

2. Mettez dsStudent dans la propriete DataSource. Cela relie le controle aux donnees. 
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3. Que s'est-il passe ? Des que vous avez renseigne la propriete DataSource, les noms des 
champs sont automatiquement apparus dans la grille. Si des donnees se trouvaient dans 
la table STUDINFO .DB , elles se sont egalement affichees . Cependant , si la propriete Ac - 
tive est restee a False, rien n'est visible. 

4. Lancez l'application. Vous pouvez reellement entrer des donnees dans la grille. Tapez un 
numero de securite sociale, puis appuyez sur Tab, et entrez un nom d'etudiant. Parcourez 
les champs a l'aide de Tab jusqu'a la fin de l'enregistrement. A la fin de l'enregistrement, 
le controle DBGrid fait passer automatiquement le curseur sur la ligne suivante. Ajoutez 
encore quelques enregistrements. Remarquez qu'en creant deux enregistrements compor- 
tant le meme numero de securite sociale, une erreur se produit. Nous gererons cela un peu 
plus loin. 

5. Fermez l'application, et ajoutez un nouveau controle : le controle DBEdit. II permet d'af- 
ficher un champ de la table. A l'oppose du controle grille permettant d'afficher plusieurs 
enregistrements, le controle DBEdit affiche un champ de l'enregistrement courant. L'en- 
registrement courant est celui utilise par le moteur de bases de donnees a un instant donne. 
Le controle grille indique l'enregistrement courant en placant une fleche a sa gauche. 

6. Ajoutez un controle DBEdit a votre fiche, et mettez sa propriete DataSource a dsStudent. 
Vous devez maintenant specifier le champ a afficher. Mettez SSN dans la propriete Data - 
Field. 

7. Lancez l'application. La Figure 1 1 .7 montre l'application en cours d'execution. 



rt j Infos etudiants 




Vous remarquerez que lorsqu'un enregistrement est deplace ou selectionne dans la grille, cela 
modifie l'enregistrement courant. Cette application donne un certain controle a l'utilisateur, 
mais il serait difficile de se deplacer ainsi dans une grosse table. Delphi possede un controle 
permettant de se deplacer dans une table : le DBNavigator. C'est une barre d'outils integree 
permettant une navigation facile dans une table. 
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fljouf dun DBNavigator 



La base de donnees est fonctionnelle, vous devez maintenant ajouter des outils permettant de 
naviguer d'un enregistrement a l'autre. Vous pourriez coder ces fonctionnalites vous-meme, 
mais il existe une methode plus simple : l'utilisation d'un controle DBNavigator. Procedez ainsi 
pour l'ajouter a votre application : 

1 . Selectionnez le controle DBNavigator et placez-le sur la fiche. Mettez sa propriete Data - 
Source adsStudent. 

2. Mettez la propriete ShowHint a True. Cela provoque l'affichage d'une bulle d'aide cha- 
que fois que la souris est placee sur l'une des icones de la barre d'outils. 

3. Lancez l'application. Remarquez avec quelle facilite vous pouvez vous deplacer d'un en- 
registrement a l'autre, aller au premier ou au dernier enregistrement, ou editer des enre- 
gistrements. La Figure 1 1 .8 montre la nouvelle application avec l'ajout du DBNavigator. 

Figure 11.8 ^BSSMS^^^^^^^^^^^^^^^^MJnM 



Vous avez cree une application entierement fonctionnelle sans ecrire une seule ligne de code. 
Voyons maintenant comment manipuler les controles de base de donnees depuis Delphi a 
l'aide de Pascal Objet. 



flcceder oux bases de donnees o l'aide de codes 



Apres avoir vu comment acceder aux bases de donnees en manipulant des composants visuels 
grace a l'EDI, vous allez apprendre la manipulation des composants en utilisant la couche objet 
de Pascal. Les composants bases de donnees possedent un impressionnant jeu d'evenements, 
de proprietes et de methodes pouvant etre appeles depuis une unite Delphi. 



Ajout d'un DBNavigator. 
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Un DataSet (ensemble de donnees) peut se trouver dans l'un des six etats suivants : dsEdit, 
dsBrowse, dslnsert, dslnactive, dsSetKey ou dsCalcFields. L'etat vous donne des informations 
sur les interactions entre l'application et les donnees. Pour visualiser des enregistrements, l'etat 
devrait etre dsBrowse. Si une application doit modifier un enregistrement, le DataSet doit etre 
mis dans l'etat dsEdit. La verification de l'etat d'un DataSet ne peut se faire qu'a l'execution 
en consultant la propriete State. Pour changer cet etat, vous pouvez utiliser les methodes 
Insert, Edit, Post, Cancel, ou Append. La methode Insert a pour effet d'inserer un nouvel 
enregistrement a la position courante et de passer cet enregistrement en mode edition. Pour edi- 
ter 1' enregistrement en cours, il est possible d'utiliser la methode Edit. 

L'une des fonctionnalites les plus puissantes du moteur de bases de donnees Borland est la pos- 
sibility de valider ou d'annuler des changements pendant l'edition des enregistrements. Quand 
un DataSet est en mode Edit, on peut effectuer des changements dans un grand nombre de 
champs. Quand tous les changements sont faits, ils sont valides en appelant la methode Post. 
Cependant, si pour une raison ou une autre l'application a besoin de restaurer les valeurs pre- 
cedentes, on peut utiliser la methode Cancel. Le Listing 11.1 montre comment valider ou 
annuler les changements operes sur un enregistrement. 

Listing 11.1 : Confirmation des modifications 

IVar 
Save:integer; 
begin 
Save :=Application.MessageBox( 'Enregistrer ?', 'Confirmation ' ,mb_yesno) ; 
if Save = IDYES then 
Studinfo.Post {Valider la transaction} 
else 
Studlnfo. Cancel {Annuler la transaction}; 
end; {Procedure} 

Dans cet exemple, une boite de dialogue est affichee dans laquelle on demande a V utilisateur 
de confirmer les modifications apportees a I' enregistrement qu'il vient d' editer. Si V utilisa- 
teur choisit OUI, on execute alors la methode Post sur le DataSet, afin de sauvegarder les 
modifications. S'il choisit NON, on applique alors la methode Cancel pour annuler les modi- 
fications apportees lors de la phase d' edition. II y a un probleme dans ce bout de code : si le 
DataSet n' est pas en mode dsEdit et qu'on tente d'executer une methode Post ou Cancel, une 
erreur se produira. Des lors, comment verifier qu'on se trouve bien en mode edition ? La 
propriete State vous permet de savoir dans quel mode est le DataSet. Une version plus fiable 
de ce code figure dans le Listing 11.2. 
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Listing 11.2 : Confirmation des modifications et verification de la propriete State 
Var 

Save:integer; 
begin 

if Studinfo. State = dsEdit then 
begin 

Save :=Application.MessageBox( 'Enregistrer ?, 'Confirmation' ,mb_yesno) ; 
if Save = IDYES then Studinfo . Post {Valider la transaction} 

else 

Studinfo. Cancel; {Annuler la transaction} 

end 
else 

Application .MessageBox( 'Mode incorrect 1 , 'Erreur' ,mb_ok) ; 
end; {Procedure} 

Ces deux exemples montrent comment contrdler les enregistrements a partir du code. Votre 
application peut prendre la decision logique de valider ou d' annuler les modifications. 
Voyons maintenant comment acceder aux champs de donnees. 



Acceder aux champs 



II est souvent utile pour un programme de pouvoir acceder aux champs d'une base de donnees 
et de les modifier. Delphi facilite ces manipulations. La propriete Fields d'un DataSet decrit 
plus que les valeurs des champs. Elle contient egalement des informations sur la structure de 
la table. Par exemple, la propriete Fields peut donner le nom des champs, leur type, leur taille, 
et les valeurs de l'enregistrement courant. Les objets TTable possedent un tableau de champs. 
Ce tableau peut etre modifie en utilisant l'editeur de champs et en ajoutant, en enlevant ou en 
modifiant des definitions de champs. Pour commencer par le cas le plus simple, si l'application 
connait la definition de la table, elle peut acceder aux champs directement sans se preoccuper 
de ce qu'ils representent ou de leur type. Dans la table Studinfo, par exemple, SSN est la pre- 
miere colonne. Des lors, Studinfo. Fields[0] .AsString represente la valeur de SSN pour 
l'enregistrement courant. Remarquez que les indices de tableau commencent a zero et que le 
type des donnees doit etre connu afin d'y acceder correctement. Si vous voulez afficher le 
numero de securite sociale dans une boite de texte, vous pouvez ecrire : 

SSN. Text := 'NoSS='+StudInfo.Fields[0] .AsString 

Supposons que vous vous soyez trompe, et que vous ayez cru que SSN etait un nombre entier. 
Vous auriez done tape : 

SSN. Text :='NoSS='+IntToStr(StudInfo.Fields[0] .Aslnteger) ; 

La compilation se fait sans erreur. Cependant, quand l'instruction est executee, une exception 
se produit. Comment l'eviter ? II est possible de s'assurer du type et du nom de chaque colonne. 
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Cela peut etre necessaire si vous devez ecrire un programme generique de manipulation de 
bases de donnees dans lequel les types sont inconnus a priori, Le Listing 1 1 .3 verifie le type 
des donnees et le nom des champs avant de tenter d'acceder aux donnees. 

Listing 11.3 : Verification du nom du champ et de son type 

I begin 
if not(StudInfo.Fields[0] . DataType=ftString) then 
begin 
Application .MessageBox( 1 Erreur de type (champ 0)','Erreur BD ' , mb_ok) ; 
exit ; 
end; {si} 
if not(comparetext(StudInfo.Fields[0] .FieldName, 'SSN' )=0) then 
begin 
Application .MessageBox( 1 Nom de champ errone (champ 0) 1 , 
1 Erreur BD 1 , mb_ok) ; 
exit ; 
end; {if} 
Application. MessageBox( 'Champ 0: Type=f tString Nom=SSN 1 , 
1 Information ' , mb_ok) ; 
end; {procedure} 

Dans cet exemple, le type du champ est verifie. Si la routine rencontre autre chose qu'un 
champ de type ftString elle ajfiche un message d' erreur, et sort. De la meme fagon, si le nom 
du champ n'est pas SSN, une erreur est signalee et le programme sort. Si la procedure 
parvient a remplir les deux conditions, vous pouvez etre certain que le nom du champ et son 
type sont valides. 

II est souvent difficile d'acceder a un champ par son numero de colonne dans la table. Delphi 
vous permet d'acceder aux champs par leur nom. Utilisez la methode FieldByName en la fai- 
sant suivre du type de champ. Par exemple, pour acceder au champ Classe de l'enregistrement 
en cours et mettre sa valeur dans une boite de liste, procedez ainsi : 

Editl .Text:=Studinfo.FieldByName( 'Classe' ) .AsString; 

Modifier les champs dans une Table 

Par defaut, un composant TTable utilise tous les champs de la table a laquelle il est relie. 
Cependant, Delphi permet au developpeur de modifier les champs utilises, d'ajouter de nou- 
veaux champs derives des anciens a partir de calculs, et de fixer les attributs de chaque champ. 
Pour acceder a l'editeur de champs d'un composant TTable, double-cliquez sur une instance 
de TTable. Cela fait surgir une boite de dialogue ou vous pouvez ajouter, enlever ou redefinir 
des champs. Cette boite donne egalement acces de facon simple aux composants TField. Un 
champ est un type derive de TField qui contient en plus les informations specifiques au type 
de donnees considere. Par exemple, si l'un des champs est une chaine, le champ est de type 
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TStringField. Tout comme les autres composants, les champs possedent des proprietes et ont 
des evenements. Cela permet d'avoir des proprietes differentes pour chaque champ d'une 
table. Si par exemple vous desirez empecher l'utilisateur de modifier un champ donne, tout en 
lui laissant libre acces aux autres, vous mettez la propriete Readonly du champ susmentionne 
a True. II existe un grand nombre de proprietes relatives a l'affichage des donnees dans les 
controles orientes donnees. La propriete Alignement, par exemple, permet de specifier si on 
doit aligner a droite, a gauche ou au centre, les donnees dans la zone d'affichage. Pour les nom- 
bres flottants, Precision permet de specifier a quelle decimale se fait l'arrondi. 

Navigation dans les enregistrements 

Vous avez deja vu le composant DBNavigator permettant de se deplacer d'un enregistrement 
a 1' autre, ainsi que de se placer en debut ou en fin de table. Cela peut egalement etre fait depuis 
le code. Pour changer 1' enregistrement actif , cinq methodes sont disponibles dans le composant 
TTable. Elles sont decrites dans le Tableau 1 1 .8. 

Tableau 11.8 : Methodes de navigation de DataSet 



Methode Effet 

Next Se deplace sur 1' enregistrement suivant. 

Prior Se deplace sur 1' enregistrement precedent. 

First Va au premier enregistrement. 

Last Va au dernier enregistrement. 

MoveBy ( I ) Se deplacer de I enregistrements. Si I est positif , vers la fin 

de la table, si I est negatif, vers le debut. 



II est important de savoir qu'en mode Edition, un changement d' enregistrement actif provoque 
un Post implicite, et que les modifications sont done enregistrees. II est alors trop tard pour 
effectuer un Cancel qui annulerait les modifications. Lorsqu'on navigue dans une table, il est 
souvent utile de savoir si Ton est arrive au premier ou au dernier enregistrement. Pour cela, on 
utilise les proprietes BOF et EOF. 

BOF est vraie lors du lancement de l'application, apres un appel a la methode First , ou quand 
une methode Prior echoue car l'enregistrement est deja le premier de la table. 

EOF est vraie si la table est vide, apres un appel a la methode Last , ou si un appel a la methode 
Next echoue parce que Ton est en fin de l'ensemble de donnees. 

L'une des actions les plus classiques sur un dataset est d'effectuer une operation sur chaque 
enregistrement. Dans l'exemple suivant, la procedure se place sur le premier enregistrement et 
boucle sur chacun des enregistrements suivants jusqu'a ce que la propriete EOF soit vraie. Sur 
chaque enregistrement on execute la methode Edit afin de pouvoir modifier la valeur de l'enre- 
gistrement. Dans cet exemple, un numero de chambre de dortoir est assigne de facon aleatoire 
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a chaque etudiant Pour cela, on genere un nombre aleatoire entre 0 et 1 . Si le nombre est plus 
petit que 0,5 on affecte l'etudiant a un des dortoirs (StudInfo.Fields[6]), sinon a l'autre. 
Apres avoir effectue les modifications, on execute la methode Post pour sauvegarder les modi- 
fications. Le code source de cet exemple est dans le Listing 1 1 .4. 

Listing 11.4 : Deplacement dans un DataSet pour modifier chaque enregistrement 

I procedure TForml .AssnDormsClick(Sender: TObject); 
begin 
Studinfo . First ; {Premier enregistrement} 
Studlnf o . DisableControls ; { accelere le traitement } 
while Not (Studinfo . EOF) do {Dernier enregistrement ?} 
begin 
Studinfo. Edit; 
{Generation d'un nombre aleatoire} 
{Acces aux champs par la propriete Fields} 
if random > 0.5 then 
Studinfo. Fields[6] .AsString := 'DortoirA' 
else 
Studinfo. Fields[6] .AsString := 'DortoirB 1 ; 
Studinfo. Post; { Post explicite (inutile mais plus clair)} 
Studinfo. Next; { Enregistrement suivant } 
end; {fin de la boucle} 
Studlnf o . EnableControls ; { Ameliore les performances } 
end; {fin de la procedure} 

Remarquez que les controles sont desactives pendant la boucle afin d'am'eliorer les perfor- 
mances, puis retablis a la fin de la boucle. De cette fagon, les controles ne se remettent pas a 
jour pendant les operations, ce qui occasionnerait une perte de temps. 

Champs calcules 

Vous souhaiterez souvent extraire des donnees a partir d'une base de donnees, sans qu'il soit 
logique de stacker les informations calculees dans la table. Par exemple, si un inventaire est 
constitue d'une table ou chaque item voit figurer son nombre en stock et son poids, il est inutile 
de stocker le poids total des items en question. Ce poids total peut etre infere en multipliant le 
nombre d'items par le poids de chacun. Si vous avez 120 lecteurs de CD-ROM pesant 2 kg cha- 
cun, le poids total est de 240 kg (cela peut etre utile pour calculer des frais de transport). II fau- 
drait done que Delphi soit a meme de calculer et d'afficher le poids total chaque fois que e'est 
necessaire. Stocker ce poids total dans la table est complique, puisqu'il faut le recalculer a cha- 
que modification, et encombrant, parce que ces donnees sont redondantes. II existe done un 
type de champ adapte a ce genre de manipulations, les champs calcules. On les appelle champs 
calcules parce qu'ils se calculent a partir des autres champs de la table. L'avantage est qu'ils 
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ne sont pas stockes dans la table : ils sont reevalues chaque fois qu'il est necessaire de les 
consulter. Pour ajouter des champs calcules, utilisez l'editeur de champs auquel on accede par 
un double-clic sur le composant TTable. Cliquez sur le bouton Definir. Vous devrez fournir un 
nom pour le nouveau champ et preciser son type. Un nom de composant est cree par defaut, 
mais vous pouvez le modifier a votre guise. L'etape suivante consiste a inserer le code permet- 
tant de calculer la valeur du champ. Delphi execute la procedure dans le Gestionnaire d'evene- 
ments OnCalcFields chaque fois qu'il est necessaire de recalculer un champ. Tant que le 
DataSet est dans le Gestionnaire d'evenements OnCalcFields, sa propriete State vaut 
dsCalcFields. Dans cet etat, seuls les champs calcules peuvent etre modifies. 

Regardons une application simple. La boutique du Jeune Campeur veut une base de donnees. 
Apres analyse, on arrive a la table detaillee au Tableau 1 1 .9. 



Tableau 11.9 : Attributs de la table du Jeune Campeur 



Nom 



Description 



CodeProduit 

MetresCube 

CoutParMetre 

KgParMetre 

ValeurMarchande 

KgsEnStock 



Index du produit 

Nombre de metres en stock 

Prix au metre 

Poids au metre 

Valeur totale du stock 

Poids total en stock 



On pourrait creer cette table telle quelle et creer une application pour acceder aux donnees et 
les mettre a jour. Cependant, il existe des relations entre les champs. Quand le champ Metres- 
Cubes change, le poids total du stock et la valeur totale changent. D'autre part, si les prix chan- 
gent, la valeur totale change egalement. Des lors, creer la table en stockant tous ces champs 
demanderait des mises a jour complexes chaque fois qu'une valeur est modifiee. En utilisant 
des champs calcules, on elimine une bonne partie du travail. Nous allons done construire la 
table en omettant les champs ValeurMarchande et KgsEnStock dans la structure. Ajoutez ces 
deux champs sous forme de champs calcules. La Figure 1 1 .9 montre l'editeur de champs utilise 
pour creer le nouveau champ ValeurMarchande, de type CurrencyField. 



Figure 11.9 

L'editeur de champs. 



Description 

CodeProduit 

MetresCubes 

CoutParMetre 

ValeurMarche 

KgEnStock 
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L'etape finale consiste a placer dans OnCalcFields le code necessaire au recalcul des champs 
calcules. Cette procedure est detaillee dans le Listing 1 1 .5. 



Listing 11 .5 : Code utilise pour calculer les champs 

procedure TForml . InventoryCalcFields (DataSet : TDataset); 
Var 



CurrentPrice 

LbsPerYard 

YardsInStock 



double; { conversion pour empecher les debordements} 

double; 

double; 



begin 

{stockage des champs dans des variables locales } 
{pour rendre la source plus lisible} 



CurrentPrice 

LbsPerYard 

YardsInStock 



Inventory . FieldByName ( 1 CoutParMetre 1 ) . AsFloat ; 
Inventory . FieldByName ( 1 KgParMetre 1 ) .AsFloat ; 
Inventory . FieldByName ( 1 MetresCubes 1 ) .AsFloat ; 



{Affectation des champs calcules} 
Inventory . FieldByName ( 1 ValeurMarchande 1 ) .AsFloat : = 

CurrentPrice * YardsInStock; 
Inventory . FieldByName ( 1 KgsEnStock 1 ) .AsFloat : = 
LbsPerYard * YardsInStock; 
end; {Procedure} 

Dans ce Gestionnaire d'evenements, les variables locales sont initialisees a lew valeur dans 
I'enregistrement courant. Elles servent ensuite a calculer la valeur des champs calcules. 

Index 

Un index est une facon de trier les enregistrements d'une table en fonction d'un critere, afin 
d'accelerer les recherches. Au sens le plus general des bases de donnees relationnelles, un 
champ peut etre une cle sans pour autant etre indexe. Cependant, sous Paradox et dBASE, defi- 
nir une cle cree automatiquement l'index associe. Le gros avantage de cet index est qu'il acce- 
lere les tris et les recherches sur le champ indexe. Considerons par exemple une table contenant 

10 000 enregistrements. Pour trouver I'enregistrement dont le Nom de Famille vaut Dupond, 

11 faudra au pire 10 000 iterations, et en moyenne 5 000. Si par contre le champ Nom de Famille 
est indexe, la recherche se fera en 14 iterations en moyenne. Le gain de temps est considerable. 

La plupart des SGBD permettent d'avoir plus d'un index par table. Avant de vous montrer 
comment creer des index supplementaires en utilisant le Module base de donnees, regardons 
quels inconvenients cela peut avoir. II est vrai qu'en creant un index on gagne enormement en 
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vitesse, mais uniquement en recherche et en tri. A l'inverse, creer un index ralentit les opera- 
tions d'insertion, de mise a jour, et fait augmenter la taille de la base. En conclusion, lorsque 
vous creez une nouvelle table, cherchez les colonnes qui serviront souvent a des recherches ou 
a des tris, et ne mettez d'index que sur celles-ci. Un des avantages de la separation entre le sys- 
teme de gestion de base de donnees et l'application est que s'il s'avere necessaire de creer un 
nouvel index pour augmenter les performances, cela peut etre fait a n'importe quel moment. 

Nous avons appris qu'un index est automatiquement cree pour la cle. Est-il necessaire pour en 
construire un de disposer d'un champ-cle ? Non, seul le premier index doit etre sur un champ 
cle, les autres n'ont pas cette restriction. La facon la plus simple de creer des index sur autre 
chose que la cle primarite est d'utiliser le Module base de donnees. Voyons comment faire sur 
STUDINFO.DB. 

HjouN'un index 

Maintenant que vous connaissez la fonction des index, ajoutons-en un a notre base de donnees : 

1 . Ouvrez le Module base de donnees en utilisant 1' option Outils de la barre de menu. 

2. Dans le Module base de donnees, choisissez Fichier/Ouvrir/Table. 

3. Dans le lecteur (ou Alias), choisissez DBDEMOS. 

4. Choisissez STUDINFO.DB, puis cliquez sur OK. 

si Delphi est lance et que l'application accede a la table, mettez a False la propriete Active 
de I'objet TTable, sans quoi il vous sera impossible de modifier la table. 

5 . Choisissez Table/Restructurer. Ceci vous donne acces a tous les champs de la table STU- 
DINFO. 

6. Dans la liste deroulante Proprietes de la table, choisissez Index Secondaires. 

7. Cliquez sur Definir. 

8. Choisissez le champ Nom et cliquez sur le bouton comportant une fleche vers la droite. 
Cette operation deplace le champ Nom dans la boite des champs indexes. Cliquez sur OK. 

9. Le Module base de donnees vous demande un nom pour l'index. Tapez Nomlnd, puis cli- 
quez sur OK. La Figure 1 1 .10 montre le nouvel index secondaire ajoute a la table. 

10. Cliquez maintenant sur Enregistrer, puis sur Fichier/Quitter : vous quittez le Module base 
de donnees. 
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Figure 11.10 

Definition d'un index secondaire 
sur un champ. 




Maintenant que vous savez indexer une table, comment faire les recherches sur un enregistre- 
ment donne ? 

Trier des enregistrements 

Quand on navigue d'un enregistrement a l'autre, l'ordre de parcours est determine par l'index 
actif. La propriete IndexName de l'objet TTable determine l'index en cours d' utilisation. Si 
aucun index n'est specifie, l'index primaire est utilise pour trier les enregistrements. L'autre 
facon d'indiquer a Delphi l'index a utiliser est la propriete IndexFieldNames. Remarquez que 
ces deux proprietes ne peuvent etre utilisees en meme temps. Chaque fois que vous modifiez 
l'une d'entre elles, l'autre s'efface. Prenez l'exemple du cas ou vous desirez changer l'ordre 
de tri en passant par un menu. Vous pouvez alors changer la propriete IndexFieldNames (voir 
Listing 11.6). 

Listing 11.6 : Changement de l'ordre de tri par un menu 

procedure TForml .Order_By_NameClick(Sender: TObject); 
J begin 

Order_By_Name. Checked := True; 
Order_By_SSN. Checked := False; 
Studlnfo . IndexFieldNames := 'Norn'; 
end; 

Au depart, V element de menu Order_By_SSN est non coche. On le coche afin d'indiquer quel 
index est utilise, puis on modifie la propriete IndexFieldNames de facon concordante. 

Rechercher des enregistrements 

Jusqu'a present nous nous sommes contentes de naviguer dans la table et de modifier l'ordre 
de tri des enregistrements. Supposons cependant que vous desiriez acceder a un enregistrement 
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particulier de la table. L'une des methodes possibles consiste a explorer la table enregistrement 
par enregistrement jusqu'a trouver le bon. Cette methode est envisageable mais elle neglige 
grandement les possibilites du moteur de bases de donnees. Les outils inclus dans l'objet TTa- 
ble permettent de faire des recherches de facon rapide et simple. II y a cependant une limitation 
importante a ne pas oublier : seuls les champs indexes peuvent etre utilises avec ces outils. 

Deux techniques sont disponibles pour effectuer des recherches : SetKey et FindKey. La 
demarche utilisee pour rechercher des enregistrements n'est pas intuitive. II faut tout d'abord 
mettre la table dans l'etat approprie. Pour cela, on utilise la methode SetKey. Une fois cette 
methode appelee, la table est dans l'etat dsSetKey. Par exemple, pour passer la table Studinfo 
dans l'etat dsSetKey, il faudra executer : 

Studinfo. SetKey; 

Une fois que la table est dans l'etat approprie, assignez au champ sur lequel vous effectuez la 
recherche la valeur desiree. Cette approche est un peu surprenante, parce que votre code sem- 
ble affecter la valeur recherchee au champ au lieu de chercher le champ contenant la valeur 
recherchee. Mais n'oubliez pas que vous n'etes pas dans l'etat dsEdit, mais dans l'etat dsSet- 
Key. Cette instruction a pour effet de specifier au moteur de base de donnees la valeur recher- 
chee. Commencons par un exemple simple, une recherche sur la cle primaire. Pour trouver 
l'enregistrement correspondant a la cle, donnez au champ cle la valeur recherchee. Par exem- 
ple, pour rechercher dans STUDINFO l'etudiant dont le numero de securite sociale est 
1661 193105687, vous devez executer : 

Studinfo. FieldByName( 'SSN' ) . Assting := 1 1 661 193105687 1 ; 

Enfin, pour se placer sur l'enregistrement recherche, vous devez terminer la recherche en exe- 
cutant la methode GotoKey. Dans notre cas, vous devrez faire : 

Studinfo. GotoKey; 

Qu' arrive- t-il si l'enregistrement recherche n'existe pas ? L'enregistrement courant ne chan- 
gera pas, et GotoKey renverra False. 

Cette methode est efficace si vous recherchez une valeur exacte. Cependant, comment faire si 
seule une partie du champ a rechercher est connue ? Dans ce cas, on utilise la methode Goto - 
Nearest qui recherche l'element ressemblant le plus au critere de recherche. Supposons que 
vous desiriez implementer une fonction recherchant un etudiant connaissant uniquement le 
debut de son numero de securite sociale. Le Listing 1 1 .7 propose une solution a ce probleme. 

Listing 11.7 : Recherche sur un numero de securite sociale 

procedure TForml .SearchSSNClick(Sender: TObject); 
J begin 

Studinfo. SetKey; 

Studinfo . FieldByName ( 'SSN' ) .AsString := teSSNSearch . text ; 
Studinfo . GotoNearest ; 
end; 
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Cette procedure place la table Studlnfo dans I'etat SetKey, puis assigne au champ SSN la 
valeur de la botte de texte teSSNSearch. Lors de I 'execution de GotoNearest, V enregistre- 
ment courant devient celui dont le num'ero de s'ecurit'e sociale est le plus proche de celui 
recherche. 

Naturellement, tout cela semble un peu long et complique. II existe heureusement des raccour- 
cis pour faire toutes ces operations en une seule ligne : les methodes FindKey et FindNearest. 
Lors de leur execution, Delphi encapsule les instructions SetKey, Search Criteria, et Goto 
dans une seule fonction a laquelle on passe les valeurs a rechercher. Le Listing 1 1 .7 peut etre 
simplifie pour obtenir le Listing 1 1 .8. 

Listing 11.8 : Recherche avec moins de code (plus difficile a lire) 

procedure TForml .SearchSSNClick(Sender: TObject); 
begin 

Studinfo.FindNearest( [teSSNSearch. text] ) ; 

end; 

Un des avantages de la m'ethode SetKey est que vous n'etes pas oblige de connaitre I'ordre 
des champs indexes. Si vous disposez par exemple d'une table indexee sur Nom et Prenom, 
vous pouvez combiner les methodes SetKey et FieldByName pour qffecter une valeur au 
champ Nom, et une autre au champ Prenom. Vous utilisez ensuite GotoKey ou GotoNearest et 
n'avez jamais de problemes. Par contre, avec la m'ethode FindKey, vous devez fournir les 
deux valeurs en une seule fois. Mais,faut-il appeler 

IRS. FindKey ([ 'Anne-Sophie ' , 'Juppe' ]) ; 

ou plutot 

IRS. FindKey ([ 'Juppe' , 'Anne -Sophie' ]) ; 

Le probleme est qu 'a moins d'etre sur de I 'ordre dans lequel Delphi attend les arguments, vous 
risquez de ne pas trouver les enregistrements que vous recherchez. 

Recherche sur des index secondares 

Effectuer une recherche sur autre chose que 1' index primaire se fait en modifiant la valeur de 
la propriete IndexName ou IndexFieldNames tout comme vous l'aviez fait pour modifier 
I'ordre de tri. En consequence, pour faire une recherche par nom dans la table Studinfo vous 
executez le code du Listing 1 1 .9. 

Listing 11.9 : Recherche sur une cl'e secondaire 

procedure TForml .SearchNameClick(Sender: TObject); 
begin 

Studlnfo. SetKey; 

Studlnfo . IndexName := 'Namelnd'; 



LE PR*)GRAMMEUR 




Studinf o . FieldByName ( 1 Nom 1 ) .AsString := teNameSearch . text ; 
Studinfo.GotoNearest; 
end; 



lyse 



Ce programme effectue la meme recherche que celui du Listing 11.7, mais nous avons specifie 
un index de recherche autre que V index primaire, grace a la ligne 



Stud In fo . IndexName : = ' Namelnd ' 



Se limiter a une etendue d'enregisfremente 

II est souvent interessant de restreindre les enregistrements d'une table selon un certain critere. 
Par exemple, vous pouvez decider de ne considerer dans la table Studinfo que les etudiants en 
premiere annee, ou bien uniquement ceux dont la moyenne depasse 3,6. Ces operations limi- 
tent l'etendue de la table car vous travaillez sur un sous-ensemble des donnees. Une fois que 
vous avez defini l'etendue, tout se passe comme si les enregistrements n'en faisant pas partie 
n'existaient pas. La methode SetRange permet de definir une etendue. Le Listing 11.10 vous 
montre comment choisir un index par son nom et delimiter une etendue. La derniere procedure 
montre comment supprimer une contrainte d'etendue en utilisant la methode CancelRange. 

Listing 11 .10 : Affichage d'un sous-ensemble de table grace a la methode SetRange 

procedure TForml . RangeFreshClick (Sender : TObject); 
begin 

Studinf o . IndexName := 'Classlnd'; 
Studinfo. SetRange( [ 'Deugl ' ] , [ 'Deugl 1 ] ) ; 
end; 

procedure TForml . RangeDeansClick (Sender : TObject); 
begin 

Studinfo. IndexName := 'Gpalnd'; 
Studinf o. SetRange ( [3,6] , [5] ) ; 
end; 

procedure TForml .All1Click(Sender: TObject); 
begin 

Stud Info. CancelRange; 
end; 

|||Cp Ce programme illustre plusieurs types d' utilisation de la methode SetRange pour limiter la 
' quantite d' informations renvoyee. La premiere procedure specifie Vindex puis l'etendue. La 
seconde utilise Vindex GPAInd avant de definir l'etendue entre 3.6 et 5. Enfin, la derniere 
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procedure effectue un CancelRange pour permettre la recherche dans tous les enregistre- 
ments. 

Validation des soisies dons une Table 

Dans un monde meilleur, les utilisateurs se comporteraient comme l'imaginent les program- 
meurs. Ce n'est pas le cas, un utilisateur finit toujours par trouver une facon bien a lui d'utiliser 
une application. Bien qu'il soit impossible de tout prevoir, il existe cependant quelques tech- 
niques pour stabiliser l'application et forcer l'utilisateur malicieux a saisir des donnees confor- 
mement a l'esprit general du developpeur. Nous allons done voir les methodes utilisables pour 
controler les donnees saisies dans une base de donnees : 

• Composants de selection 

• Masques de saisie 

• Contraintes placees au niveau de la base de donnees 

• Propriete Validation des objets Tf ield et TTable. 

Composants de selection au lieu des composants a 
saisie libre 

Pour que votre application soit conviviale, ne laissez pas l'utilisateur commettre d'erreurs : uti- 
lisez des boutons radio, des listes deroulantes, etc., chaque fois que 1' occasion se presente. Les 
controles orientes donnees les plus dangereux sont les boites de texte et les champs memo. lis 
permettent a l'utilisateur de rentrer n'importe quoi. En utilisant cette technique, vous dissiperez 
quelques causes de conflits avec les utilisateurs. 

Masques de saisie 

La premiere chose possible a faire pour inviter l'utilisateur a saisir ce qu'on lui demande con- 
siste a utiliser des masques de saisie. Un masque de saisie est une propriete de chaque compo- 
sant a zone de saisie, empechant les saisies qui ne suivent pas un format predefini. Si vous 
desirez que l'utilisateur saisisse un numero de telephone, certains tenteront d'ecrire (16 1) 
44 44 44 44, d'autres 16144444444. Ces deux saisies sont valides, mais il serait bon qu'elles 
soient rentrees avec le meme format. On construit un masque de saisie en specifiant des regies 
contraignant chaque valeur de la zone de saisie. Par exemple, un numero de telephone pourrait 
avoir comme masque 00\-00\-00\-00;l;_, qui permettrait de saisir 44-44-44-44, mais pas A3- 
45-1 1-42, car le masque specifie que tous les caracteres doivent etre des chiffres, et qu'ils doi- 
vent etre saisis sous la forme XX-XX-XX-XX. Merveilleux, mais comment definir un masque 
de saisie ? Delphi comporte une boite de dialogue dediee aux masques de saisie. Pour faire sur- 
gir cette boite, double-cliquez sur la propriete MaskEdit d'un objet Tfield (voir Figure 1 1 .10). 
L'editeur de masques comprend une liste des formats couramment utilises ainsi qu'un champ 
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pour creer ses propres masques. Pour en savoir plus sur MaskEdit, consultez la rubrique d'aide 
de Delphi. 



Figure 11.11 

L'editeur de masque de saisie. 




Contraintes placees au niveau de la base de 
donnees 

La propriete MaskEdit est efficace au niveau de l'application. Cependant, si differentes appli- 
cations accedent a la meme base de donnees, il serait plus agreable de pouvoir gerer les 
contraintes au niveau de la base et non au niveau de l'application. Chaque SGBD a ses propres 
fonctionnalites, mais la plupart possedent des outils pour contraindre les donnees d'un champ. 
Pour plus de simplicity, nous allons nous restreindre aux criteres de validation de Paradox. Ces 
criteres sont stockes dans la base de donnees, ce qui garantit son integrite meme si plusieurs 
applications y accedent. Les contraintes disponibles sont : 

• Rendre obligatoire la saisie d'un champ. 

• Fixer une valeur minimale pour un champ. 

• Fixer une valeur maximale pour un champ. 

• Donner une valeur par defaut a un champ. 

On utilise le Module base de donnees pour definir ces criteres. N'oubliez pas que si votre appli- 
cation utilise la base de donnees que vous allez manipuler avec le Module base de donnees, 
vous devez mettre la propriete Active a False avant de lancer le Module base de donnees, ou 
bien fermer le projet. Pour ajouter des criteres de validation, procedez ainsi : 

1 . Selectionnez Outils/Module base de donnees pour lancer le Module base de donnees. 

2. Choisissez Fichier/Ouvrir/Table, et selectionnez la table a laquelle vous desirez ajouter 
des criteres de validation. 

3. Choisissez Table/Restructurer. Cela fait apparaitre la liste des champs de la table, avec 
leurtype. 

4. Verifiez que la liste deroulante Proprietes de la table contient Integrite referentielle Con- 
troles de validite. 
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5. Selectionnez le champ que vous desirez contraindre et saisissez les contraintes dans la 
boite de dialogue. Par exemple, pour mettre une contrainte sur le champ Moyenne de la 
table Studinfo, mettez 0 dans la boite Minimum et 4,0 dans la boite Maximum. 

Le developpeur n'est pas toujour s proprietaire de la base de donnees. II arrivera parfois 
qu'une application Delphi viole les contraintes de validite d'une base de donnees. Dans ce 
cas, une erreur se produira. 

Methode Cancel 

La methode Cancel peut etre utilisee en dernier recours contre les erreurs de saisie de l'utiii- 
sateur. Dans certains cas, les contraintes de validation sont trop sophistiquees pour etre formu- 
lees en termes de masques de saisie ou de contraintes au niveau de la base. Par exemple, le 
professeur Nimbus voudrait creer une base de donnees pour stacker ses nombres premiers 
favoris. La contrainte de validite est done quelque peu complexe a verifier. La solution consiste 
a utiliser un objet dbTextEdit pour demander a l'utilisateur ses nombres premiers favoris, un 
dbNavigator pour se promener dans la base et un bouton Enregistrer pour sauvegarder les 
modifications. Le probleme principal reside dans la validation des donnees. Une possibilite 
consisterait a passer dans l'etat Edit chaque fois que l'utilisateur entre dans la zone de saisie, 
et a desactiver la barre de navigation pour le forcer a utiliser le bouton Enregistrer en fin de 
saisie. On placerait alors le code de validation dans le Gestionnaire d'evenements OnClick 

Rappelons qu'un nombre premier n'a d'autres diviseurs que 1 et lui-meme. 3 est premier, 
mais 14 ne Vest pas car il est divisible par 1,2,7, et 14). L'algorithme utilise ici consiste a 
tenter de diviser le nombre par tous les entiers compris entre 2 et n-1, et a refuser la valida- 
tion si le reste de la division est 0. II y a nettement plus efficace. 

Le Listing 11.11 montre comment utiliser la methode Cancel pour confirmer qu'un nombre est 
premier. 

Listing 11.11 : Validation des nombres premiers par la methode Cancel 

I procedure TForml .EntPrimeEnter(Sender: TObject); 
begin 
Nav. Enabled := False; {Desactiver le Navigator} 
Primes. Edit; {Passage en mode edit} 

end; 
procedure TForml .SaveChangesClick(Sender: TObject); 
Var 
IsPrime : Boolean; 
Count : Integer; 
NumToTest : Integer; 
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begin 

IsPrime := True; 
Count := 2; 

NumToTest := StrToInt(EntPrime.Text) ; 
While (Count < NumToTest) and (IsPrime) do 
begin 

if NumToTest mod Count = 0 

then IsPrime := False; { un diviseur et c'est fini!} 
inc(Count); { incrementation de count} 
end; 

{Si le nombre est premier, stockons-le} 
{Sinon, utilisons la methode Cancel} 
if (IsPrime) then 

Primes . Post 
else 

begin 

Application. MessageBox ( 1 Le nombre n 1 1 est pas 
premier! 1 , 'Attention 1 ,MB_OK) ; 
Primes .Cancel; 
end; 

Nav. enabled := true; {Reactivons le Navigator} 
end; {Procedure} 



IllPO ^ e P ro 8 mmme verifie qu'un nombre est premier avant de I'envoyer dans la base de donnees. 
llpC S'il n'est pas premier, on appelle la methode Primes . Cancel pour annuler la mise a jour sur 
la base de donnees. Si le nombre est premier, on appelle la methode Primes. Post pour 
| confirmer que la donn'ee doit etre ajoutee a la base. 

Proprietes de validaNon des objefs Tfield et TTable 

Nous avons vu trois techniques pour assurer la coherence des donnees saisies par l'utilisateur : 
verifier ce qu'il saisit, valider au niveau de la base, et forcer l'utilisateur a passer par un point 
de controle. La derniere technique que nous allons aborder concerne l'utilisation d'evenements 
et d'exceptions. En utilisant les Gestionnaires d'evenements des objets table et champ, une 
application peut valider les donnees avant qu'elles ne soient enregistrees. Cette methode laisse 
plus de souplesse a l'utilisateur quant a l'ordre de saisie et d'edition des champs. Pourquoi exe- 
cuter les validations au niveau de la table et des champs ? Dans certains cas, un champ peut 
etre declare valide sans connaitre d' informations sur le reste de la base. C'etait par exemple le 
cas pour les nombres premiers. Imaginons cependant une application de caisse enregistreuse. 
Une entree n'est valide que si la somme encaissee est superieure a la somme rendue, et il n'est 
done pas possible d'effectuer de validation similaire a l'exemple precedent. 
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Pour effectuer un controle de validation au niveau des champs, il faut mettre en place un Ges- 
tionnaire d'evenements sur l'evenement OnValidate. Cet evenement a lieu juste avant l'ecri- 
ture des donnees dans la base. Si vous voulez que les donnees soient enregistrees, laissez la 
procedure s'executer. Sinon, mettez en place une exception afin de bloquer l'execution de la 
procedure. Le Listing 11.12 donne une autre version du probleme des nombres premiers. 



Listing 11.12 : Validation par l'evenement OnValidate 
class(Exception) ; 



type 

ElnvalidPrime 



{■■■} 

procedure TForml . PrimesFavPrimesValidate (Sender : TField): 
Var 

IsPrime : Boolean; 
Count : Integer; 
NumToTest : Integer; 



begin 
try 

IsPrime := True; 
Count := 2; 

NumToTest := StrToInt(EntPrime.Text) ; 
While (Count < NumToTest) and (IsPrime) do 
begin 

if NumToTest mod Count = 0 

then IsPrime := False; 
inc(Count) ; 
end; {while} 
if not ( IsPrime) then 
begin 

raise ElnvalidPrime . Create (' Le nombre n''est pas premier'); 
end; {else} 
except du 
on ElnvalidPrime do 
begin 

Application .Messagebox( 1 Nombre non premier ', 1 Erreur 1 ,MB_0K) ; 
EntPrime.Text :=' 1 ; 

if (Primes .State = dslnsert) or (primes .State=dsEdit) 
then Primes. cancel; 
end; 
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Bend; 
end; 

lllCD R emaraue z l es clauses Try et Except utilis'ees pour intercepter I 'exception lorsque vous vous 
IL|DC apercevez qu'un nombre n'est pas premier, ainsi que la methode Exception . Create utilisee 
pour cr'eer une exception utilisateur. Pour effectuer la validation au niveau de I'enregistre- 
| ment, la technique serait semblable, mais appliquee a Vevenement BeforePost. 

GesNon des exceptions 

II est manifeste que votre application doit etre sensible aux donnees non valides. Mais que faire 
lorsque le cas se produit ? II y a des cas ou des exceptions se produisent alors que les controles 
de validite n'ont rien signale d'anormal. Voici quelques-unes des situations les plus courantes : 

• Cles dupliquees — Meme si un champ est rempli de facon coherente, il faut s'assurer que 
la cle n'est pas dupliquee. Si vous tentez par exemple d'inserer un nouvel etudiant et que le 
numero de securite sociale que vous avez saisi appartient a un autre etudiant, votre saisie 
est erronee. Si Delphi laissait les deux enregistrements apparaitre dans la base, le champ 
SSN ne serait plus une cle, ce qui rendrait la base incoherente. 

• Erreur de validation de la base — Nous avons vu precedemment qu'il etait possible de 
mettre des controles de validation au niveau de la base de donnees. Que se passe-t-il si 
l'une de ces contraintes est violee ? Une exception se produit. Votre application doit etre 
en mesure de la detecter et de reagir avec elegance. 

• Operation invalide dans l'etat actuel — II est dangereux de supposer que la table est 
dans un certain etat avant de faire des manipulations dessus, surtout dans un contexte de 
gestion evenementielle. Le comportement de la table varie selon son etat (dsEdit, 
dsBrowse, dslnsert, dslnactive, dsSetKey, dsCalcFields). Si par exemple la table est dans 
l'etat dsEdit, l'instruction 

Studinfo.FieldByName( 'Classe' ) . AsString : = 1 Deugl ' ; 

Mettra Deugl dans le champ Classe, alors que la meme instruction effectuee dans l'etat ds- 
SetKey indiquerait simplement que Ton recherche le premier Deugl . Ces erreurs sont extre- 
mement difficiles a retrouver car elles ne provoquent pas d'exceptions. Certaines le font 
quand meme, par exemple l'utilisation des methodes Post ou Cancel en mode dsBrowse. 

ODBC : une couche d'absfracNon supplementaire 

Le moteur de bases de donnees Borland peut communiquer avec un grand nombre de systemes 
de bases de donnees. Cette caracteristique est interessante si le developpeur veut changer de 
systeme de gestion de bases de donnees. Pour communiquer avec n'importe quel type de sys- 
teme de gestion de bases de donnees, il existe ODBC. 
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ODBC signifie Open Database Connectivity. ODBC vous permet de communiquer virtuelle- 
N0UV60U ment avec n'importe quel SGBD (Systeme de Gestion de Bases de donnees) grace a une inter- 
face g'en'erique appelee pilote ODBC. Le pilote ODBC assure I'interfacage avec un SGBD 
particulier en normalisant les acces a tr avers un ensemble d'appels a une API. 

L'utilisation d'ODBC garantit a l'application un maximum de souplesse, puisqu'il suffit en 
theorie de changer de pilote ODBC pour changer de SGBD. En realite, il y a quelques diffe- 
rences d'un SGBD a l'autre. Si la vitesse d'execution pose probleme, il est possible d'acceder 
directement a l'API ODBC. Cependant, cela introduit un nouveau niveau de difficulty. 



Dans quelles circonsfances uMliser ODBC ? 

II arrive sou vent que le developpeur ne sache pas a quelle echelle developper sa base (locale, 
a fichiers partages, ou Client/Serveur). ODBC permet a ce developpeur de creer une base de 
donnees locale, et de la transformer selon le modele Client/Serveur avec un minimum de modi- 
fications. II pourra egalement arriver que le developpeur soit oblige de tenir compte d'impera- 
tifs de compatibility . Si par exemple une application de paie utilise SyBase SQL, Delphi pourra 
utiliser ODBC pour se connecter a la base de donnees. 

Dans la terminologie ODBC, un pilote ODBC est une libraire qui sait communiquer avec le 
SGBD sous-jacent. Les pilotes ODBC sont souvent fournis par le vendeur du SGBD. Une source 
de donnees ODBC est une instance d'ODBC utilisant un pilote particulier. Par exemple, vous 
pouvez disposer d'un pilote ODBC Sybase SQL server, et RHDATA est une source de don- 
nees ODBC qui est un serveur SQL des donnees relatives aux ressources humaines. II peut y 
avoir plusieurs sources de donnees utilisant le meme pilote, par exemple INVENT pointerait 
vers les informations d'inventaire. 

L'utilitaire ODBCAD32 sert a creer et configurer des sources de donnees. Pour chaque source 
de donnees les informations sont distinctes. Par exemple, une source de donnees ODBC Micro- 
soft Access doit connaitre l'emplacement du fichier .mdb, alors qu'une source de donnees SQL 
devra comporter l'adresse du serveur et l'interface reseau necessaire pour y acceder. 

Pour utiliser un pilote ODBC et communiquer grace a ODBC sous Delphi, vous devez creer 
un nouveau moteur de bases de donnees. Cela peut sembler etrange, mais vous devez creer un 
pilote ODBC vers le SGBD voulu, et un moteur de bases de donnees Borland vers le pilote 
ODBC. Pour creer un moteur de bases de donnees Borland, procedez ainsi : 

1 . Lancez l'utilitaire de configuration de bases de donnees Borland depuis le menu demarrer 
de Windows 95 ou NT. 

2. Cliquez sur l'onglet Configuration. Selectionnez ConfigurationlPiloteslODBC. Faites un 
clic droit sur ODBC, et selectionnez Nouveau dans le menu contextuel. 

3 . Mettez le nom du pilote SQL Link a ODBC_XXXX, ou XXXX est le nom du pilote Bor- 
land que vous voulez creer (voir Figure 11.12). 

4. Selectionnez le pilote ODBC a utiliser pour acceder aux donnees ainsi qu'une source de 
donnees afin de creer un alias ODBC, puis cliquez sur OK. Selectionnez ObjetlQuitter 
pour fermer l'Administrateur BDE. 
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Voila tout pour la creation du pilote. Pour acceder aux donnees, le meilleur moyen est de creer 
un alias en utilisant le Module base de donnees. 



Figure 11.12 

L' Administrates BDE. 
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Base de donnees Microsoft Recess avec ODBC 

Definissez la source de donnees ODBC de la facon suivante : 

1. Lancez ODBCAD32. 

2. Cliquez sur Ajouter dans la boite de dialogue Sources de donnees. La liste des pilotes 
ODBC installed s ' affiche . 

3. Choisissez *.mdb puis cliquez sur Terminer. 

4. Donnez un nom et une description a la source de donnees Access. Dans cet exemple, nous 
mettrons Test Access. 

5. Cliquez sur Choisir. Vous voyez apparaitre une liste de fichiers .mdb. 

6. Choisissez le fichier qui vous interesse. 

7. Cliquez sur OK. Cliquez de nouveau sur OK pour sortir du programme ODBCAD32. 

Avant de pouvoir utiliser le pilote ODBC que vous venez de definir, vous devez executer 
l'Administrateur BDE (il fait partie des programmes installes dans le menu Demarrer). La nou- 
velle source ODBC sera alors automatiquement prise en compte. Quittez l'Administrateur pour 
enregistrer les modifications. 

Pour que la prise en compte des nouveaux pilotes ODBC se fasse automatiquement, il faut 
que le parametre AUTO ODBC de l'Administrateur BDE soit a TRUE. Vous pouvez verifier ce 
parametrage de la f agon suivante : 

1. Executez l'Administrateur BDE. 

2. Selectionnez I'onglet Configuration. 

3. Selectionnez Configuration\Systeme\INIT. 

4. La Definition de INIT apparait alors dans le volet de droite. La propriete AUTO ODBC 
est sur la premiere ligne. 
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Pour utiliser l'alias ODBC sous Delphi, procedez comme ainsi : 

1 . Creez un nouveau projet, et ajoutez un composant TTable. 

2. Mettez la propriete DatabaseName a TstAccess. 

3. Si une boite de dialogue demandant un nom d'utilisateur et un mot de passe apparait, cli- 
quez sur OK. 

4. Notez que les tables de la base de donnees Access sont maintenant disponibles dans la 
propriete TableName. Choisissez une table, et continuez comme avec n'importe quelle ta- 
ble Delphi. 

Si, lorsque vous mettez a TRUE la propriete Active d'un composant TTable, vous obtenez le 
message "objet non trouv'e ', c'est que vous avez oublie d'executer V Administrateur BDE afin 
de mettre a jour la configuration BDE. 

Securite. les mors de passe 

Vous avez entendu parler des pirates informatiques qui recuperent des donnees top secret en 
decodant des informations repiquees sur une ligne de telephone a l'aide d'un Cray 42. II y a 
certes un peu d'exageration dans tout cela, mais la securite est un probleme important qu'il ne 
faut pas negliger. La securite des donnees recouvre l'ensemble des operations permettant a cer- 
tains utilisateurs ou groupes d'utilisateurs d'acceder a des donnees en lecture ou en edition. 
Dans l'exemple des nombres premiers, que se passerait-il si n'importe qui pouvait acceder 
directement a la base de donnees (sans passer par l'application Delphi que vous avez amoureu- 
sement peaufinee) pour aller ajouter le nombre 42, ou 513 (513 non plus n'est pas premier) ? 

Les niveaux de securite 

Differents niveaux de securite sont disponibles selon le SGBD utilise. Nous nous limiterons au 
cas des utilisateurs individuels, laissant de cote les groupes et les autres applications (les fonc- 
tionnalites sont identiques). Les niveaux de securite les plus courants sont : 

• Aucun — Toute personne ay ant physiquement acces aux donnees peut en faire ce qu'elle 
veut. 

• Tout ou rien — Une fois que l'utilisateur a recu le droit d'acceder a la base de donnees, il 
est libre d'y faire ce qu'il lui plait. 

• Multi-utilisateur, au niveau des tables — Chaque utilisateur peut acceder a des tables diffe- 
rentes dans differents modes. Ainsi, un administrateur pourra editer ou modifier des enre- 
gistrement, tandis qu'un utilisateur sans privileges ne pourra que consulter la table. 

• Multi-utilisateur, au niveau des champs — Ce systeme est le plus souple : l'acces peut etre 
defini, utilisateur par utilisateur, table par table, et champ par champ. II est par exemple 
possible de ne voir que certains champs d'une table, et parmi ces champs avoir quelques 
droits de modification, mais pas d'effacement. 



LE PR*)GRAMMEUR 



Les bases de donnees sous Delphi 




HuthenNfiCdNon 

l/Qail Maintenant que vous savez definir des privileges, utilisateur par utilisateur, le probleme prin- 
VCQU cipal est de savoir que tel ou tel utilisateur tente d'acceder a la base. Pour verifier que I'utili- 

sateur est bien qui il pretend etre, on a recours a I'authentification. Quand un utilisateur a 

prouve son identit'e, on dit qu'il est authentifie (ou certifi'e). 

Le moteur de bases de donnees doit egalement savoir authentifier un utilisateur et determiner 
son type d'acces. La facon de proceder la plus courante repose sur des mots de passe. Paradox 
utilise un mot de passe maitre qui definit ce proprietaire. Des mots de passe secondaires peu- 
vent etre definis par ce proprietaire, et il est possible de leur attribuer des acces par champ. Une 
autre methode consiste a authentifier les utilisateurs par leur nom et un mot de passe. Cette 
methode est meilleure car elle repose sur le nom de l'utilisateur et non sur un mot de passe. 
D'un point de vue administratif, le niveau de securite est plus satisfaisant puisque le proprie- 
taire de la base n'a plus a connaitre le mot de passe de chaque utilisateur. 



Trovoiller ovec plus d une table 

L'une des raisons majeures de la preeminence du modele relationnel est qu'il est intuitif et faci- 
le a manipuler. Dans les exemples que nous avons etudies jusqu'ici, nous n'utilisions qu'une 
table, qui contenait toutes les informations. Cependant, ce procede ne peut etre envisage dans 
la majorite des situations. Considerons par exemple une universite desirant garder une trace de 
ses etudiants et des cours qu'ils ont suivis. En se limitant a une seule table, on obtient un resul- 
tat similaire a celui du Tableau 11.11. 



Tableau 11.10 : Representation maladroite des informations relatives aux etudiants 



Identifiant de I'etudiant 


Nom 


Telephone 


Cours 


Appreciation 


12345 


Arthur Accroc 


01-42-24-42-24 


CH101 


C 


12345 


Arthur Accroc 


01-42-24-42-24 


EN333 


A 


12345 


Arthur Accroc 


01-42-24-42-24 


NP343 


A 


34464 


Muad Dib 


03-34-87-02-57 


BI333 


C 


34464 


Muad Dib 


03-34-87-02-57 


NP434 


B 



Cette representation est inefficace car les donnees sont repetees d'un enregistrement a 1' autre, 
et done difficiles a gerer : si un etudiant change de numero de telephone, il faut retrouver tous 
les enregistrements qui lui sont relatifs et les modifier. D'autre part, la redondance systemati- 
que des informations est signe d'une mauvaise utilisation des memoires de masse. S'il devenait 
necessaire d'ajouter un descriptif de chaque cours, la table exploserait sans cause apparente. 
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Ce defaut vient de la conception de cette base de donnees qui ne prend pas en compte les rela- 
tions existant entre les etudiants et les cours qu'ils suivent. Observez maintenant les deux 
tables suivantes qui contiennent autant d' informations que celle qui precede : 



Tableau 11.11 : Table des etudiants 



Identifiant de I'etudiant Nom 


Telephone 


12345 Arthur Accroc 


01-42-24-42-24 


34464 Muad Dib 


03-34-87-02-57 


Tableau 11.12 : Table des cours suivis par les etudiants 


Identifiant de I'etudiant Cours 


Appreciation 


12345 CH101 


C 


12345 EN333 


A 


1 2345 NP343 


A 


34464 BI333 


C 


34464 NP434 


B 



La conception de cette base est meilleure, les informations etant ventilees dans plusieurs tables. 

Cette scission est rendue possible par les relations logiques existant entre les donnees des deux 
tables. Remarquez que, techniquement, rien n'empeche de travailler avec une seule table, mais 
ce serait ignorer la puissance du modele relationnel. 



Cles etrangeres 

Nous savons deja qu'une cle est un champ ou une combinaison de champs permettant d' iden- 
tifier defacon unique chaque enregistrement (les plus scientifiques d 'entre nous diront qu'une 
cle est une injection de son domaine de valeurs vers celui de la table). On appelle ce type de 
cles des cles primaires. Certains champs seront qualifies de cle etrangere. Une cle etrangere 
est un champ qui est la cle primaire d'une autre table. A titre d'exemple, I 'identifiant de I'etu- 
diant est la cle primaire de la table des etudiants, et une cle exportee dans la table des cours 
suivis par les etudiants. Notez bien que cet identifiant n' est pas une cle primaire dans la table 
des cours suivis par les etudiants. 

Relations 

II y a trois types de relations entre deux tables. Les relations 1-1, n-1, et n-n. Examinons-les 
plus en detail. Les tables ay ant entre elles une relation 1-1 sont rares, car il est souvent plus 
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pratique de les regrouper en une seule table. Cependant, si certaines informations sont rarement 
utilisees, il peut etre pertinent de les stacker dans une table, et de ne mettre dans l'autre que 
celles dont on a frequemment besoin. Une des relations les plus puissantes est la relation n-1. 
Pour bien comprendre ce qu'est une relation n-1 , prenons un exemple : 

Le service des cartes grises gere des informations sur les conducteurs et les automobiles. Les 
donnees relatives aux conducteurs sont stockees dans la table PILOTE, qui comprend un 
numero de permis de conduire, un nom, une adresse, et un nombre de points. Les informations 
sur les vehicules sont stockees dans la table AUTO. Cette table comprend le numero minera- 
logique de la voiture, son modele, son annee, et le numero de permis de conduire de son pro- 
prietaire. Dans la table AUTO, le numero de permis de conduire est une cle exportee, et le 
numero mineralogique est la cle primaire. Dans la table PILOTE, le numero du permis de 
conduire est la cle primaire. Un automobiliste peut posseder plus d'une voiture, mais une voi- 
ture ne peut avoir qu'un seul proprietaire. II y a plusieurs (n) voitures pour un (1) automobiliste, 
c'est done une relation n-1 . 

II existe egalement des relations n-n. Les relations n-n sont sou vent representees a l'aide d'une 
table intermediaire contenant les cles exportees a mettre en concordance. En voici une 
illustration : 

Les etudiants suivent des cours. Chaque etudiant peut suivre plusieurs (n) cours. Symetrique- 
ment, un cours comprend plusieurs (n) etudiants. II y a done une relation n-n entre les etudiants 
et les cours. L'une des tables de cette base de donnees recensera les informations relatives aux 
etudiants (numero de securite sociale, nom, coordonnees), une autre contiendra des details sur 
les cours (identifiant du cours, intitule, presentation, connaissances prealables). Pour effectuer 
le lien entre les deux, on ajoute une troisieme table composee de deux cles exportees, a savoir 
le numero de securite sociale de l'etudiant, et l'identifiant du cours. Cette derniere table peut 
servir indifferemment a generer la liste des etudiants d'un cours ou la liste des cours d'un etu- 
diant. 

L'objectif principal a garder en memoire lors de la conception d'une base de donnees est la 
non-redondance des informations, ainsi que le respect de la coherence intrinseque des entites 
manipulees. Un autre point important a comprendre est qu'en matiere de conception de bases 
de donnees, il n'y a pas de recette miracle. Alors que la programmation se compose souvent 
d'un enchamement de figures imposees que le developpeur a juste le loisir d'agencer, la con- 
ception de base de donnees se prete a autant de variantes qu'il existe d'individus. Nous allons 
maintenant nous pencher sur les mefhodes permettant de manipuler facilement les tables ayant 
des relations n-1. 

Interet des modules de donnees 

Une des limitations de Delphi 1.0 residait dans l'impossibilite d'enregistrer les relations entre 
differentes tables dans une unite separee. Le developpeur etait done oblige de redefinir la rela- 
tion entre les tables a chaque nouvelle application. Jusqu'a la fin de cette partie nous placerons 
les composants de base de donnees non visuels sur un module de donnees afin de pouvoir y 
acceder depuis plusieurs applications. N'oubliez pas que pour utiliser des composants d'un 
module de donnees vous devez choisir dans le menu Fichier 1' option Utiliser unite. 
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Proprietes MasterFields ef MasterSource 

On a frequemment besoin d'une relation n-1 pour fournir des informations detaillees sur un 
champ dans une table qui est cle exportee dans cette table. Delphi propose une methode simple 
en utilisant les proprietes MasterField et MasterSource des objets TTable. 

Les proprietes MasterFields et MasterSource permettent a une table de controler quel enre- 
gistrement est accessible dans une table detail. Par exemple, considerons une table contenant 
la liste des cours des etudiants. II est possible, pour l'affichage, d'utiliser un composant 
DBGrid. II pourrait egalement y avoir un ensemble de champs qui afficheraient des informa- 
tions relatives a l'etudiant de l'enregistrement courant, comme son nom, son telephone et ses 
coordonnees. Pour lier les tables ensemble, la table Studinfo utilise les proprietes MasterSource 
et MasterField afin de determiner l'enregistrement courant de la table des cours. Dans cet 
exemple, la table des etudiants est la table detail, et celle des cours est la table maitre. 

Pour implementer la relation maitre/detail, vous devez associer une datasource a la table mai- 
tre. Le nom de ce composant doit ensuite etre specifie dans le champ MasterSource de la table 
de detail. La derniere information necessaire pour mettre la machine en branle est le nom du 
champ mis en commun dans les deux tables. Ce champ doit respecter certaines conditions. Le 
champ mis en commun doit etre indexe dans la table detail. L'association de ce champ entre 
les deux tables se fait en utilisant la propriete MasterField de la table detail. Pour creer l'asso- 
ciation, observez les etapes suivantes : 

• Ajoutez des composants TTable et TDatasource pour les deux tables. Utilisez dans cet 
exemple ORDERS .DB comme table maitre et CUSTOMER .DB comme table detail. Ces 
deux tables se trouvent dans la base de donnees DB DEMOS. 

• Faites apparaitre la feuille de proprietes de la table detail (CUSTOMER). 

• Mettez dans la propriete MasterSource le nom du composant datasource qui accede a la 
table maitre. 

• Double-cliquez sur la propriete MasterField ; cela fait apparaitre une boite de dialogue. II 
est necessaire d'indiquer les champs a mettre en correspondance dans la table maitre et 
dans la table detail. Les champs doivent etre exactement du meme type. Une fois ces 
champs lies, appuyez sur OK (voir Figure 11.13). 
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L'application de la Figure 11.14 utilise un lien sur un champ afin d'afficher les informations 
relatives aux commandes dans un DBGrid et les informations relatives aux clients dans un 
autre. Chaque fois qu'une nouvelle commande est selectionnee, le client associe apparait. 




Delphi permet de manipuler des tables au moyen du composant TTable. Ce composant com- 
porte des methodes pour rechercher un enregistrement, trier les enregistrements, lier des tables, 
et se deplacer d'un enregistrement a l'autre. L' inconvenient du composant TTable est qu'il y 
a une methode par action a effectuer, rendant complexe la combinaison des operations. Pour 
regler ce probleme, Delphi offre un autre moyen d'interagir avec des bases de donnees : le 
composant visuel TQuery. Ce composant permet a une application d'interagir avec une base de 
donnees au travers d'un langage dedie appele SQL. SQL est un langage extremement puissant 
qui, bien utilise, permet de simplifier prodigieusement des manipulations complexes. 
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Recapifulatif 

Lors de cette journee, nous avons parcouru les generalites les plus importantes sur les bases de 
donnees, ainsi que leur mise en oeuvre sous Delphi. Nous savons a present utiliser un compo- 
sant TTable pour avoir acces a une base de donnees. Le DataSource se comporte comme une 
interface entre l'objet TTable et les composants orientes donnees. Les composants orientes 
donnees sont un puissant jeu de composants permettant d'acceder a une table pour visualiser 
et manipuler les donnees. Nous avons egalement aborde les problemes de performance, les cles 
et les index. Les cles sont utilisees pour s'assurer que chaque enregistrement est differenciable 
des autres, et l'interet principal des index est d'augmenter les performances. Nous avons ega- 
lement aborde les problemes de securite et d'authentification, ainsi que les implementations 
sous Paradox. Nous avons termine en apprenant a utiliser plusieurs tables et des cles etrangeres 
dans une application. 

Afelier 

L' atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu 
de cette section. La section Questions - Reponses vous propose des questions couramment 
posees, ainsi que leurs reponses, la section Questionnaire vous pose des questions, dont vous 
trouverez les reponses en consultant 1' Annexe A, et les Exercices vous permettent de mettre en 
pratique ce que vous venez d'apprendre. Tentez dans la mesure du possible de vous appliquer 
a chacune des trois sections avant de passer a la suite. 

Questions - Reponses 

Q Dans la table Studinfo, comment faire pour laisser l'utilisateur modifier tous les 
champs a l'exception du numero de securite sociale ? 

R Utilisez la propriete Readonly du composant StudlnfoSSN. Les champs se manipulent 
comme des composants. Si la propriete Readonly vaut True, le champ ne peut etre modi- 
fie. 

Q Que se passe-t-il si une application tente d'outrepasser un controle de validite au ni- 
veau de la base ? 

R Une exception se declenche, il est du ressort du developpeur de gerer ces situations avec 
des clauses try et except. 

Q Comment gerer des relations n-1 ? Par exemple, stocker des informations relatives 
aux cours suivis par chaque etudiant ? 

R La bonne methode consiste a utiliser plusieurs tables. Un champ de la table detail sera la 
cle de la table maitre. Ici, la table COURS comporterait un champ SSN qui assurerait le 
lien avec la table studinfo. Pour plus d' informations, voyez la journee suivante. 
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Q Je dispose d'une table locale que je dois securiser, mais je n'ai pas les outils pour le 
faire. 

R II faut gerer le probleme a un autre niveau. Cryptez 1' ensemble de la table, ou simplement 
les donnees sensibles. Une autre methode consiste a stacker le fichier sur un reseau com- 
portant ses propres permissions d'acces. N'oubliez pas que le niveau global de securite 
est determine par le maillon faible de la chaine. 

Questionnaire 

1. Si une table est dans l'etat dsBrowse, que se passe-t-il lorsque Ton tente d'executer une 
methode d' edition telle que post ? 

2. Comment determiner le type des donnees stockees dans un champ ? 

3. Quelle propriete faut-il modifier pour changer l'ordre de tri des enregistrements ? 

4. Quels modeles de bases de donnees sont accessibles par plusieurs personnes ou plusieurs 
applications en meme temps ? Lesquels ne le sont pas ? 

5. Si une table est dans l'etat dsCalcFields, qu'est-il impossible de faire avec les champs 
non calcules ? 

6. Dans une relation n-1 , quel est le type de la cle de la colonne de la table "n" qui indique 
la cle de la table "1" ? 

Exercices 

1 . Creez une application qui utilise tous les controles orientes donnees. 

2. Modifiez l'exemple des nombres premiers et utilisez un champ calcule pour afficher le 
carre de chaque nombre. 

3 . Ajoutez un controle de validite pour empecher de rentrer des nombres trop grands dans 
la table des nombres premiers. Ajoutez du code a l'application de facon a afficher un mes- 
sage d'erreur quand une valeur trop grande est saisie. 
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Apres avoir appris a developper des applications de bases de donnees sous Delphi, ainsi que 
d'autres applications capables de traiter des donnees, il est temps de s'interesser aux etats, 
schemas et graphiques que Ton peut tirer de ces donnees pour impression ou visualisation. Cet- 
te journee s'interesse plus specifiquement aux composants QuickReport et DecisionCube. 
Notre but n'est pas de vous entrainer dans les arcanes de ces composants, mais plutot de vous 
en donner un apercu a partir duquel vous pourrez plus tard approfondir les voies qui vous sem- 
blent les plus prometteuses. Ces outils ont ete developpes par des societes tierces et inclus dans 
Delphi avec toutes leurs fonctionnalites. II n'est pas obligatoire de les enregistrer si vous vou- 
lez distribuer vos applications, mais vous pouvez le faire si vous desirez acheter les versions 
suivantes de ces produits. 

QuickReport 

Qu'est-ce au juste que QuickReport ? QuickReport pour Delphi est un ensemble de compo- 
sants qui vous permettent de concevoir vos etats visuellement et de les rattacher a votre code. 
Le produit fini permet a vos utilisateurs de generer des etats de bonne facture comportant du 
texte et des graphiques. QuickReport est un generateur d'etats par bandes qui dispose de nom- 
breuses fonctionnalites. 

En voici quelques-unes : 

• Conception visuelle d'etats 

• Composants VCL entierement ecrits en Pascal Objet 

• Compatibilite avec Delphi 1 , 2 et 3 

• Multithread 

• Previsualisation immediate 

• Etats de longueur illimitee 

• Champs memo de longueur illimitee 

• Utilisation de n'importe quelle source de donnees, y compris ODBC 

• Conception des etats par l'utilisateur final 

• Previsualisation personnalisable 

• Utilisation d'autres composants imprimables tels que des schemas, des codes barre, des 
formats graphiques etendus, et plus encore 

• Evaluateur d'expressions sophistique et concepteur d'expressions 

• Expert Etat 

• Exportation des etats aux formats ASCII, delimites par des virgules et HTML, ou filtres 
d'exportation personnalises 

Ces informations sont extraites de la documentation QuickReport fournie sur le CD-ROM Del- 
phi. Ce ne sont que quelques points forts du produit. La mission de cet ouvrage n'est pas d'exa- 
miner en detail chacune des fonctionnalites de cet outil. Nous vous conseillons done d'etudier 
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la documentation fournie apres avoir termine la lecture de ce partie, qui vous donnera cepen- 
dant un premier contact ainsi que les informations necessaires pour creer un etat simple. 

Modeles OuickReport 

Delphi comprend plusieurs modeles et un expert afin de vous permettre de creer rapidement 
des etats simples. Plutot que de nous attarder sur ces modeles, nous allons travailler directe- 
ment sur un exemple afin de comprendre le fonctionnement sous-jacent de 1' application. Une 
fois que vous aurez acquis cette premiere experience de QuickReport, vous serez a meme d'uti- 
liser les modeles et l'expert sans aucune difficulty. 

Selectionnez FichierlNouveau, et, dans la boite de dialogue Nouveaux elements, cliquez sur 
l'onglet Fiches. Vous verrez apparaitre les icones QuickReport Etiquettes, QuickReport Liste 
et QuickReport Maitre/detail (comme indique Figure 12.1). 



Figure 12.1 

Modeles QuickReport. 




Ce sont ces modeles que vous utiliserez pour creer rapidement des etats. II suffit de les ajouter 
a votre projet et de modifier leurs parametres en fonction de vos besoins. 

L'onglet Affaires de la boite de dialogue Nouveaux elements comporte des Experts fiche du 
monde de l'entreprise, comme indique Figure 12.2. Apres avoir lu cette partie, vous aurez 
assez de connaissances pour utiliser ces modeles ainsi que l'expert. Pour l'instant, occupons- 
nous de quelques-uns des composants QuickReport. 



Figure 12.2 

L'onglet Affaires et Vicbne 
Expert QuickReport. 
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Les composanfs OuickReporf 

Vous avez eu au Jour 8 une breve description des composants VCL, y compris les composants 
QuickReport. Ceux-ci mettent a disposition de quoi creer rapidement des etats dans vos appli- 
cations Delphi. Commencons par regarder un peu plus en detail certains d'entre eux et mettons- 
les en ceuvre en ecrivant une petite application destinee a imprimer un etat a partir d'une des 
bases de donnees d'exemple fournies avec Delphi. 

mail Q u ickReport etant un generateur d'etats par bandes, il est important que vous compreniez ce 
1 C 0 U quesont ces bandes et comment les utiliser pour construire vos etats . Les bandes sont des zones 
d'un etat qui vous permettent de concevoir visuellement celui-ci en creant des sections conte- 
nant du texte, des images, des graphiques, des schemas, etc. Les bandes sont des conteneurs 
pour d'autres composants qui apportent V information ou les graphiques dans I'etat. Vous pou- 
vez activer ou d'esactiver certaines de ces bandes en reglant des proprietes du composant 
TQuickRep, et en ajouter d'autres en les faisant glisser depuis la palette des composants dans 
le composant TQuickRep. Dans tous les cas, les bandes represented un element capital de la 
conception de votre etat. 

Le composartf TOuicHRep 

Le composant TQuickRep est utilise pour se connecter a un ensemble de donnees grace a sa pro- 
priety Table. II comporte egalement d'autres proprietes permettant de controler finement la 
creation de vos etats, y compris le titre, les bandes, les polices, le parametrage de l'impression, 
etc. Ce composant est egalement un composant visuel ; une fois connecte a la base de donnees, 
il est utilise comme conteneur pour les bandes qui constituent I'etat. 

Les composante de bande 

Les composants QRSubDetail, QRBand, QRChildBand et QRGroup sont les composants que vous 
pouvez ajouter aux etats afin d'inserer des titres, des en-tetes, des pied de page, des zones de 
detail pour les donnees de I'etat, etc. En connectant ces bandes a une base de donnees et en les 
disposant sur I'etat la ou vous voulez afficher l'information, vous pouvez rapidement conce- 
voir vos etats (reportez-vous a l'aide en ligne pour plus d' informations). 

flute composante Ouichfleport 

Les autres composants se repartissent en deux categories : ceux qui sont orientes donnees, et 
ceux qui ne le sont pas. Ces composants sont utilises pour placer du texte, des images, des gra- 
phiques, etc., dans les bandes de I'etat. Vous en apprendrez plus a leur sujet en creant un etat. 

Creer un efaf simple 

Nous allons construire un etat d'exemple qui affichera du texte et une image, afin que vous 
puissiez apprecier la puissance de QuickReport. Lancez Delphi, creez un nouveau projet, et 
effectuez les etapes suivantes : 
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1. Modifiez la propriete Caption de la fiche pour luidonnerle nom Generateur d'etat de 
base de donnees, et definissez sa propriete Name a RepGen. 

2. Ajoutez une seconde fiche et affectez a sa propriete Caption la valeur Fiche d 1 etat - 
invisible. Sa propriete Name doit valoir RepForm. Assurez-vous que Visible est a Fal- 
se, car l'utilisateur final ne doit pas voir cette fiche : elle servira de conteneur aux com- 
posants QuickReport. 

3. Prenez un composant TTable et mettez-le sur la fiche RepForm. 

4. Utilisez l'une des bases de donnees de demonstration fournies avec Delphi en definissant 
la propriete DatabaseName de TTable a DBDemos. 

5. Definissez la propriete TableName de TTable a ANIMALS. DBF. 

6. Definissez la propriete Active de TTable a True. 

7. Dans l'onglet QReport, selectionnez un composant QuickRep et mettez-le sur la fiche 
RepForm. 

8. Definissez la propriete DataSet du composant QuickRep a Tablel . 

9. Double-cliquez sur la propriete Bands du composant QuickRep afin d'afficher ses sous- 
proprietes, et affectez True a HasDetail. Vous verrez alors la bande detail de l'etat. 

10. Mettez un composant QRLabel dans la bande detail du composant QuickRep, et affectez 
Nom d 1 animal a sa propriete Caption. 

11. Mettez un composant QRDBText a droite du composant QRLabel, et affectez Tablel a sa 
propriete Dataset, ainsi que Name a sa propriete DataField. 

12. Cliquez sur la bande detail et augmentez sa hauteur afin de pouvoir y faire tenir une image. 

13. Ajoutez un composant QRDBImage sur la bande detail, et placez-le sur la gauche afin de 
vous assurer qu'il forme un carre qui tient dans la bande. Redimensionnez la bande et ce 
composant si necessaire. 

14. Affectez a la propriete Dataset du composant QRDBImage la valeur Tablel , et mettez BMP 
dans sa propriete DataField. 

Si tout s'est bien passe, vous devriez avoir un premier apercu de votre etat en cliquant avec le 
bouton de droite sur le composant QuickRep et en selectionnant dans le menu contextuel 
l'option Previsualiser. Une fenetre apparait alors, qui vous donne une previsualisation de votre 
etat, comme indique Figure 12.3. 
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Figure 123 

La fenetre de previsuali- 
sation de QuickReport . 
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Felicitations ! Vous venez de creer votre premier etat sans une seule ligne de code. Si vous le 
desirez, il est possible d'imprimer un etat a partir de la fenetre de previsualisation (pour ce fai- 
re, cliquez sur l'icone d'impression de la barre d'outils). 

Vous pouvez utiliser ce que nous avons vu ensemble pour ajouter d'autres champs a votre etat 
en ajoutant d'autres composants. Voyons maintenant comment ajouter des fonctionnalites dis- 
ponibles lors de 1' execution. 



Rjouter une fenetre de previsualisaNon 

Ajouter une fenetre de previsualisation est un jeu d'enfant. II vous suffit d'ajouter un compo- 
sant bouton sur l'une des fiches accessibles a l'utilisateur. Dans notre exemple, il s'agit de la 
fiche RepGen . Ensuite, double-cliquez sur le bouton que vous venez d'ajouter. La fenetre d' edi- 
tion de code apparait alors. Ajoutez le code suivant dans l'evenement OnClick : 

RepForm.QuickRepI .Preview 

Si vous tentez d'executer, de compiler ou de verifier la syntaxe du programme, Delphi detecte 
qu'il manque une unite dans la clause Uses de la premiere fiche et vous demande si vous desi- 
rez l'ajouter. Repondez Oui, et la clause Uses sera automatiquement corrigee. 

C'est tout ! Si vous executez l'application et cliquez sur le bouton de previsualisation, l'ecran 
de previsualisation apparait. Vous voyez bien que c'est facile. Les utilisateurs seront persuades 
que vous avez passe des heures a mettre en place cette fonctionnalite, alors qu'il ne vous aura 
fallu que quelques minutes. 

Imprimer des etats 

Au cas ou vous ne l'auriez pas deja devine, il est aussi facile d'imprimer un etat que d'ajouter 
un bouton de previsualisation. Ajoutez un autre bouton a la fiche, et affectez Imprimer a sa pro- 
priety Capt ion . Double-cliquez sur le bouton, et ajoutez le code suivant au Gestionnaire d'eve- 
nements OnClick : 

RepForm.QuickRepI .Print 
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La fiche principale de votre application devrait a present ressembler a celle de la Figure 12.4, 
et le code a celui du Listing 12.1 . Naturellement, la fiche cachee comporte egalement du code, 
mais nous ne le donnons pas ici puisqu'il a ete entierement genere par Delphi. 

Figure 12.4 

L' application Etat. 




Listing 12.1 : La fiche principale de 1' application Etat 
unit main; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls; 

type 

TRepGen = class(TForm) 
Buttonl : TButton; 
Button2: TButton; 

procedure Button1Click(Sender: TObject); 
procedure Button2Click(Sender: TObject); 
procedure FormCreate (Sender : TObject); 
private 

{ declarations privees } 
public 

{ declarations publiques } 
end; 

var 

RepGen: TRepGen; 
implementation 
uses qrep; 
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{$R * . DFM} 

procedure TRepGen.Button1Click(Sender: TObject); 
begin 

RepForm . QuickRepI .Preview; 

end; 



lijse 



procedure TRepGen.Button2Click(Sender: TObject); 
begin 

RepForm . QuickRepI .Print; 

end; 
end 

Si vous ne Vavez pas dejafait, ex'ecutez V application et testez-la. Cliquez sur le bouton Pr'evi- 
sualiser afin de faire apparaitre la fenetre de previsualisation, ou sur le bouton Imprimer 
pour imprimer I'etat. La base de donn'ees utilis'ee dans cet exemple ne comportant que quel- 
ques enregistrements, 1' impression ne comportera que deux ou trois pages. La fenetre de 
previsualisation a I'avantage de tenir compte des donnees reelles et done d'ajficher le nombre 
de pages a imprimer, que vous pouvez parcourir avant impression, etc. Vos utilisateurs pour- 
ront done avoir acces a un grand nombre de fonctionnalites sans qu'il vous en ait cout'e plus 
de deux lignes de code. 



Decision Cube 

Si vous disposez de l'edition CS de Delphi, les composants Decision Cube vous permettront 
de faire de l'analyse de donnees multidimensionnelle dans vos applications. 

Les composants Decision Cube 

Ces composants sont au nombre de six. Trois d'entre eux permettent de communiquer avec le 
moteur debase de donnees de Delphi (DecisionCube, DecisionQuery et DecisionSource),les 
trois autres etant des composants visuels vous permettant de travailler avec les donnees et de 
les afficher (DecisionPivot, DecisionGrid et DecisionGraph). 

flpergu de Decision Cube 

Grace aux composants Decision Cube, vous pouvez creer des applications permettant aux uti- 
lisateurs de creer des etats complexes. lis peuvent etre integres dans une application, ou distri- 
bues sur un reseau (par exemple au travers d'une page Web). Ces composants n'etant fournis 
qu'avec la version CS de Delphi, nous n'en parlerons pas plus longuement ici. Reportez-vous 
a l'aide en ligne pour en savoir plus. 
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Recapifulatif 

Cette journee d'apprentissage vous a permis de decouvrir QuickReport et la puissance qu'il 
apporte a Delphi. Cet outil vous fera gagner des heures de developpement lors de la creation 
d'etats d'apparence professionnelle. Nous avons etudie les principales fonctionnalites de Quick 
Report et cree une application d'exemple a partir d'une des bases de donnees fournies avec 
Delphi (ANIMALS . DBF). Vous avez egalement bati une petite application en utilisant deux lignes 
de code afin de previsualiser et d'imprimer les etats. 

Nous n' avons bien evidemment pas aborde en profondeur ces differents composants. Vous 
devriez quand meme avoir une idee precise de leurs fonctionnalites, ce qui vous permettra de 
les utiliser, en approfondissant vos connaissances grace a l'aide en ligne. 

Nous avons termine par un rapide survol de Decision Cube, un ensemble d'outils vous permet- 
tant de creer des outils et des etats d'analyse de donnees multidimensionnelle. Decision Cube 
n'est fourni qu'avec la version CS de Delphi 3. 

nrelier 

L' atelier vous donne trois moyens de verifier que vous avez correctement assimile le contenu 
de cette partie. La section Questions - Reponses reprend des questions posees couramment, et 
y repond, la section Questionnaire vous pose des questions, dont vous trouverez les reponses 
en consultant l'Annexe A, et les Exercices vous permettent de mettre en pratique ce que vous 
venez d'apprendre. Tentez dans la mesure du possible de vous appliquer a chacune des trois 
sections avant de passer a la suite. 

Questions - Reponses 

Q Comment ajouter des graphiques a mes etats QuickReport ? 

R Utilisez le composant TeeChart QRChart. 
Q QuickReport peut-il faire des etiquettes ? 

R L'un des modeles QuickReport sert justement a generer des etiquettes. Grace a sa concep- 
tion par bandes des etats, QuickReport est parfaitement adapte a un grand nombre de si- 
tuations. 

Questionnaire 

1 . Quels sont les types d'etats generes par QuickReport ? 

2. A quoi les bandes servent-elles dans QuickReport ? 

3. L'utilisateur voit-il le composant QuickReport ? 
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4. Lors de la construction d'une application utilisant QuickReport, comment se connecte-t- 
on a la base de donnees ? En d'autres termes, quels composants faut-il utiliser ? 

Exercice 

1 . Creez une application affichant un etat pour chaque champ de la base de donnees Animals 
que nous avons utilisee dans cette section (referez-vous a la documentation de QuickRe- 
port si vous avez besoin de plus de renseignements). 
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A mesure que le logiciel devient toujours plus sophistique et complexe, l'utilisation de com- 
posants s'impose pour le developpement d' applications. Delphi est un outil de developpement 
parfait pour creer des composants servant a n'importe quelle application logicielle qui en uti- 
lisent. Vous pouvez ainsi developper des composants visuels Delphi natifs et ActiveX. Les pre- 
miers peuvent etre construits et installes dans l'EDI Delphi, sans les complications associees 
aux ActiveX. Les seconds peuvent etre importes dans Delphi, Visual Basic, dans des pages 
Web, et dans tout autre produit capable de les incorporer. 

Nous commencerons cette journee par un apercu des avantages lies a l'utilisation de compo- 
sants, puis nous verrons comment creer des composants visuels en Delphi, en commencant par 
un exemple tres simple pour finir sur des composants utiles et puissants. Nous verrons ensuite 
la maniere dont Delphi peut convertir des composants visuels en ActiveX. 

Pourquoi ecrire des composants ? 

La puissance des composants tient au fait qu'ils cachent au developpeur tous les details de 
1' implementation. De meme qu'un conducteur n'a pas besoin, pour conduire, de connaitre les 
principes thermodynamiques a l'ceuvre dans un moteur a explosion, un developpeur d'applica- 
tion n'a pas besoin de savoir comment fonctionne un composant pour l'utiliser. II lui suffit de 
savoir comment communiquer avec lui. II y a au moins quatre bonnes raisons d'ecrire vos pro- 
pres composants. 

ReuNliser le code 

L'interface vers un composant est integree a l'environnement de developpement Delphi. Par 
consequent, si vous utilisez frequemment un objet, vous pouvez le transformer en composant 
visuel, l'ajouter a la barre d'outils, ce qui en facilite l'utilisation et en cache 1' implementation 
au sein de la bibliotheque. 

Modifier les composants visuels existants 

Comme Delphi est un langage oriente objet et comme un composant visuel est un objet, vous 
pouvez creer un composant visuel comme sous-classe d'un composant deja existant. Suppo- 
sons, par exemple, que vous utilisiez souvent des cercles bleus dans vos applications. Vous 
voulez tirer parti de toutes les proprietes, evenements et methodes du composant TShape, mais 
vous prenez toujours un cercle comme parametre pour la forme et la couleur bleue. Vous pou- 
vez des lors creer une sous-classe de TShape appelee TCercleBleu. La classe TCercleBleu 
aura, par defaut, la propriete shape egale a circle et la propriete color egale a Blue. 

Vendre des composants 

Si vous devez ajouter des fonctionnalites specialisees a votre application, vous pouvez acheter 
un composant a un editeur independant. C'est l'un des plus grands avantages d'un systeme 
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base sur les composants. Ainsi, si vous avez besoin de fonctions de reseau, vous pouvez ecrire 
vous-meme les routines afferentes ou acheter un ensemble de composants qui se chargent de 
ces fonctionnalites. De meme, vous pouvez creer un composant et le vendre a d'autres deve- 
loppeurs. Lorsque vous vendez la bibliotheque, vous ne fournissez qu'une version compilee du 
produit. Votre client ne voit done pas son code source ou les details de son implementation. 
Cependant, lorsque le composant est ajoute a une fiche, votre acheteur peut communiquer avec 
le composant par le biais de TIDE. 

Les modifications de comportement en cours 
de developpement 

Si vous compilez du code pour en faire un composant visuel, vous pouvez voir son aspect se 
modifier au cours du developpement. Ainsi, si vous definissez comme un cercle la propriete 
Shape du composant TShape, la forme sur la fiche se transforme en cercle, et ce, avant que le 
composant ne soit compile. Cela est tres utile dans le cas de composants qui sont visibles dans 
1' application. Vous pouvez ainsi savoir a quoi celle-ci ressemblera une fois compilee. 

flncefre des composants : quelques mots 
les DLL 

Avant d'etudier ensemble la creation de composants, nous allons voir la construction de DLL 
en Delphi. Les DLL ne sont pas orientees objet. Elles vous permettent simplement de develop- 
per une bibliotheque de procedure dans un langage, utilisable dans n'importe quel autre. Un 
autre grand avantage des DLL est qu'elles sont chargees en phase d'execution au lieu d'etre 
liees statiquement dans l'application. Ceci vous permet de diviser le developpement et la dis- 
tribution en plusieurs composants, au lieu de developper et de lier statiquement une seule gros- 
se application. 

Nous allons creer une DLL simple que nous appellerons a partir d'un programme C. Elle con- 
tiendra une procedure acceptant un parametre (un PChar), qui inverse l'ordre de la chaine ainsi 
passee. De cette facon, si vous appelez ReverseStr(X) avec X = "ZORGLUB", X sera egal a 
" BULGROZ" apres appel a la procedure. 

Pour creer une nouvelle DLL, suivez ces etapes : 

1. Choisissez FichierlNouveau dans le menu principal, puis DLL. Un squelette de DLL est 
alors cree. 

2. Ajoutez les fonctions et procedures a implementer. Dans notre exemple, on ajoute le code 
d'implementation pour la procedure ReverseStr. (voir Listing 13.1). 
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Listing 13.1 : ReverseStr, une DLL qui inverse les chaines 
library DelphiReverse ; 

{ Remarque importante a propos de la gestion memoire des DLL : ShareMem doit 
etre la premiere unite dans la clause USES de votre bibliotheque , 
ET dans la clause USES de votre projet (selectionnez Voir-Source du projet) 
si vos DLLs exportent des procedures ou des fonctions passant en parametre 
des chaines ou des resultats de fonction. 

Ceci s 1 applique a toutes les chaines passees par ou a vos DLL - memes 
celles 

qui sont imbriquees dans des enregistrements ou des classes. ShareMem est 
l'unite d'interface du gestionnaire de memoire partagee DELPHIMM.DLL, qui 
doit etre deployee avec vos propres DLL. Pour eviter l'emploi de DELPHIMM 
DLL, 

passez vos chaines en utilisant des parametres PChar ou ShortString. } 
uses 

SysUtils, 
Classes; 

procedure ReverseStr(strToReverse : PChar) ;export;stdcall; 



var 



BFLen 

Temp 

Count 



integer; 

char; 

integer; 



begin 

BFLen := StrLen (strToReverse) ; 

for Count := 0 to (BFLen div 2)-1 do 

begin 

Temp := strToReverse[Count] ; 
strToReverse[Count] := strToReverse[BFLen 
strToReverse[BFLen - Count - 1] := Temp; 
end; 
end; 



Count 



1]; 



exports 

ReverseStr; 
end. 
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Ce programme impl'emente les fonctions necessaires . Vous pouvez remarquer qu'il n'est pas 
necessaire de placer les options export et stdcall a la suite de la declaration de procedure. 
Celles-ci specifient que la fonction doit etre rendue disponible et qu'une convention d'appel 
standard doit etre utilis'ee pour passer des parametres. La seule autre chose qui doit figurer 
dans le source est la section exports qui se trouve au bas de V unite, car elle specifie que la 
procedure ReverseStr doit etre exportee. En exportant une fonction on la rend visible au 
monde ext'erieur. Si vous ne le faites pas, elle se comporte comme une fonction interne. De 
mime que la section interface d'une unite permet d'utiliser des fonctions en dehors de celle- 
ci, la clause exports permet a une fonction d'etre appelee en dehors de la DLL. 

Une fois le projet compile, vous disposez d'une DLL qui peut etre appelee a partir de pratique- 
ment n'importe quel langage, que ce soit C, C++, Visual Basic et bien sur Delphi. Le 
Listing 13.2 montre comment un programme C peut charger dynamiquement la DLL Delphi - 
Reverse pour appeler la procedure ReverseStr. 

Listing 13.2 : Le code C appelant la DLL Delphi 

|#include <stdio.h> 
#include <windows.h> 
void main() 
HANDLE TheLib; 
FARPROC ReverseStr; 
char TheStr[] = "Elu par cette crapulE"; 
TheLib = LoadLibrary ( "DelphiReverse" ) ; 
ReverseStr = GetProcAddress(TheLib, "ReverseStr" ) ; 
printf ( "Chaine initiale :%s\n" ,TheStr) ; 
ReverseStr(TheStr) ; 
printf ( "Chaine inversee :%s\n" ,TheStr) ; 
FreeLibrary (TheLib) ; 

Ce programme declare une chaine et lui affecte "Elu par cette crapulE". II charge ensuite la 
DLL DelphiReverse en memoire et obtient I'adresse de la procedure ReverseStr. Le 
programme affiche la chaine initiale, V inverse, puis I'affiche une fois inversee. 

La sortie de ce programme est la suivante : 

D:\BBTD30\Samples\CH14\CallDll\Debug>calldll 
Chaine initiale : Elu par cette crapulE 
Chaine inversee : Eluparc ettec rap ulE 
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Conslruire et installer un composant 



II est facile de creer des DLL, mais elles ne s'integrent pas a l'EDI de Delphi. Elles sont utiles, 
mais ne sont pas orientees objets. Les composants visuels ne comportent pas ces deux defauts. 
Le premier que vous allez construire dans cette partie se compile simplement et s'installe ou 
s'enleve de la barre d'outils. Vous pouvez aussi l'ajouter a une fiche, mais il ne fera strictement 
rien. 

Dans Delphi, les composants sont compiles sous forme de paquets. En consequence, la premie- 
re chose a faire est de creer un nouveau paquet. Choisissez Fichier, Nouveau pour faire appa- 
raitre la boite de dialogue Nouveaux elements, puis selectionnez l'icone "paquet" . Un nom de 
fichier vous sera alors demande. Dans les exemples qui suivent, nous utiliserons le nom 
tdcomps. Vous devriez maintenant voir une boite de dialogue Gestionnaire de paquet vierge 
(voir Figure 13.1). 



Dans cet exemple, nous allons utiliser l'Expert composant pour generer le code necessaire a la 
creation du squelette d'un composant. Tous les composants doivent etre issus d'autres compo- 
sants. Si vous souhaitez partir de zero, vous devez creer une sous-classe de TComponent, com- 
me suit : 

1. Cliquez sur l'icone Ajouter dans la boite de dialogue Gestionnaire de paquet. La boite 
Ajouter apparait alors. 

2. Selectionnez l'onglet Nouveau composant. 

3. Specifiez TComponent comme type d'Ancetre, TDoNothing comme Nom de classe et 
Exemples comme Page de palette. Pour le nom du fichier d'unite, choisissez un nouveau 
fichier .pas qui sera utilise pour le code source, et laissez la valeur par defaut dans le Che- 
min de recherche. Votre boite de dialogue devrait alors ressembler a celle de la Figure 13.2. 

4. Cliquez sur OK pour enregistrer ces parametres. 



Figure 13.1 




Le Gestionnaire de 
paquet pret a ajouter un 
nouveau composant . 



Ajouter le composant TDoNothing au paquet 
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Figure 132 

L 'Expert composant pour 
TDoNothing. 




Chemin de recherche : |C: ''Program File;\E! cnlar id'-.D elphu ]! - -.Lib:C \Piogiarn Fil 



Delphi cree le noyau d'une unite qui se compile en un composant visuel. En double-cliquant sur 
celle-ci dans le Gestionnaire de paquet, vous faites apparaitre le code source. Le Listing 13.3 
montre le code que l'Expert genere pour le composant TDoNothing. 

Listing 13.3 : Le squelette d'un composant visuel 
unit DoNothing; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs; 



type 

TDoNothing = class(TComponent) 
private 

{ Declarations privees } 
protected 

{ Declarations protegees } 
public 

{ Declarations publiques } 
published 

{ Declarations publiees } 
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end; 



flnolijse 



procedure Register; 

implementation 

procedure Register; 
begin 

RegisterComponents( 1 Samples 1 , [TDoNothing] ) ; 
end; 

end. 

En temps normal, vous modifiez le noyau pour ajouter vos propres fonctionnalites au compo- 
sant. La bibliotheque de composants est constitute de la classe TDoNothing et de la procedure 
Register. Delphi utilise tout le code associe a la classe pour determiner le fonctionnement du 
composant. II appelle egalement la procedure Register pour placer le composant sur la 
barre d'outils. En I 'occurrence , Delphi se contente de Vinstaller sur I'onglet Exemples. 

Compiler et installer le paquet et les composanfs 

Pour compiler et installer le composant, suivez ces etapes : 

1 . Dans le Gestionnaire de paquet, cliquez sur l'icone Compiler. L'unite sera alors compilee 
dans le fichier de paquet DPK. 

2. Dans le Gestionnaire de paquet, cliquez sur l'icone Installer. Le paquet sera alors installe. 
Si son installation fonctionne bien, vous en serez averti par une boite de dialogue (voir 
Figure 13.3). 



Figure 13.3 

Le paquet a et'e installe 
avec succes. 




Regardez la barre d'outils Exemples. Vous pouvez voir qu'un nouveau composant y est appa- 
ru. Placez le pointeur de la souris dessus pour qu'une info-bulle apparaisse. Le nouveau com- 
posant est DoNothing. Creez une nouvelle application et ajoutez-le a la fiche. Lorsque vous 
cliquez dessus pour visualiser les pages de proprietes et d'evenements, vous voyez qu'il n'y a 
que deux proprietes (voir Figure 13.4). La propriete Name est DoNothingl par defaut et Tag est 
0 par defaut. La page d'evenements n'en contient aucun. C'est un composant visuel, dont la 
fonction est de ne rien faire. 
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Figure 13.4 

L' application et la page 
de proprietes avec le 
composant DoNothing. 




Enlever le composant 

II arrive que vous ayez besoin de retirer un composant de la barre d'outils ou de le desinstaller 
de Delphi. Cela peut etre le cas si vous recevez une version mise a jour d'un composant visuel, 
ou si vous souhaitez simplement enlever un composant dont vous n'avez pas l'utilite. TDoNo - 
thing est par essence inutile. Pour l'enlever, suivez ces etapes : 

1 . Selectionnez Projet, Options dans le menu, puis selectionnez l'onglet Paquets. 

2. Dans cet onglet, cliquez sur le paquet que vous venez d'installer, puis cliquez sur Suppri- 
mer. Le composant TDoNothing est alors retire de la barre d'outils. 

Ecrire un composant visuel 

Un developpeur d'applications utilise des composants en les placant sur une fiche ou en 
employant la methode Create. Une fois le composant cree, vous pouvez le manipuler en defi- 
nissant des proprietes, en appelant des methodes et en repondant a des evenements. Vous 
n'avez pas a vous soucier de la facon dont fonctionnent les proprietes et les methodes. Le com- 
posant appelle son Gestionnaire d'evenements lorsqu'un evenement particulier survient. Lors- 
que vous ecrivez un composant, vous devez detailler 1' implementation pour les proprietes et 
les methodes, et appeler des Gestionnaires d'evenements. Pour ce faire, definissez une classe 
qui devient le composant et completez les differents elements. 
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Declarations privies, protegees, publiques et publiees 

Delphi utilise des classes d'objet pour creer des composants visuels. Les differentes parties de 
la definition de la classe d'objet sont declarees dans plusieurs regions protegees. Les variables, 
les procedures et les fonctions peuvent avoir quatre types d'acces : 



Prive (Private) Seules les procedures et les fonctions definies dans la definition de 

classe ont un acces, et seules les routines se trouvant dans la meme 
unite en ont egalement un. 



Protege 


(Protected) 


Les procedures et fonctions definies dans la definition de classe, 
ainsi que les procedures et fonctions des classes descendantes, en 
ont un. 


Public 


(Public) 


Toutes les procedures et fonctions ont un acces. 


Publie 


(Published) 


Acces public avec un branchement sur l'EDI de Delphi permettant 
d'afficher les informations dans les pages proprietes et evene- 
ments. 



Proprietes 

Un developpeur Delphi utilise les proprietes d'un composant pour lire ou modifier certains 
attributs, qui sont similaires aux champs de donnees stockes dans une classe. Les proprietes 
peuvent cependant provoquer l'execution de code. Ainsi, lorsque vous modifiez la propriete 
Shape du composant TShape, ce dernier change de forme. II existe un mecanisme qui lui ordon- 
ne de se modifier lorsque la propriete change. Autrement dit, une propriete peut endosser deux 
roles. Ce peut etre une donnee affectant le fonctionnement d'un composant, ou le declencheur 
d'une action. 

Methodes 

Les methodes sont des procedures et des fonctions qu'une classe a rendues publiques. Bien que 
vous puissiez utiliser des proprietes pour appeler une fonction ou une procedure, ne le faites 
que si c'est logique. En revanche, les methodes peuvent etre utilisees n'importe quand. Celles- 
ci peuvent accepter plusieurs parametres et renvoyer des donnees par le biais de declarations 
de variables VAR, alors que les proprietes sont definies avec une donnee. 

Evenements 

Les evenements permettent au developpeur ou a l'utilisateur d'ameliorer le composant lors- 
qu'un evenement survient. Ainsi, l'evenement OnClick signifie "Si vous voulez faire quelque 
chose lorsque l'utilisateur clique ici, dites-moi quelle procedure executer pour cela". C'est le 
travail du concepteur d'appeler les evenements du composant si necessaire. 
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Construire un composanf uNle : TMult 

Nous allons maintenant creer un composant visuel qui effectue une tache et comprend au 
moins une propriete, une methode et un evenement. II est assez sommaire, et son interet est 
avant tout didactique. Cela montrera aussi comment le deriver a partir du sommet de la hierar- 
chie des composants. Tous les composants ont TComponent dans leur arbre genealogique. 
TMult est un descendant direct de TComponent. 

Creer TMult 

Le composant TMult a deux proprietes de type integer qui peuvent etre definies au moment 
de la conception ou de l'execution. II a une methode, DoMult . Lorsque celle-ci est executee, les 
deux valeurs des proprietes sont multipliees et le resultat est place dans une troisieme propriete 
appelee Res. Un evenement, OnTooBig est aussi implemente. Si l'un des deux nombres est defi- 
ni comme etant superieur a 100 lorsque la methode DoMult est appelee, le composant appelle 
le code vers lequel l'utilisateur a pointe dans la page d'evenements. TMult est un exemple de 
composant purement fonctionnel : il n'a pas de composante graphique. Parmi les composants 
standard du meme type, on peut citer TTimer, TDataBase et ceux de Table. 

TMult contient les proprietes suivantes : 

Van La premiere valeur a multiplier. Elle est disponible lors de la conception et de 
l'execution. 

Val2 La deuxieme valeur a multiplier. Elle est disponible a la conception et a l'execution. 

Res La valeur obtenue en multipliant Van et Val2. Disponible seulement en cours 
d' execution. 



TMult contient une methode, DoMult, qui implemente la multiplication de Van par Val2. 
L'evenement de TMult, OnTooBig, appelle le Gestionnaire d'evenements de l'utilisateur (s'il 
existe) lorsque Van est multiplied par Val2 et qu'une des deux valeurs est superieure a 100. 

Consfruire TMult 

La premiere etape consiste a creer une unite qui constituera le noyau central de tous les com- 
posants. Pour ce faire, utilisez l'Expert composant comme precedemment et nommez le fichier 
Tmultiply. La Figure 13.5 montre comment vous devez remplir les champs de l'Expert pour 
creer TMult. 
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Le code genere comprend un noyau pour la declaration de classe de TMult et une procedure 
pour enregistrer la fonction. Pour developper les proprietes, la methode et l'evenement, vous 
devez modifier la definition de classe et fournir les procedures et fonctions correspondantes. 
Double-cliquez sur l'unite TMultiply dans le Gestionnaire de paquets pour voir apparaitre le 
code source. 

fljouter des proprietes a TMult 

TMult contient trois proprietes : Val1 , Val2 et Res. Val1 et Val2 sont disponibles lors de la concep- 
tion et de l'execution, tandis que Res ne Test que lors de l'execution. Comme chaque propriete 
contient des donnees, vous devez definir dans la classe TMult des variables qui contiendront 
ces dernieres. Les utilisateurs n'accedent aux variables que par un appel specialise. Par conse- 
quent, on declare les variables contenant les donnees des trois proprietes dans la partie Private 
de la definition de classe, ce qui signifie que seules les fonctions et les procedures de la classe 
pourront acceder aux donnees. Par convention, les noms des variables commencent par F, suivi 
du nom de la propriete. Dans notre exemple, toutes les proprietes sont des entiers, et leurs 
variables associees sont done declarees de type integer. La declaration de classe est la 
suivante : 

type 

TMult = class(TComponent) 
Private 

FVall : integer; 
FVal2 : integer; 
FRes : integer; 
Protected 
Public 
Published 
end; 

Vous devez maintenant declarer les proprietes elles-memes. Utilisez le mot cle property dans 
la definition de classe. La definition de propriete peut apparaitre generalement en deux 
endroits. Si une propriete est accessible lors de la conception, elle doit etre declaree dans la sec- 
tion Published de la declaration. Si elle n'est disponible que lors de l'execution, elle est placee 
dans la section public. Dans notre exemple, les proprietes sont stockees sous forme de types 
de donnees simples et on n'effectue pas d'action particuliere lorsque les donnees sont lues ou 
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ecrites. On peut, par consequent, utiliser un acces direct pour lire et ecrire la propriete. Avec 
V acces direct, vous indiquez a Delphi de modifier ou de renvoyer les donnees d'une variable 
lorsqu'une propriete est ecrite ou lue. Les methodes read et write definissent les variables. 
Voici les definitions de nos trois proprietes : 

I type 
TMult = class(TComponent) 
Private 
FVall : integer; 
FVal2 : integer; 
FRes : integer; 
protected 
public 
Property Res:integer read FRes; {Propriete pour obtenir le resultat} 
published 
property Val1: integer read FVall Write FVall default 1; {Operande 1} 
property Val2: integer read FVal2 Write FVal2 default 1; {Operande 2} 
end; {TMult} 

Comme la propriete Res est en lecture seule, vous n'avez pas besoin d'une methode a acces 
direct pour ecrire dans la variable FRes. 

Val1 et Val2 sont definies a 1 par defaut, ce qui peut preter a confusion. La valeur par defaut 
d'une propriete est en fait definie dans une autre etape de la creation du composant, lorsqu'un 
ajoute un constructeur. Delphi l'utilise dans la ligne de propriete pour determiner s'il doit 
l'enregistrer lorsqu'un utilisateur enregistre un fichier de fiche. Quand ce dernier ajoute ce 
composant a une fiche et laisse Val1 a 1 , la valeur n'est pas enregistree dans le fichier .dfm. Si 
la valeur est autre, elle est enregistree. 

Vous avez declare les proprietes du composant. Si vous installez le composant maintenant, 
Val1 et Val2 apparaitront dans l'onglet Proprietes . II vous reste quelques etapes avant d'obtenir 
un composant fonctionnel. 

fljouter le constructeur 

Un constructeur est appele lorsqu'une classe est creee. C'est lui qui est souvent charge de 
l'allocation de memoire dynamique ou de la collecte des ressources dont a besoin une classe. 
II definit aussi les valeurs par defaut des variables d'une classe. Lorsqu'un composant est ajou- 
te a une fiche, lors de la conception ou de l'execution, le constructeur est appele. Pour declarer 
ce dernier dans la definition de classe, ajoutez une ligne constructor dans la partie public de 
la declaration de classe. Par convention, on utilise Create comme nom de la procedure du 
constructeur, comme on peut le voir dans cet exemple : 

H« 

public 
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a 



constructor Create (AOwner 
{...} 



TComponent) ; override; {Constructeur principal } 



On passe un parametre au constructeur : le composant auquel appartient le constructeur. Ce 
n'est pas le meme cas de figure que pour la propriete ancetre. Vous devez specifier que vous 
souhaitez ignorer le constructeur par defaut de la classe de l'ancetre, qui est TComponent. Dans 
la portion implementation de l'unite, vous ajoutez le code pour le constructeur. 

constructor TMult. Create (AOwner: TComponent); 
BEGIN 

inherited Create(AOwner) ; {appel du constructeur pour la classe du parent} 
FVall := 1; {Defaut pour valeur 1 } 

FVal2 := 1; {Defaut pour valeur 2 } 

END; {End constructor} 

Pour qu'une construction specifique a un parent soit effectuee, vous devez commencer par 
appeler la procedure Create heritee. En l'occurrence, la seule etape supplementary consiste a 
definir des valeurs par defaut pour Val1 et Val2 qui correspondent a la section des valeurs par 
defaut des declarations de proprietes. 



fljouter une methode 



Une methode est plus facile a implementer qu'une propriete. Pour en declarer une, placez une 
procedure ou une fonction dans la partie public de la definition de classe et ecrivez la fonction 
ou procedure associee. En l'occurrence, vous ajoutez la methode DoMult : 

{...} 



public 
procedure DoMult; 



{Methode pour multiplier} 



{...} 



procedure TMult . DoMult ; 
Begin 

FRes := FVall * FVal2 
End; 

Votre composant fonctionne maintenant. L'utilisateur peut l'ajouter a une fiche et definir des 
valeurs pour Van et Val2 lors de la conception et de cette derniere etape. Lors de l'execution, 
la methode DoMult peut etre appelee pour effectuer la multiplication. 
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fljouter un evenemenf 

Un evenement permet a l'utilisateur d'executer un code specialise lorsque que quelque chose 
arrive. Pour votre composant, vous pouvez ajouter un evenement qui est declenche lorsque 
Val1 ou Val2 est plus grand que 100 et que DoMult est execute ou, par exemple, modifier le 
code pour que, dans une telle eventualite, Res reste inchange. 

En Delphi, un evenement est une propriete specialised, c'est-a-dire un pointeur vers une fonc- 
tion. Tout ce qui s' applique aux proprietes s' applique dans ce cas aux fonctions. 

Le composant doit fournir une derniere information : le moment oil il faut appeler le Gestion- 
naire d'evenements de l'utilisateur. Rien de plus simple. Des qu'il est temps de declencher un 
evenement, il suffit de voir si l'utilisateur a defini un Gestionnaire d'evenements. Si c'est le 
cas, on appelle l'evenement. Vous devez ajouter les declarations suivantes a la definition de 
classe : 

Private 

FTooBig : TNotif yEvent ; 

J published 

Property OnTooBig:TNotifyEvent read FTooBig write FTooBig; {Evenement} 
□ end; {TMult} 

Le type TNotif yEvent est utilise pour definir FTooBig et OnTooBig est un type de pointeur de 
fonction generique qui passe un parametre de type component, Self en general. La derniere 
etape consiste a modifier la procedure Tmult. DoMult pour qu'elle appelle le Gestionnaire 
d'evenements si l'un des nombres est trop grand. Avant d'appeler ce gestionnaire, vous devez 
regarder si un evenement a ete defini. Pour ce faire, utilisez la fonction assigned, qui renvoie 
True si un evenement est defini pour le Gestionnaire d'evenements et False sinon. 

Le Listing 13.4 montre le code du composant. 



Listing 13.4 : : Le composant TMult au complet 
unit TMultiply; 
interface 
uses 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, StdCtrls; 
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class(TComponent) 



type 

TMult = 
Private 

FTooBig : TNotif yEvent ; 
integer; 
integer; 
integer; 



TComponent) ; override; 



FVall 
FVal2 
FRes 
protected 
public 

{constructeur principal } 
constructor Create (AOwner 
{methode pour multiplier } 
procedure DoMult; 

{propriete pour obtenir le resultat } 
Property Res:integer read FRes; 
published 

property Val1:integer read FVall Write FVall default 1; {Operande 1} 
property Val2: integer read FVal2 Write FVal2 default 1; {Operande 2} 
Property OnTooBig:TNotifyEvent read FTooBig write FTooBig; {evenement} 
end; {TMult} 



procedure Register; 
implementation 

constructor TMult. Create (AOwner: TComponent); 
BEGIN 

inherited Create (AOwner) ; 
FVall := 1; 
FVal2 := 1; 
End; 

procedure TMult. DoMult; 
Begin 

if (Val1 < 100) and (Val2 < 100) then 

FRes := FVall * FVal2 
else 

if assigned(FTooBig) then OnTooBig (Self ) ; 
End; 



procedure Register; 
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begin 

RegisterComponents( 'Samples' , [TMult] ) ; 
end; 

end . 



Tester le composanf 



Vous pouvez installer ce composant en suivant la procedure decrite plus tot dans cette section. 
Une fois installe, vous pouvez le tester en creant une application qui en fait usage. La 
Figure 13.6 indique la disposition des composants pour l'application de test, et le Listing 13.5 
montre le code de cette application. 



Figure 13.6 

La disposition des composants 
pour l'application de test de 
TMult. 




Listing 13.5 : Unite principale pour le test de TMult 
unit main; 

interface 

uses 

SysUtils, Windows, Messages, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls, TMultiply; 

type 

TForml = class(TForm) 
Multl : TMult; 
EdVall : TEdit; 
EdVal2: TEdit; 
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EdResult: TEdit; 
Buttonl : TButton; 

procedure Button1Click(Sender: TObject); 

procedure Mult1TooBig(Sender: TObject); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .Button1Click(Sender: TObject); 
begin 

{ On definit les proprietes } 
Mult1.Val1 := StrToInt(EdVal1 .Text) ; 
Mult1.Val2 := StrToInt(EdVal2.Text) ; 
{ On execute la methode } 
Multl .DoMult; 
{On capture le resultat } 
EdResult. Text : = IntToStr(Mult1 .Res) ; 
end; 

procedure TForml .Mult1TooBig(Sender: TObject); 
begin 

Application .MessageBox( 1 Petit bras le composant', 

'Le composant trouve le nombre trop grand 1 , 
MB_0K) ; 

end; 
end. 



flnolijse 



L' application de test consiste en trois boites d'edition et en un bouton. Un utilisateur peut 
placer des nombres dans les deux premieres. Lorsqu'il clique sur le bouton, les nombres sont 
multiplies a I' aide du composant et le resultat est place dans la troisieme. Vous pouvez ajouter 
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un Gestionnaire d'evenements qui affiche une boite de dialogue indiquant qu'au moins un des 
nombres est trop grand, dans le cas oil V'ev'enement OnTooBig s'est declenche. 

Comme le montre la Figure 13.7, le Gestionnaire d'evenements a ete appele lorsqu'un nombre 
superieur a 100 a ete multiplie dans le composant TMult. 




Lire et modifier des valeurs de propriete 
avec des procedures 

Pour obtenir le produit de deux nombres, le composant TMult s'appuie sur un processus peu 
elegant en deux etapes. Lorsque la valeur de Van ou Val2 est modifiee, Res doit etre recalcule 
automatiquement. Pour ce faire, vous pouvez appeler une procedure des que la propriete est 
modifiee, ou encore une fonction qui renvoie la valeur de la propriete des que celle-ci est lue. 

/Oail ^ ne m ^ m °de d'acces est le processus d'appel d'une procedure ou d'une fonction lorsqu'on 
I C U U accede a une propriete. Pour en utiliser une, vous remplacez le nom de la variable de stockage 

direct par celui de la fonction utilisee pour manipuler les donn'ees de la declaration de pro- 
| priete. Pour implementer une methode d'acces dans la methode TMult, vous devez apporter les 

modifications suivantes a la declaration de classe : 

J type 

TMult = class(TComponent) 
J Private 

FTooBig : TNotif yEvent ; 
FVall : integer; 
FVal2 : integer; 
FRes : integer; 

{********** 0n depiace DoMult dans la zone Private *******} 



LE PR*)GRAMMEUR 



.reer des composanrs visuels et HcMveX 



procedure DoMult; 

{********** on ajoute la definition de SetVall et SetVal2 *******} 



procedure SetVall (InVal : Integer); {Pour definir Valuel} 
procedure SetVal2(InVal : Integer); {Pour definir Value2} 

protected 

public 

{Propriete pour obtenir le resultat } 
Property Res:integer read FRes; 

constructor Create(AOwner : TComponent) ; override; {constructeur principal } 
published 

{********** methodes d 1 acces set *******} 

property Van : integer read FVall Write SetVall default 1; {Operand 1} 
property Val2: integer read FVal2 Write SetVal2 default 1; {Operand 2} 
Property OnTooBig:TNotifyEvent read FTooBig write FTooBig; {Event} 

end; {TMult} 

{■■■} 



procedure TMult. SetVall (InVal : Integer); 
Begin 

FVall := InVal; 
DoMult; 
End; 

procedure TMult. SetVal2(InVal : Integer); 
Begin 

FVal2 := InVal; 
DoMult; 
End; 

{■■■} 

end. 

Dans le programme de test, vous n'avez plus besoin d'appeler la methode DoMult. En fait, si 
vous tentez de le faire, 1' application ne se compile pas car la methode a ete deplacee dans la 
partie privee. Les fonctionnalites demeurent inchangees pour le reste. 

Modifier un composanf deja exisfanf : TButCloch 

TMult nous a permis d'aborder de nombreux concepts lies a la creation d'un composant, mais 
pas de voir comment deriver un composant d'un deja existant. L'un des grands avantages de 
la programmation orientee objet est qu'un objet peut etre derive d'une classe ancetre. Ainsi, 
par exemple, si vous souhaitez creer un composant qui soit un bouton vert, vous n'etes pas obli- 
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ge d'ecrire tout le code qui cree un bouton et prevoit toutes les interactions possibles avec 
celui-ci. Un bouton generique existe deja. 

Grace a l'heritage, vous pouvez deriver un nouvelle classe qui beneficie de toutes les fonction- 
nalites de sa classe parent, auxquelles peuvent s'ajouter des ameliorations ou des personnali- 
sations. Dans l'exemple qui suit, nous allons creer un composant appele TButClock. II se 
comporte comme un bouton, a cela pres que la propriete Caption est modifiee automatique- 
ment pour contenir l'heure courante. 

Pour construire un composant a partir d'un deja existant, vous utilisez l'Expert composant pour 
creer son noyau et ajouter d'eventuelles nouvelles fonctionnalites. Pour cet exemple, on utili- 
sera un thread qui sera place dans une boucle jusqu'a destruction du composant. Le thread est 
en sommeil une seconde, puis appelle une fonction de callback dans le composant pour actua- 
liser la caption avec l'heure courante. Le code du composant TButClock figure dans le 
Listing 13.6. 

Listing 13.6 : Le composant TButClock 
unit unitTBC; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls,extctrls; 
type 

{un type Callback pour que le thread puisse actualiser l'horloge } 
TCaptionCallbackProc = procedure(X : String) of object; 

{Objet Thread } 
TUpdateClock = class(TThread) 
private 

procedure UpdateCaption; 
protected 

procedure Execute; override; 
public 

UpdateClockProc : TCaptionCallbackProc; 
end; 

{Composant principal } 
TButClock = class(TButton) 
private 

{ Declarations privees } 
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MainThread : TUpdateClock; 

procedure UpdateCaption(X : String); 
protected 

{ Declarations protegees } 
public 

{ Declarations publiques } 

constructor Create (AOwner : TComponent) ;override; 

destructor destroy; override; 
published 

{ Declarations publiees } 
end; 

procedure Register; 
implementation 

procedure TUpdateClock . UpdateCaption ; 

{Cette routine appelle UpdateClockProc en lui fournissant } 

{l'heure correcte } 

begin 

UpdateClockProc(TimeToStr(Now) ) ; 
end; 

procedure TUpdateClock. Execute; 

{On boucle jusqu'a ce qu'on nous dise de terminer, puis on sort } 
begin 

while (not Terminated) do 
begin 

Synchronize(UpdateCaption) ; 
Sleep(l000) ; 
end 
end; 



constructor TButClock.Create(AOwner : TComponent); 
begin 

inherited Create (AOwner) ; 
{on cree le thread en mode suspendu } 
MainThread := TUpdateClock. Create(True) ; 
{on definit le pointeur de callback } 
MainThread .UpdateClockProc := UpdateCaption; 
{On sort le thread du mode suspendu } 
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MainThread . Resume ; 

end; 

destructor TButClock. Destroy; 
{Appele lors de la destruction du composant } 
begin 

{ on dit au thread de s'achever } 
MainThread . Terminate ; 
{On attend la fin } 
MainThread .WaitFor; 
{ Nettoyage de TButClock} 
inherited Destroy; 
end; 

procedure TButClock. UpdateCaption (X : String); 
{On modifie le Caption lorsqu'on nous dit de le faire } 
begin 

Caption := X; 
end; 

procedure Register; 
begin 

RegisterComponents( 1 Samples 1 , [TButClock] ) ; 
end; 

end . 

L 'analyse de ce code figure dans les parties qui suivent. 

Le constructeur 

Le constructeur commence par executer tout le code necessaire provenant de son parent. En 
l'occurrence, l'objet est un descendant de TButton, il est done important que le bouton procede 
aux allocations ou initialisations indispensables a son bon fonctionnement. Une fois que vous 
avez appele le constructeur herite, vous creez une instance de la classe de thread TUpdateClock 
en appelant sa methode create. Celle-ci est passee comme True pour indiquer que le thread 
doit etre suspendu lors de sa creation. Une fois ce dernier cree, vous devez proceder comme 
suit : 

1. Affectez la procedure UpdateCaption a la propriete UpdateClocProc du thread. Vous 
indiquez ainsi au thread ce qu'il doit faire lorsqu'il est temps d'actualiser le libelle du 
bouton. 
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2. Sortez le thread du mode suspendu en appelant Resume, comme le montre le code ci- 
apres : 



I constructor TButClock.Create(AOwner : TComponent); 
begin 
inherited Create (AOwner) ; 
{on cree le thread en mode suspendu } 
MainThread := TUpdateClock.Create(True) ; 
{on definit le pointeur de callback } 
MainThread .UpdateClockProc := UpdateCaption ; 
{on sort le thread du mode suspendu } 
MainThread . Resume ; 
end; 

Le destructeur 

Pour le destructeur, vous devez ordonner au thread de s'achever, puis attendre qu'il le soit 
avant de pouvoir detruire sans danger le composant TButClock, comme le montre le code ci- 
apres : 

I destructor TButClock. Destroy; 
{appele lors de la destruction du composant } 
begin 
{ indique au thread de s'achever } 
MainThread .Terminate ; 
{ on attend la fin } 
MainThread .WaitFor; 
{ Nettoyage de TButClock} 
inherited Destroy; 
end; 

La procedure UpdateCaption 

Le thread appelle UpdateCaption et lui passe Time pour actualiser le libelle, comme le montre 
le code ci-apres (vous auriez tout aussi bien pu placer la logique liee a l'heure dans cette 
procedure) : 

procedure TButClock . UpdateCaption (X : String); 
{On modifie le Caption lorsqu'on nous dit de le faire } 
begin 

Caption := X; 
end; 
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La procedure Register 

Vous achevez le composant avec la procedure Register, qui declare que le composant TBut - 
Clock doit etre place sur la page Exemples de la VCL. 

J procedure Register; 
J begin 

RegisterComponentsf 1 Samples 1 , [TButClock] ) ; 
end; 
J end. 

TButClock 

Une fois que vous avez construit votre composant, il est pret a l'emploi. Lorsque vous l'ajoutez 
a une forme lors de la conception, il donne l'heure avant meme que le programme ne soit com- 
pile. Vous n'avez pas modifie la fonctionnalite de la propriete Caption pour qu'elle puisse etre 
lue : elle indique l'heure courante. Vous n'avez pas empeche l'utilisateur d'ecrire dans le 
champ Caption. Tout ce qu'il ecrit dans cette propriete sera remplace par l'heure courante la 
prochaine fois que le thread inscrira la nouvelle heure. La Figure 13.8 montre une application 
utilisant le composant bouton horloge. 



Figure 13.8 

Le bouton horloge. 
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Declarer un nouvel evenemenf : UserPlot 

Lorsque vous avez travaille avec TMult, vous avez vu comment ajouter un evenement a un 
composant. C'etait cependant un cas particulier. Vous avez declare la propriete comme un type 
TNotif yEvent. Pour passer d'autres parametres vers ou en provenance d'un evenement, Del- 
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phi a declare TNotify comme un pointeur vers une fonction a laquelle on transmet comme 
parametre un TOb j ect. Si un evenement doit utiliser d'autres parametres, vous pouvez declarer 
le type correspondant. L'exemple qui suit montre comment y parvenir. II permet de creer un 
evenement qui passe un nombre reel au Gestionnaire d'evenements et renvoie un nombre reel 
different en utilisant un parametre var. 



Selon le type d' applications que vous concevez, le composant qui suit peut s'averer utile. On 
est souvent amene a tracer une fonction mathematique. De nombreux composants vous permet- 
tent de creer un graphique en fournissant un ensemble de points, mais tres peu vous permettent 
de fournir simplement la fonction a tracer. Ce composant sert a cela. Un evenement appele 
OnUserFunc est defini. II passe une valeur X et attend qu'une valeur Y soir renvoyee. Les fac- 
teurs d'intervalle et d'echelle sont definis comme proprietes. Ainsi, si vous souhaitez tracer la 
fonction Y=Xx2, vous ajoutez le composant a votre forme et le code ci-apres a l'evenement 
OnUserFunc : 

procedure TForml .FuncGraph1UserFunc(X: Real; var Y: Real); 
begin 

Y := X * X; 
end; 

Le composant TFuncGraph gere toutes les mises a l'echelle et transforme les coordonnees. 
Vous n'avez en fait a taper qu'une seule ligne de code. Les exemples precedents vous ont mon- 
tre comment en implementer la plus grande partie. Le code complet de TFuncGraph figure 
Listing 13.7. Les sections qui suivent mettent 1' accent sur la methode permettant de creer un 
nouveau type d'evenement et sur la creation d'un evenement base sur celui-ci. 

Listing 13.7 : Le composant TFuncGraph 

I unit PlotChart; 
interface 
uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs; 
type 
TUserPlotFunc = procedure(X : real ; var Y : real) of object; 
TFuncGraph = class (TGraphicControl) 
private 
{ Declarations privees } 
FRangeMinX : integer; 
FRangeMaxX : integer; 
FRangeMinY : integer; 
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FRangeMaxY : integer; 

FUserFunc : TUserPlotFunc ; 
protected 

{ Declarations protegees } 

procedure paint; override; 
public 

{ Declarations publiques } 

constructor Create (Aowner : TComponent) ; override; 
published 

{ Declarations publiees } 

property RangeMinX : integer read FRangeMinX write FRangeMinX; 
property RangeMaxX : integer read FRangeMaxX write FRangeMaxX; 
property RangeMinY : integer read FRangeMinY write FRangeMinY; 
property RangeMaxY : integer read FRangeMaxY write FRangeMaxY; 
property OnUserFunc : TUserPlotFunc read FUserFunc write FUserFunc 
property Width default 50; 
property Height default 50; 
end; 

procedure Register; 
implementation 

constructor TFuncGraph . Create (Aowner : TComponent); 
begin 

{on definit une largeur, une hauteur et un intervalle par defaut } 

inherited Create (AOwner) ; 

Height := 50; 

Width := 50; 

FRangeMaxX : = 1 ; 

FRangeMaxY := 1 ; 
end; 

procedure TFuncGraph . Paint ; 
var 

X,Y : integer; { pixels reels} 

RX, RY : real; {coordonnees utilisateur } 

begin 
inherited Paint; 

Canvas . Rectangle ( 0, 0 , Width , Height ) ; 
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For X := 1 to Width do 
begin 

{on convertit X en X utilisateur } 
{Note : la largeur ne peut etre 0} 

RX := FRangeMinX + ( ( (FRangeMaxX - FRangeMinX) /Width) *X) ; 

{Si 1 1 utilisateur a affecte une fonction de tragage } 

{on appelle cette fonction, sinon on affecte RY = 0 } 

if assigned(FUserFunc) then 

FUserFunc (RX, RY) 
else 

RY := 0; 

{On reconvertit RY en coordonnees de pixel } 

Y := round((1 - ( (RY-FRangeMinY) / (FRangeMaxY- FRangeMinY) ) ) * Height): 
if X = 1 then 

Canvas. MoveTo(X,Y) 
else 

Canvas. LineTo(X,Y) ; 

end; 
end; 

procedure Register; 
begin 

RegisterComponents( 'Additional' , [TFuncGraph] ) ; 
end; 



end. 



Analyse 



L' analyse de ce listing figure dans les parties qui suivent. 



Creer un nouveau Ujpe d'evenemenf 

La fonctionnalite cle de ce composant est de permettre a l'utilisateur de definir une fonction 
arbitraire a tracer. Pour ce faire, vous implementez un nouveau type d'evenement, TUser- 
PlocFunc, dont la definition est : 

TUserPlotFunc = procedure(X : real ; var Y : real) of object; 
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Ce type est declare dans la partie type de l'unite. Notez que TUserPlotFunc est une procedure, 
ce qui peut sembler bizarre dans une section type. Cela signifie que vous pouvez declarer une 
variable qui est un pointeur vers une procedure prenant les arguments specifies dans la decla- 
ration de type. Une fois le type declare, vous definissez une propriete publiee de TUser- 
PlotFunc pour creer un evenement utilisant les parametres definis precedemment : 

B published 
property OnUserFunc : TUserPlotFunc read FUserFunc write FUserFunc; 

Lorsque le composant est installe, un nouvel evenement appele OnUserFunc apparait dans la 
liste. Si on double-clique dessus, Delphi cree une nouvelle procedure contenant les parametres 
adequats. 

J procedure TForml .FuncGraph1UserFunc(X: Real; var Y: Real); 
J begin 

end; 

flppeler revenement 

Pour appeler le Gestionnaire d'evenements a partir de votre composant, vous appelez la varia- 
ble qui pointe sur la procedure et vous passez les parametres adequats. Assurez-vous qu'un 
evenement valide est defini. Pour le savoir, appelez la fonction assigned. Voici un exemple 
d'appel a la fonction utilisateur : 

Bif assigned(FUserFunc) then 
FUserFunc ( RX, RY) 

TFuncGraph 

La Figure 13.9 montre la puissance potentielle d'un evenement personnalise. En ne tapant que 
huit lignes de code (voir Listing 13.8), vous pouvez tracer quatre fonctions mathematiques . 
Voila ce qui s'appelle du developpement rapide d' application. 
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Listing 13.8 : Programme de test de TFuncGraph 
unit unitPlotApp; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, 
Forms, Dialogs, 
StdCtrls, PlotChart; 



type 

TForml = class (TForm) 
FuncGraph4: TFuncGraph; 
FuncGraphl : TFuncGraph; 
FuncGraph2: TFuncGraph; 
FuncGraph3: TFuncGraph; 
Labell : TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Label4: TLabel; 

procedure FuncGraph1UserFunc(X: Real; var Y 
procedure FuncGraph3UserFunc(X: Real; var Y 
procedure FuncGraph4UserFunc(X: Real; var Y 
procedure FuncGraph2UserFunc(X: Real; var Y 

private 

{ Declarations privees } 

public 



Real) ; 
Real) ; 
Real) ; 
Real) ; 
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{ Declarations publiques } 
end; 

var 

Forml : TForml ; 
implementation 
{$R * . DFM} 

procedure TForml .FuncGraph1UserFunc(X: Real; var Y: Real); 
begin 

Y := X; 
end; 

procedure TForml .FuncGraph3UserFunc(X: Real; var Y: Real); 
begin 

Y := Cos(X); 
end; 

procedure TForml .FuncGraph4UserFunc(X: Real; var Y: Real); 
begin 

Y := Sin(X); 
end; 

procedure TForml .FuncGraph2UserFunc(X: Real; var Y: Real); 
begin 

Y := sqrt(X); 
end; 



end . 



Cette application de test simple trace quatre fonctions, Y=X, Y=sin(X), Y=cos(X) et 
Y=sqrt(X). L'echelle pour les coordonnees Yainsi que I'intervalle des X sont definies dans les 
propri'et'es de chacune des quatre coordonnees. Les composants TLabel sont utilises pour 
inscrire un titre sous chacune des courbes. 
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Presentation d'HcNveX ef de ses composes 

Microsoft a d'abord lance OLE (Object Linking and Embedding, ou liaison et incorporation 
d'objets) comme standard permettant a des objets de communiquer avec une application hote. 
La specification initiale avait pour but de permettre a une application telle qu'Excel d'incorpo- 
rer une feuille de calcul dans n'importe quelle autre application prenant en charge le standard 
OLE. OLE 1.x etait depourvu de certaines fonctionnalites indispensables, si bien qu'une spe- 
cification OLE 2.0 a ete mis en place, puis implemented. OLE representait les fondations d'une 
technologie permettant le partage d'objets generiques. Cette technologie s'est appelee COM 
{Component Object Model ou Modele objet de composant). et a ete utilisee pour creer une spe- 
cification pour les composants OCX. L'acronyme OLE s'est revele reducteur puisque COM 
etait loin de se cantonner a 1' incorporation et a la liaison d'objets. Microsoft a alors developpe 
le standard ActiveX actuel, ainsi que les composants ActiveX, qui sont les successeurs d'OLE 
et des OCX fondes sur l'architecture COM. 

On peut se representer COM comme le standard binaire de partage de composants entre deux 
morceaux de code. COM permet de separer 1' implementation d'un objet des fonctions que cet 
objet effectue. Les fonctions qu'il effectue sont decrites dans ses interfaces. Une interface est 
une methode d'acces a un ensemble de fonctions logiquement apparentees, que peut imple- 
menter un objet. Chaque classe d'objet possede un identificateur (ID) de classe unique (CLSID) 
qui prend en charge un ensemble arbitraire d' interfaces. Toutes les classes doivent prendre en 
charge l'interface IUnknown qui peut etre ensuite utilisee pour acceder aux interfaces qu'elle 
gerent. Ceci s'effectue par le biais de la fonction Querylnterf ace, qui est toujours fournie dans 
l'interface IUnknown . Celle-ci permet a une application de demander a un objet s'il prend en 
charge les fonctions lui permettant d'effectuer telle ou telle tache. L'objet repond alors par oui 
ou par non. Ce modele objet est tres puissant car il permet a une application de determiner cela 
en phase d' execution. 

Un objet COM est implements par le biais de plusieurs methodes. II peut etre compile en une 
DLL ou un OCX s'executant dans le meme espace de processus que l'application qui l'appelle. 
II peut egalement etre lance dans son propre espace, sous forme d'executable compile. Avec 
COM distribue (DCOM), l'objet peut s'executer sur une machine differente, n'importe ou dans 
le monde. Les services systeme COM simplifient l'appel d'objets COM, meme si le code 
d' implementation se trouve dans un processus ou sur une machine differente. Les composants 
ActiveX sont des objets COM qui implementent un ensemble d'interfaces de base permettant 
au composant d'etre incorpore a des applications qui accueillent des composants ActiveX. 

Avec Delphi, il est tres simple de creer des composants ActiveX, meme a partir d'un compo- 
sant visuel Delphi deja existant. L'application hote peut alors manipuler les proprietes et 
repondre aux evenements tout comme une application Delphi avec des composants visuels. 
Vous pouvez egalement ajouter de nouveaux evenements, proprietes et methodes au compo- 
sant ActiveX pour lui donner des fonctionnalites supplementaires. 

ConverNr un composant visuel en un composant 
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La premiere etape pour creer un composant ActiveX consiste a creer une nouvelle bibliotheque 
ActiveX. Pour la creer, choisissez Fichier, Nouveau dans le menu, selectionnez l'onglet Acti- 
veX, puis choisissez Bibliotheque ActiveX. Vous creez ainsi un nouveau projet qui se compi- 
lera sous forme de fichier .OCX (le module qui stocke les composants ActiveX). Ensuite, 
choisissez Fichier, Nouveau dans le menu Delphi. Dans la boite de dialogue qui apparait alors, 
choisissez Controle ActiveX. L'assistant du meme nom apparait, c'est celui qui generera le 
code necessaire a la creation d'un controle ActiveX a partir d'un composant visuel deja exis- 
tant. 

L'assistant a besoin de trois informations : le composant visuel sur lequel sera fonde le com- 
posant ActiveX, la classe du nouveau composant ActiveX et l'emplacement du futur fichier 
d' implementation. D'autres options vous permettent d'utiliser des licences de conception, le 
controle des versions et une boite A propos. Pour notre exemple, nous allons partir du compo- 
sant visuel bouton horloge (TButtonClock) pour en faire un controle ActiveX. La Figure 13.10 
montre ce a quoi doit ressembler l'Assistant. 



Figure 13.10 

L'Assistant controle ActiveX. 




L'Assistant genere tout le code necessaire a la compilation du composant en un composant 
ActiveX. Pour compiler le controle, il suffit de choisir Projet, Compiler dans le menu Delphi. 

Pour ajouter des fonctionnalites a un controle ActiveX, vous pouvez employer deux methodes. 
La premiere consiste a les ajouter au composant visuel sur lequel est base le controle ActiveX 
et a le construire a nouveau. L'autre methode consiste a ajouter directement les fonctionnalites 
au composant ActiveX. Le code source genere par l'Assistant controle ActiveX figure 
Listing 13.9. 

Listing 13.9 : Le code source du controle ActiveX genere par l'assistant controle 
ActiveX a partir du composant bouton horloge 

J unit ActXClocklmpl; 
J interface 
uses 
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Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, 
[ccc]StdCtrls, 

ComServ, StdVCL, AXCtrls, ActXClockPR_TLB, unitTBC; 
type 

TActXClockX = class(TActiveXControl, IActXClockX) 
private 

{ Declarations privees } 

FDelphiControl: TButClock; 

FEvents: IActXClockXEvents; 
protected 

{ Declarations protegees } 

procedure InitializeControl; override; 

procedure EventSinkChanged(const EventSink: IUnknown); override; 
procedure Def ineProperty Pages (Def inePropert yPage : 

[ccc]TDef inePropertyPage) ; override; 
function Get_Cancel: WordBool; safecall; 
function Get_Caption: WideString; safecall; 
function Get_Cursor: Smallint; safecall; 
function Get_Default: WordBool; safecall; 
function Get_DragCursor : Smallint; safecall; 
function Get_DragMode : TxDragMode; safecall; 
function Get_Enabled: WordBool; safecall; 
function Get_Font: Font; safecall; 
function Get_ModalResult : Integer; safecall; 
function Get_Visible: WordBool; safecall; 
procedure Click; safecall; 

procedure Set_Cancel(Value: WordBool); safecall; 
procedure Set_Caption( const Value: WideString); safecall; 
procedure Set_Cursor(Value: Smallint); safecall; 
procedure Set_Default (Value : WordBool); safecall; 
procedure Set_DragCursor(Value: Smallint); safecall; 
procedure Set_DragMode (Value: TxDragMode); safecall; 
procedure Set_Enabled (Value : WordBool); safecall; 
procedure Set_Font (const Value: Font); safecall; 
procedure Set_ModalResult (Value: Integer); safecall; 
procedure Set_Visible (Value : WordBool); safecall; 
end; 



implementation 
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{ TActXClockX } 

procedure TActXClockX. InitializeControl; 
begin 

FDelphiControl := Control as TButClock; 
end; 

procedure TActXClockX. EventSinkChanged (const EventSink: IUnknown); 
begin 

FEvents := EventSink as IActXClockXEvents ; 
end; 

procedure TActXClockX. Def ineProperty Pages (Def ineP rope rty Page: 

[ccc]TDef inePropertyPage) ; 
begin 

{ Definissez les pages de propriete ici. Celle(s)-ci sont definies 
appelant 

Def inePropertyPage avec 1 1 id de classe de la page. Par exemple, 
Def inePropertyPage (Class_ActXClockXPage) ; } 

end; 

function TActXClockX. Get_Cancel: WordBool; 
begin 

Result := FDelphiControl. Cancel; 
end; 

function TActXClockX. Get_Caption : WideString; 
begin 

Result := WideString(FDelphiControl. Caption) ; 
end; 

function TActXClockX. Get_Cursor: Smallint; 
begin 

Result := Smallint(FDelphiControl. Cursor) ; 
end; 

function TActXClockX. Get_Def ault : WordBool; 
begin 

Result := FDelphiControl. Def ault; 
end; 
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function TActXClockX.Get_DragCursor: Smallint; 
begin 

Result := Smallint(FDelphiControl.DragCursor) ; 
end; 

function TActXClockX.Get_DragMode: TxDragMode; 
begin 

Result := Ord(FDelphiControl.DragMode) ; 
end; 

function TActXClockX.Get_Enabled : WordBool; 
begin 

Result := FDelphiControl. Enabled; 
end; 

function TActXClockX.Get_Font : Font; 
begin 

Get01eFont(FDelphiControl.Font, Result) ; 
end; 

function TActXClockX.Get_ModalResult : Integer; 
begin 

Result := Integer(FDelphiControl.ModalResult) ; 
end; 

function TActXClockX.Get_Visible: WordBool; 
begin 

Result := FDelphiControl. Visible; 
end; 

procedure TActXClockX. Click; 
begin 

end; 

procedure TActXClockX. Set_Cancel (Value: WordBool); 
begin 

FDelphiControl. Cancel := Value; 
end; 



procedure TActXClockX. Set_Caption (const Value: WideString); 
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begin 

FDelphiControl. Caption := TCaption(Value) ; 
end; 

procedure TActXClockX.Set_Cursor( Value: Smallint); 
begin 

FDelphiControl. Cursor := TCursor(Value) ; 
end; 

procedure TActXClockX.Set_Default (Value: WordBool); 
begin 

FDelphiControl. Default := Value; 
end; 

procedure TActXClockX.Set_DragCursor( Value: Smallint); 
begin 

FDelphiControl. DragCursor := TCursor(Value) ; 
end; 

procedure TActXClockX.Set_DragMode (Value: TxDragMode); 
begin 

FDelphiControl. DragMode := TDragMode(Value) ; 
end; 

procedure TActXClockX.Set_Enabled (Value: WordBool); 
begin 

FDelphiControl. Enabled := Value; 
end; 

procedure TActXClockX.Set_Font(const Value: Font); 
begin 

Set01eFont(FDelphiControl.Font, Value) ; 
end; 

procedure TActXClockX.Set_ModalResult(Value: Integer); 
begin 

FDelphiControl. ModalResult := TModalResult (Value) ; 
end; 

procedure TActXClockX.Set_Visible( Value: WordBool); 
begin 
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FDelphiControl. Visible := Value; 
end; 
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initialization 

TActiveXControlFactory . Create ( 
ComServer, 
TActXClockX, 
TButClock, 
Class_ActXClockX, 
1. 

i i 

) 

0); 

end. 

Une nouvelle classe est generee ( TActXClockX). Elle contient un composant visuel TButClock 
dans la section private de la definition de classe. Toutes les proprietes et methodes du 
composant ActiveX sont definies comme des procedures et des fonctions dans sa declaration. 
Ainsi, la propriete Cursor est implementee avec la fonction Get_Cursor et la procedure 
Set_Cursor. Ces procedures sont appel'ees lorsque Cursor est definie ou lue. Leur implemen- 
tation est automatiquement generee par I Assistant contrble ActiveX. 

En plus du fichier d' implementation ActiveX, l'Assistant Control construit une bibliotheque 
de types, qui definit les interfaces et les proprietes du composant dans une bibliotheque Acti- 
veX. Delphi propose un editeur de bibliotheque de types vous permettant de modifier (et de 
consulter) les informations que celle-ci contient sur un controle ActiveX. Pour consulter cette 
bibliotheque, choisissez Voir, Bibliotheque de types, et vous pourrez alors voir quels controles, 
interfaces et pages de proprietes se trouvent dans le projet, ainsi que leurs proprietes, evene- 
ments et methodes (voir Figure 13.11). 



Figure 13.11 

La bibliotheque de types du 
composant ActiveX bouton horloge. 
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II est egalement tres facile d'ajouter des proprietes, des evenements et des methodes directe- 
ment dans un controle ActiveX. Pour cela, nous allons ajouter une nouvelle methode, Make- 
Bold, qui fera passer en gras le texte du libelle. Pour l'ajouter, choisissez Editer, Ajouter a 
l'interface dans le menu Delphi. La boite de dialogue Ajout a l'interface apparait alors. Assu- 
rez-vous que Interface est definie comme Proprietes/methodes, et entrez procedure Make - 
Bold ; pour la declaration (voir Figure 13.12). 



Figure 13.12 

Ajouter une methode au 
composant. 
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Vous avez ainsi effectue trois taches : la methode MakeBold a ete ajoutee a la definition d'inter- 
face dans la bibliotheque de types et a la definition de classe, et un squelette de la procedure 
MakeBold a ete cree. Le voici : 

procedure TActXClockX. MakeBold; 
begin 

end; 

II vous incombe alors de completer ce code en ajoutant celui qui modifie la police. La proce- 
dure finale est la suivante : 

procedure TActXClockX. MakeBold; 
begin 

FDelphiControl. Font. Style := [fsBold]; 
end; 

Le FDelphiControl reference dans cette procedure est une instance du composant TButClock, 
qui est encapsule dans le controle ActiveX. Lorsque la methode MakeBold est appelee sur le 
composant ActiveX TActXClockX, la procedure affecte f sBold a la propriete Font . Style dans 



LE PR*)GRAMMEUR 




le composant encapsule. Vous pouvez voir la declaration de FDelphiCont rol dans la definition 
de classe. 



Lorsque vous compilez le projet, vous obtenez un OCX contenant 1' implementation du com- 
posant ActiveX. Les composants ActiveX doivent etre enregistres dans un systeme avant uti- 
lisation. La bibliotheque ActiveX s'auto-enregistre si l'application hote peut appeler la 
procedure d'enregistrement. II est egalement possible d'enregistrer le composant a partir de 
l'EDI Delphi en choisissant Executer, Recenser Serveur ActiveX. Ici, sauvegardez-le imme- 
diatement a l'aide de cette option de menu. 

Vous pouvez egalement utiliser De-recenser serveur ActiveX pour desinstaller un controle de 
votre machine. Le moyen le plus simple pour le tester consiste a utiliser la commande Deploie- 
ment Web pour que Delphi genere une page Web de test. Nous allons compliquer un peu ce 
principe dans la partie suivante en incorporant le composant dans une page Web contenant un 
script qui permettra a ce composant d'interagir avec d'autres composants de la page. 

Composant ActiveX dans une page Web contenant 
un script 

L'aspect le plus seduisant des ActiveX est qu'ils sont independants du langage et de l'applica- 
tion. Dans l'exemple qui va suivre, nous allons creer une page Web en comportant deux : le 
desormais celebre bouton horloge et le bouton poussoir Microsoft standard. On ajoutera du 
VBScript a la page pour que, lorsque l'utilisateur clique sur le bouton poussoir, la police du 
bouton horloge passe en gras. 

Le code HTML correspondant a cette page figure Listing 13.10. 

Listing 13.10 : Code HTML pour creer une page contenant des composants ActiveX 

I<HTML> 
<HEAD> 
<TITLE>Des composants ActiveX marchant main dans la main ! </TITLE> 
</HEAD> 
<B0DY> 
<H2> Des composants ActiveX marchant main dans la main !</H2> 
<HR> 
<CENTER><Table Border=l> 
<TR><TD ALIGN=CENTER> 
<0BJECT ID="PushForBold" WIDTH=203 HEIGHT=32 
CLASSID="CLSID:D7053240-CE69-11CD-A777-00DD01143C57"> 
<PARAM NAME="VariousPropertyBitS" VALUE=" 268435483 "> 
<PARAM NAME="Caption" VALUE="Cliquez ici pour enrichir 1' horloge "> 
<PARAM NAME="Size" VALUE="4313;678"> 
</0BJECT> 
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</TD></TR> 

<TR><TH>Appuyez sur le bouton ci-avant pour faire passer l'horloge en gras< 
TH></TR> 

<TR><TD ALIGN=CENTER> 
<0BJECT ID="C10CkButton" WIDTH=75 HEIGHT=25 

CLASSID="CLSID:C8EE0B43-8C8F-11D0-9FB3-444553540000"> 
</0BJECT> 
</TD></TRx/TABLE></CENTER><HR> 

L'horloge et le bouton sont des composants ActiveX. Le reste est du HTML on 
ne peut plus classique 

<SCRIPT LANGUAGE= " VBSc ript " > 
Sub PushForBold_Click( ) 

call ClockButton.MakeBold() 
end sub 
</SCRIPT> 
</B0DY> 
</HTML> 

Chacun des composants ActiveX est marque par une balise <OBJECT> qui inclut un ID le r'ef'e- 
rengant dans la page. Dans cette balise, on specifie des informations concernant le compo- 
sant. La plus cruciale se trouve dans la propri'et'e CLASS ID. C'est la qu'on precise quel 
composant ActiveX sera place sur la page pour cet objet. L'lD de classe correspond au 
CoClass GUID qffiche dans la bibliotheque de types de Delphi. Les autres parametres de la 
balise <OBJECT> sp'ecifient d'eventuels parametres d' initialisation pour I'objet. Ainsi, sur le 
bouton de commande, on saisit le libelle Cliquez ici pour enrichir 1 ' horloge. II faut 
aussi specifier un Gestionnaire d'evenements enfaisant en sorte que le VBScript appelle la 
methode MakeBold lorsqu'on appuie sur le bouton poussoir. Vous auriez pu tout aussi bien 
utiliser JavaScript ou d' autres langages de script. 



RecopituloNf 

Delphi est un outil de choix pour l'ecriture d' applications. II Test egalement pour la creation 
de composants utilisables avec Delphi et d'autres applications. Nous avons vu comment fonc- 
tionnent les composants et ce qui est necessaire pour creer, installer et utiliser les votres com- 
posants. Une des fonctionnalites les plus puissantes du modele objet de Delphi tient au fait 
qu'il est oriente objet, ce qui signifie que vous pouvez prendre un composant deja existant pour 
l'ameliorer. Nous avons egalement vu comment creer et utiliser des composants ActiveX. 
Ceux-ci peuvent etre exploites avec Delphi et un grand nombre d'autres applications. Retenez 
que si vous ecrivez votre code sous forme de composants reutilisables, quand vous devrez 
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effectuer une tache similaire, celui correspondant existera deja et sera pret a l'emploi. Le temps 
ainsi gagne est incalculable. 



L' atelier vous donne deux facons de verifier que vous avez correctement assimile le contenu 
de cette partie. La section Questionnaire vous pose des questions, dont vous trouverez les 
reponses en consultant l'Annexe A, et les Exercices vous permettent de mettre en pratique ce 
que vous venez d'apprendre. Tentez, dans la mesure du possible, de bien consulter chacune des 
trois sections avant de passer a la suite. 



Q Puis-je creer un composant visuel sans heriter d'une classe d'ancetre ? 

R Non. Tout composant doit etre un descendant d'une classe, meme de la plus fondamentale 
(TComponent). 

Q Puis-je integrer une aide dans mon composant ? 

R Oui. Delphi permet de nombreuses connexions vers l'aide. Consultez le guide du concep- 
teur de composants pour plus de details . 

Q Puis-je creer des pages de proprietes personnalisees pour mes composants ActiveX ? 

R Oui. Vous pouvez choisir Fichier, Nouveau pour acceder a la boite de dialogue Nouveaux 
elements, puis selectionner l'onglet ActiveX avant de choisir "page de propriete". Cette 
page peut alors etre liee au composant. 

Q Puis-je convertir un composant ActiveX en un composant visuel ? 

R Oui. Delphi vous permet de creer un emballage de composant visuel autour d'un compo- 
sant ActiveX deja existant. 



1. Les proprietes des composants ne sont-elles que des variables, ou est-il possible de lier 
du code aux proprietes d'un composant ? 

2. Quelle est la difference entre les proprietes disponibles lors du developpement et celles 
qui ne le sont que lors de 1' execution ? 

3. Quelle est la difference entre publie et public ? 

4. En quoi differe la definition d'un evenement de celle d'une propriete ? 

5. A quoi servent 1TD de classe, la bibliotheque de types et l'interface ? 

6. Peut-on utiliser des composants ActiveX ailleurs que dans Delphi ? 
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Exercices 

1 . Ajoutez une propriete au composant TButClock permettant a l'utilisateur de specifier une 
heure de sonnerie. Ajoutez egalement un evenement OnAlarm qui est appele lorsque 
l'heure specifiee survient. 

2. Ajoutez la fonctionnalite decrite ci-avant au composant bouton horloge ActiveX. 

3. Transformez le composant TPanel en un composant ActiveX, et ameliorez-le en ecrivant 
le code pour qu'il puisse afficher un message qu'une application aura determine en mo- 
difiant une propriete. 
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Depuis quelques annees, le mot "Internet" est sur toutes les levres. La puissance de l'lnternet 
est due en partie aux protocoles (langages utilises par les applications de reseau pour commu- 
niquer) permettant a n'importe quel utilisateur d'acceder a des informations et a des applica- 
tions situees n'importe ou dans le monde. Ces memes concepts permettent a des societes de 
diffuser des informations internes a tous leurs employes en utilisant des intranets. Un intranet 
est un reseau prive dont les ressources sont similaires a celles de l'lnternet, mais qui ne sont 
accessibles qu'a des personnes dont Faeces est autorise. 

Nombreux sont ceux pour qui "Internet" et "Web" sont une seule et meme chose. Ce n'est pas 
le cas. Le World Wide Web (WWW ou Web) n'est qu'une des applications, ou ensemble de 
protocoles, utilisant l'lnternet comme mecanisme de livraison. L'lnternet est le reseau physi- 
que et logique qui interconnecte toutes les machines qui y sont reliees. Le protocole de reseau 
par le biais duquel communiquent les machines de l'lnternet est TCP/IP (Transmission Control 
Protocol/Internet Protocol) . Les serveurs et browsers Web communiquent au moyen de proto- 
coles de niveau superieur — principalement HTTP et FTP — pour transmettre les informa- 
tions entre le client et le serveur. 

II est maintenant possible d'utiliser n'importe quel protocole s'appuyant sur TCP/IP afin 
d'exploiter l'lnternet pour communiquer. De meme, le protocole HTPP peut-etre utilise pour 
permettre a une application de communiquer avec n'importe quelle autre et non uniquement 
vers le Web. Vous pouvez ainsi developper un jeu de course automobile dans lequel deux conduc- 
teurs s'affrontent, les donnees etant partagees entre les deux a l'aide de HTTP. 

Lors de cette journee, vous decouvrirez les concepts de base du Web et la facon de produire, 
avec Delphi, des applications Web client et serveur robustes. Delphi est un outil tres puissant 
pour ce type de creation. Comme nous ne ferons qu'effleurer les possibilites de Delphi en la 
matiere, n'hesitez pas a vous reporter a l'aide en ligne et aux manuels pour connaitre les vastes 
possibilites offertes par Delphi sur le Web. 



Caracferisfiques de HTTP et de HTML 

Les deux composantes les plus importantes du Web sont HTTP et HTML (HyperText Markup 
Language ou Langage de marquage hypertexte). HTML n'est pas un langage a proprement 
parler, mais un standard decrivant le format du contenu. Cela signifie que si vous declarez 
qu'un document est conforme au standard HTML, des lecteurs peuvent interpreter certaines 
balises et leur donner un sens. Prenons par exemple un "document" dont le contenu est le 
suivant : 

8<HTML> 
<B> Ceci est en gras </B> <BR>Ceci non. 
</HTML> 

"Ceci non." est dans la police standard. La balise <B> active lamise en gras et </B> la desactive. 
La balise <BR> indique un saut de ligne. Nous n'entrerons pas ici dans le detail de HTML. II 
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existe de nombreux ouvrages consacres a sa syntaxe ainsi que des programmes permettant de 
generer du code HTML. 

HTTP est un protocole de reseau client/serveur tres puissant. Cette puissance vient en partie du 
fait qu'il permet a un client et a un serveur de communiquer sans qu'il soit necessaire de main- 
tenir une connexion de reseau persistante. Une URL (http : / /www. borland . com par exemple) 
est un emplacement universel de ressource qui represente un objet present sur lTnternet. Si 
vous utilisez un browser Web pour vous rendre a cette URL, la page Web est transferee vers 
le browser et l'utilisateur peut alors la visualiser. Cependant, une fois que le chargement de la 
page s'est acheve, la connexion est rompue. On peut dire, en quelque sorte, que le serveur 
envoie les donnees par salves successives. Dans le cas d'une application pour laquelle le reseau 
est inactif la plupart du temps (comme c'est le cas lorsqu'un utilisateur lit une page Web), le 
principe de salves de donnees est tout a fait adapte car il permet au serveur de traiter d'autres 
requetes d' informations sans qu'il doive maintenir les ressources correspondant a chacune des 
connexions inactives. 

Le protocole HTTP est oriente transaction : le client effectue une demande de donnees, apres 
quoi le serveur satisfait a sa requete puis acheve la connexion. Le contenu demande peut etre 
de pratiquement n'importe quel type : documents HTML, images, applications et tout autre 
objet que le client et le serveur "connaissent" tous deux. 

Un autre aspect de la puissance de la technologie Web a trait aux URL, qui sont comme les 
entrees d'un index universel de lTnternet. Celles-ci permettent d'utiliser en conjonction et de 
maniere integree les technologies les plus variees. Une application serveur Web ecrite en Del- 
phi peut ainsi etre integree de maniere transparente a une application Web ecrite en Perl sur 
une autre machine utilisant un systeme d' exploitation different. Ainsi, par exemple, une appli- 
cation serveur Web Delphi pourrait renvoyer des informations concernant un produit a un 
browser Web. Lorsque l'utilisateur souhaite acheter le produit, il indique son numero a une 
application Perl situee sur un serveur UNIX, qui est lie au systeme d'expedition et de distribu- 
tion de la societe de VPC. 

Pour utiliser les exemples de serveur presences dans cette section, vous aurez besoin d'un 
serveur Web prenant en charge CGI, IS API, NSAPI ou WIN-CGI (ou toute combinaison de 
ces technologies). Le Microsoft Internet Information Server (IIS) ou le Personal Web Server 
(fourni avec Windows NT 4.0) gerent ISAPI et CGI. II existe d'autres serveurs tournant sur 
Windows 95, tels que celui fourni avec Front Page 97. Nous examinerons par la suite lews 
differences. 

Pour utiliser des formulaires actifs, vous aurez besoin d'un browser prenant en charge 
ActiveX (MSIE 3.0 par exemple). 
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Le contenu sfofique de Nnfernef 

A ses debuts, le Web ne contenait pratiquement que des pages statiques. Autrement dit, lors- 
qu'un browser Web selectionnait une URL, le serveur Web renvoyait le document HTML cor- 
respondant a cette URL. Le code HTML pouvait egalement contenir des hyperliens vers 
d'autres pages Web. Pour radministrateur systeme, il suffisait d'enregistrer les fichiers HTML 
dans une structure de fichier hierarchisee logiquement. Ce paradigme etait parfait pour fournir 
des informations statiques, mais il ne permettait pas l'interactivite. 

Le Listing 14.1 donne un exemple de page Web statique simple. 
Listing 14.1 : Une page Web statique simple 

I<HTML> 
<TITLE> La cabane du jardinier </TITLE> 
<B0DY> 
<H1> La cabane du jardinier </H1> 
<HR> 
Avec nous, votre jardin 
Les spécialistes mondiaux du rateau 
<BR> 
<B> Appelez 01-44444444 </B> pour plus d ' informations ! 
<HR> 
<A HREF=" http : / /www. j ardino . com/tarif s"> 
Cliquez ici pour voir nos tarifs </A> 
</B0DY> 
</HTML> 

Lorsque le client (ou le browser) demande http : / /www. j ardino . com/default . htm, son ser- 
veur Web renvoie le contenu du fichier default . htm accompagne d' informations de mise a 
jour. Ceci peut convenir a La cabane du jardinier, mais le resultat n'est pas spectaculaire et le 
contenu restera le meme a chaque visite. 

Creer du contenu dpmique avec Delphi 

Imaginons maintenant que Ton souhaite afficher un slogan different chaque fois que la page 
est appelee. Un point crucial a garder a 1' esprit pour le code HTML genere dynamiquement est 
que tout le traitement s'effectue sur le serveur. Ce dernier ne se contente plus de renvoyer le 
contenu d'un fichier (comportement statique). Si une requete dynamique est effectuee, il doit 
traiter un code particulier afin de determiner ce qui sera envoye au client. Le serveur peut le 
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traiter au moyen de differentes techniques. Les deux plus courantes consistent a lancer un exe- 
cutable indiquant au serveur ce qu'il convient de renvoyer, ou a appeler une DLL qui execute 
un code specifique et en informe le serveur. 



Delphi prend en charge quatre types de processus cote serveur pour la creation de HTML dyna- 
mique. 



Processus 


DLL ou EXE 


ISAPI 


DLL 


NSAPI 


DLL 


CGI 


EXE 


WIN-CGI 


EXE 



Lors de cette journee, nous mettrons principalement l'accent sur les ISAPI et les applications 
CGI. Toutefois, les processus NSAPI sont tres similaires aux ISAPI et les programmes WIN- 
CGI ressemblent aux CGI. 



erences entre ISHPL NSHPL CGI et WIN-CGI 

Les processus serveur executables, tels que les CGI, WIN-CGI, et les DLL en processus, telles 
que les ISAPI et NSAPI, ont chacun des avantages et des inconvenients specifiques. 

Les applications CGI (Common Gateway Interface) constituent le premier type d'application 
produisant du HTML dynamique. Lorsqu'un serveur Web recoit une requete de traitement 
d'un CGI, il transmet a l'application CGI toutes les informations provenant du client, au moyen 
de variables d'environnement et de l'entree standard (stdin). L'application CGI renvoie le 
code HTML au client par le biais de la sortie standard (stdout). Le processus est en fait plus 
complexe, puisque des en-tetes et des commandes peuvent etre transferes, mais le principe res- 
te identique. 

Pour bien voir comment fonctionne une application CGI, nous allons ecrire un executable de 
console standard fonctionnant sous forme d'une application CGI simple (ce n'est pas la 
meilleure maniere d'ecrire des applications Web en Delphi, mais cet exemple nous permettra 
de mieux comprendre ce qui se passe). Le code du Listing 14.2 dit bonjour puis donne l'heure. 
Une fois le programme compile, il suffit de placer l'executable dans un repertoire disposant de 
privileges d'execution sur un serveur Web. L'utilisateur peut alors simplement acceder a 
l'URL pointant vers l'application (Figure 14.1). 
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Listing 14.2 : Un executable CGI simple utilisant une application de console 
program consolecgi; 

uses 

SysUtils; 

begin 

writeln( 1 Content -Type : text/html ' ) ; 
writeln ; 

writeln( '<H1> Bonjour </H1> <HR>'); 
writeln('Il est ' +TimeToStr(Time) ) ; 
end. 



Figure 14.1 

Un client Web acc'edant a 
I 'application de console 
CGI. 




1 1 ion C ette application se contente d'envoyer les donnees au client via la sortie standard, au moyen 
II] DC de plusieurs declarations Writeln. La simplicite du principe peut sembler seduisante. Cepen- 
dant, avec cette methode, vous ne pouvez pas tirer parti du cadre de developpement Delphi 
\ pour les applications serveur. Le cadre de developpement (framework) de serveur Web 
Delphi, dont nous allons parler un peu plus loin, permet d'utiliser une base de code commune 
aux executables et aux processus Web en processus. II fournit egalement des routines qui 
s'acquittent du plus gros du travail lie au developpement d' applications CGI et ISAPI/NSAPI. 

L'une des meilleures raisons de preferer CGI a ISAPI (Internet Server API) ou NSAPI (Net- 
scape Server API) est que la quasi totalite des serveurs Web fonctionnant sous Windows peu- 
vent alors utiliser le meme executable compile. Cependant, si les performances sont le critere 
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principal, CGI n'est pas le plus indique. Chaque fois qu'une application client appelle un pro- 
gramme CGI, le serveur Web doit creer un nouveau processus, puis executer l'application CGI, 
renvoyer le resultat au client, et enfin liberer toutes les ressources impliquees. La charge de tra- 
vail du serveur est importante, et ce particulierement s'il est tres sollicite. Mieux vaut que le 
serveur Web execute votre code dans son propre espace de processus sans avoir a lancer un 
nouvel executable chaque fois qu'une requete dynamique est envoy ee. C'est precisement le 
principe qui sous-tend les applications ISAPI (et NSAPI). ISAPI est l'API de serveur du ser- 
veur Microsoft et ISAPI est son equivalent pour le serveur de Netscape. 

Une application ISAPI est une DLL a threads proteges qui s' execute dans V espace de proces- 
sus du serveur Web. Lorsqu'une requete HTTP appelle la DLL ISAPI, le serveur Web prend 
un thread dans son pool de thread. Quand elle le lance, il s 'execute dans la DLL. Un pool de 
thread est un ensemble de threads g'er'es par le serveur Web, qui peut grandir ou retrecir dy- 
namiquement en fonction de la charge du serveur. Une fois que le resultat a ete envoy'e au 
client, le thread est remis a disposition dans le pool. Cette gestion des ressources est bien plus 
rationnelle que la creation d'un nouveau processus pour chaque executable. L'un des incon- 
venients d'ISAPI est que ce code a threads proteges est difficile a ecrire et a tester. De plus, 
dans le cas d'une application ISAPI, une fois la DLL chargee par le serveur, il est n'ecessaire 
d'arreter ce dernier si vous souhaitez remplacer la DLL. 

cadre de developpemenf [framework] 
serveur Neb Delphi 

Le dilemme consiste done a choisir entre les applications CGI et les DLL en processus (ISAPI 
et NSAPI). Fort heureusement, Delphi vous permet de conserver une base de code commun et 
de compiler le projet sous forme d'une application CGI, WIN-CGI, ISAPI ou NSAPI. 

Nous allons reecrire l'application CGI simple de tout a l'heure, en utilisant cette fois-ci le cadre 
de developpement Web Delphi : 

1. Lancez Delphi. 

2. Choisissez Fichier, Nouveau dans la boite de dialogue Nouveaux elements. 

3. Dans l'onglet Nouveau, choisissez Application serveur Web puis cliquez sur OK. 

4. On vous demande alors quel type de serveur vous souhaitez construire. Pour l'instant, 
choisissez Executable autonome CGI, puis cliquez sur OK. 

Vous venez de creer un nouveau projet comportant un module Web et les parametres permet- 
tant de construire l'executable CGI. L'etape suivante consiste a ajouter la logique de l'appli- 
cation elle-meme. 
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1. Affectez CurrentTimeDisp alapropriete Name du WebModule. 



2. Double-cliquez sur la propriete Actions de la fiche. Une boite de dialogue apparait alors, 
du nom de Edition de CurrentTimeDisp .Actions. Elle comporte quatre colonnes : Na- 
me, Pathlnfo, Enabled et Default. 

3. Cliquez sur le bouton Ajouter. Une nouvelle ligne apparait alors dans la table des actions. 

4. Cliquez sur la nouvelle ligne et utilisez l'lnspecteur d'objet pour renommer le nouvel ob- 
jet en Def aultAction. 

5. Double-cliquez sur l'evenement OnAction dans l'lnspecteur d'objet pour construire le 
prototype du Gestionnaire d'evenements. Le code correspondant s'executera lorsque le 
serveur Web sera appele. 

6. Editez ce Gestionnaire d'evenements pour qu'il ait la forme suivante : 

procedure TCurrentTimeDisp . CurrentTimeDispDef aultActionAction ( 

Sender: TObject; 

Request: TWebRequest; 

Response: TWebResponse ; 

var Handled: Boolean); 
begin 

Response. Content := '<H1> Bonjour </H1> <HR>' + 
'II est ' + 

TimeToStr(SysUtils .Time) ; 

end; 

7. Enregistrez et compilez le projet sous le nom WEBTIME . EXE. 

8. Placez le fichier executable dans un "repertoire executable" de votre serveur Web. Vous 
devriez maintenant etre en mesure d'appeler cette application CGI comme dans le cas 
precedent. II suffit au client de specifier l'URL correcte, et cette application s'executera 
sur le serveur (voir Figure 14.2.) 



Converhr Implication CGI en une DLL I5RPI 

La conversion de l'application CGI en une DLL ISAPI (et la conservation d'une base de code 
commun) est une formalite. Voici la marche a suivre : 

1 . Fermez tous les projets ouverts. 

2. Creez une nouvelle application de serveur Web et choisissez (ISAPI/NSAPI) comme type 
d' application. 
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Figure 14.2 

L' application CGI Hello, 
construite a Vaide du 
cadre de developpement 
Web Delphi. 



Options Annuaires Ferietre 



l |hKp.:-.\ l v l vxhe;mni.:o n v , c:qibin;V,' , EBTIME.EXE 
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3. Utilisez le Gestionnaire de projet pour supprimer l'unite par defaut et pour ajouter celle 
creee dans l'exemple precedent. 

4. Compilez l'application en une DLL. Et voila. 

N'oubliez pas que si en testant une DLL ISAPI, vous lui apportez une quelconque modifica- 
tion, vous ne pourrez pas la recopier dans le serveur Web sans arreter puis relancer le service 
Web. Cela n'est pas necessaire pour les applications CGI car le nouveau processus est appel'e 
a chaque nouvelle requite. Pour executer l'application, il suffit a V utilisateur de specifier la 
DLL dans I' URL. Void un exemple : 

http://www.my 'site .comlscriptslwebtime All 



er de "vroies" applications Neb 

Maintenant que nous avons vu que la demarche reste identique pour construire n'importe quel 
type d'application Web en Delphi, il ne nous reste qu'a examiner la question principale liee au 
developpement d' applications Web, a savoir le choix entre CGI, WIN-CGI, ISAPI ou NSAPI. 

Differences entre le modele de transaction Neb 
et la programmation evenementielle 

Dans les applications a interface graphique Win32, la programmation est evenementielle. Des 
composants et des formulaires disposent de Gestionnaires d'evenements qui repondent a dif- 
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ferentes actions de l'utilisateur. Dans le cas d'une application Web, l'utilisateur ne maintient 
pas une connexion permanente avec le serveur Web, et chaque transaction doit done etre con- 
sidered comme un evenement independant. Une des difficultes liees a cet etat de fait est que 
Ton ne dispose pas de maniere inherente d'un espace de stockage persistant. Chaque transac- 
tion Web n'a pas connaissance de ce qui a pu se passer auparavant. 

Prenons l'exemple d'un puzzle ecrit en Delphi sous forme d'application Windows. La confi- 
guration du jeu peut etre placee dans une structure, et a chaque mouvement de l'utilisateur, etre 
mise a jour. Ceci est plus difficile a realiser dans une application serveur Web car il est alors 
necessaire de "simuler" un stockage permanent. Dans l'exemple d'application presente dans la 
partie suivante, on simulera ce stockage persistant en envoy ant toutes les informations neces- 
saires au serveur chaque fois que le client effectue une nouvelle requete. 

Exemple : un puzzle 

Voici un puzzle que vous connaissez peut-etre deja. II s'agit d'une grille trois par trois conte- 
nant huit pieces. L'un des emplacements est vide. Les pieces peuvent coulisser de telle maniere 
que toute piece situee a cote de l'emplacement vide peut glisser pour l'occuper. Le but du jeu 
est de les disposer dans l'ordre, avec l'emplacement vide situe dans le coin inferieur droit, com- 
me dans l'exemple ci-apres : 

326 326 123 

1 8 4 -> 1 8 x Et finalement -> 4 5 6 
75x 754 78x 

Cet exemple illustre trois concepts tres importants pour le developpement d' applications ser- 
veur Web en Delphi : 

• Comment permettre a une unique application d'effectuer plusieurs taches, en utilisant des 
informations de chemin d'acces pour declencher plusieurs evenements dans la propriete 
Action d'un formulaire Web. 

• Comment lire les informations passees du client au serveur, a l'aide de l'objet TWebRe- 
quest. 

• Comment simuler le stockage permanent en passant des informations provenant du client. 
Pour construire cette application, suivez ces etapes : 

1 . Creez une nouvelle application serveur Web. 

2. Dans la propriete Actions du formulaire Web, definissez deux objets Action, et affec- 
tez\ BOARD a la propriete Path de l'un d'entre eux (celle de l'autre reste vide), comme le 
montre la Figure 14.3. 
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Figure 143 

L'editeur Action pour le 
module Web montrant les 
deux objets Action. 



Nom Pathlnfo Aclive Defaull iinuipr 1 


WeWctionlteml /BOAR 
WetActionltern2 


True 





Dans le Listing 14.3 figure le code source correspondant au reste de 1' implementation. Les 
fonctions CanMove, BuildRef et DrawBoard sont des utilitaires independantes que vous pouvez 
entrer manuellement dans l'unite. Vous pouvez ajouter les deux evenements action en double- 
cliquant sur l'element d'evenement OnAction de ces deux actions. On suppose ici que l'exe- 
cutable residera dans le repertoire virtuel scripts et qu'il aura pour nom TileGame . EXE. 

Listing 14.3 : Un jeu de taquin Web 
unit tgUnit; 
interface 
uses 

Windows, Messages, SysUtils, Classes, HTTPApp; 
type 

TWebModulel = class (TWebModule) 

procedure WebModule1BoardAction(Sender: TObject; 
Request: TWebRequest; 

Response: TWebResponse ; var Handled: Boolean); 
procedure WebModule1WebActionItem1Action(Sender: TObject; 
Request: TWebRequest; Response: TWebResponse; 
var Handled: Boolean); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

WebModulel : TWebModulel ; 



implementation 
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{$R * . DFM} 

function CanMove(X,Y: integer) :boolean; 
Var 

PossibleMoves : Array[0. .8,0. .8] of boolean; 

CountX,CountY : integer; 
{En supposant que X est la piece manquante, cette fonction repond a la 
question : } 

{La piece Y peut-elle aller dans l'espace vide X ?} 
begin 

{on marque tous les mouvements comme impossibles} 
For CountX := 0 to 8 do 
For CountY := 0 to 8 do 

PossibleMoves[CountX,CountY] := False; 
{On permet aux pieces adjacentes de glisser} 
{Piece 0 manquante} PossibleMoves [ 0, 1 ] := True; 

PossibleMoves[0,3] := True; 
{Piece 1 Manquante} PossibleMoves! 1 ,0] := True; 

PossibleMoves[1 ,2] := True; 

PossibleMoves [ 1 ,4] := True; 
{Piece 2 Manquante} PossibleMoves[2, 1 ] := True; 

PossibleMoves[2,5] := True; 
{Piece 3 manquante} PossibleMoves[3,0] := True; 

PossibleMoves[3,4] := True; 

PossibleMoves[3,6] := True; 
{Piece 4 manquante} PossibleMoves[4, 1 ] := True; 

PossibleMoves[4,3] := True; 

PossibleMoves[4,5] := True; 

PossibleMoves [4, 7] := True; 
{Piece 5 manquante} PossibleMoves[5,2] := True; 

PossibleMoves[5,4] := True; 

PossibleMoves[5,8] := True; 
{Piece 6 manquante} PossibleMoves[6,3] := True; 

PossibleMoves [6, 7] := True; 
{Piece 7 manquante} PossibleMoves[7,4] := True; 

PossibleMoves[7,6] := True; 

PossibleMoves[7,8] := True; 
{Piece 8 manquante} PossibleMoves[8,5] := True; 

PossibleMoves[8,7] := True; 
CanMove := PossibleMoves [X,Y] ; 
end; 
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function BuildRef (Tiles : Array of integer;Tile1 ,Tile2: integer) :string; 
{Cette procedure construit la reference pour la piece selectionnee } 
{Elle echange la piece sur laquelle 1 1 utilisateur a clique avec l'espace 
vide } 
Var 

Count : integer; 
RefBuilt : string; 

begin 

{La ligne suivante doit faire reference a une DLL si 1 1 application est 
ISAPI} 

RefBuilt := 1 /SCripts/TILEGAME . EXE/BOARD? 1 ; 

for Count := 0 to 8 do 

begin 

if Tiles[Count]=Tile1 then 

RefBuilt := RefBuilt + IntToStr(Tile2) 
else if Tiles[Count]=Tile2 then 

RefBuilt := RefBuilt + IntToStr(Tile1 ) 
else 

RefBuilt := RefBuilt + IntToStr(Tiles[Count] ) ; 

end; 

BuildRef := RefBuilt; 
end; 

procedure DrawBoard (Tiles : Array of integer;Response: TWebResponse) ; 
{ Ici on dessine le plateau de jeu. On a passe un objet TWebResponse} 
{et on a affecte a sa propriete content le code HTML correspondant } 
Var 

BlankSpace : Integer; 
Count : Integer; 

begin 

{ On place le code HTML de titre} 

Response. content :='<TITLE> Jeu de taquin </TITLE>'; 

Response. content:=Response.content+'<H1> Jeu de taquin </H1><HR>'; 

Response. content : ^Response . content+ ' <CENTER><TABLE BORDER = 1 ><TR> ' ; 

BlankSpace := 9; 

{On regarde quelle est la piece manquante (piece 0)} 
For Count := 0 to 8 do 
if Tiles[Count] = 0 then BlankSpace := Count; 
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{on parcourt les 9 emplacements } 

For Count := 0 to 8 do 

begin 

{on regarde si la piece courante est la manquante } 
if Tiles[Count] = 0 then 

Response . content := Response . content +'<TD>X<TD>' 
{On regarde si on peut faire glisser la piece courante dans 1 1 emplacement 
vide } 

else if CanMove(BlankSpace, Count) then 
begin 

Response . content := Response . content +'<TD> <A HREF="'+ 
BuildRef (Tiles, 0, Tiles [Count] )+'">'+ 
IntToStr(Tiles[Count] )+' </A><TD>' 

end 
else 

Response . content := Response . content +'<TD>'+ 

IntToStr(Tiles[Count] )+'<TD>' ; 
{ En fin de chaque colonne, on termine la colonne et on en commence une 
nouvelle } 

if Count Mod 3 = 2 then 

Response . content := Response . content + '</TR><TR>'; 

end; 

{on referme le tableau } 

Response . content := Response . content + 

1 </TR></TABLE></CENTER><HR> Tilegame V.1.0'; 

end; 

procedure TWebModulel .WebModule1BoardAction(Sender: TObject; 

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
{Lorsque 1 1 utilisateur effectue un mouvement, le chemin Bord est invoque} 
{Cette procedure tire la nouvelle configuration du plateau de la chaine de 
requete, } 

{puis regarde si 1 ' utilisateur a gagne et s 1 il n'est done pas necessaire de 

redessiner le plateau } 

var 

Tiles : array[0..8] of integer; 
Count : integer; 
TempTile : string; 



begin 
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{Gagne ? } 

if Request. Query = '123456780' THEN 
begin 

Response. Content := '<H1> Vous avez gagné ! </H1> <HR>'; 

Response. Content := Response. Content+ 

' <A HREF= " / scripts/ tilegame . exe"> ' + 
'Cliquez ici pour rejouer </A> <HR>'; 

end 
else 

{Sinon, on prend la configuration dans Request. Query et on redessine 
le plateau } 
begin 

for Count := 0 to 8 do 
begin 

TempTile := copy (Request .Query ,Count+1 , 1 ) ; 
Tiles[Count] := StrToInt (TempTile) ; 
end; 

DrawBoard (Tiles, Response) ; 
end; 

end; 

procedure TWebModulel .WebModule1WebActionItem1Action (Sender : TObject; 

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
{Cette procedure est appelee lorsqu'un nouveau jeu est demande (chemin vide) } 
var 

Count : integer; 

BlankCount : integer; 
BlankTile : integer; 
TryMove : integer; 
Tiles : Array[0..8] of Integer; 

begin 
Randomize ; 

{ On initialise le plateau } 
For Count := 0 to 7 do 

Tiles[Count] := Count +1; 
{ La derniere piece est manquante (representee par 0)} 
Tiles[8] := 0; 

{On melange le plateau en faisant glisser aleatoirement les pieces 100 fois 

} 
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For Count := 0 to 100 do 
begin 

{On cherche la piece manquante } 
BlankTile := 0; 
for BlankCount := 0 to 8 do 
if Tiles[BlankCount] = 0 then 
BlankTile := BlankCount; 
repeat 

TryMove := Random(9); 
until CanMove(BlankTile,TryMove) ; 
Tiles[BlankTile] := Tiles[TryMove] ; 
Tiles[TryMove] := 0; 
end; 

{On dessine le plateau de depart } 
DrawBoard (Tiles, Response) ; 
end; 

end. 

Le module Web peut prendre en charge plusieurs chemins d'acces. Un chemin est la portion 
de I'URL de requite HTTP qui suit V application mais precede la chaine de requete. Ainsi, 
I' URL HTTP suivant : 

http : / /www. canino . com/chiens . exe/RECH_RACE?TYPECHIEN=Cocker 

contiendra le chemin Path=/ "RECH_RACE" et une chaine de requete TYPECHIEN=Cocker. En 
passant plusieurs chemins a une application Web, vous pouvez done permettre a celle-ci 
d'implementer plusieurs fonctions . Nous utiliserons deux chemins dans notre application. Le 
premier est vide, ce qui signifie que si V application est invoquee sans specifier de chemin, le 
Gestionnaire d'evenements OnAction sera appele. Dans le jeu de taquin, celui-ci melange 
aleatoirement le puzzle et debute une nouvelle partie. On utilise la fonction BuildRed pour 
placer des ancres sous toutes les pieces qui peuvent etre d'eplac'ees sur V emplacement vide (la 
logique correspondante se trouve dans la fonction CanMove). L'ancre contient un chemin / 
BOARD et une chaine de requete egale a ce a quoi ressemblerait le puzzle si cette piece 'etait 
choisie. Une ancre HTML est V ensemble de balises qui fait d'elle un lien. En substance, on 
re garde un coup en avance, et ce pour tons les coups possibles a un instant donne. 
Lorsqu'une requete de chemin \ BOARD est entree, V application appelle le Gestionnaire 
d'evenements OnAction associ'e a ce chemin. Le Gestionnaire d'evenements de chemin 
\ BOARD regarde si V utilisateur a gagne. Si e'est le cas, un message est affiche. Sinon, on 
redessine le puzzle dans la configuration transmise par la chaine de requete. 

La Figure 14.4 donne un exemple d' execution de cette application. 
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Figure 14.4 

Le jeu de taquin sur le Web. 




La chaine de requete Query provient de l'objet TWebRequest, qui est passe au Gestionnaire 
d'evenements Pathlnf o. Cet objet contient toutes les informations que le client (un browser 
Web, la plupart du temps) a envoye au serveur. Le role de l'application est de prendre dedans 
toutes les informations necessaires, d'executer la logique de l'objet, puis de renvoyer des infor- 
mations au client via l'objet TWebResponse. 



Onfenir des informations du client 
I'aide de formulaires 

Nous avons vu des applications serveur qui s'executent sans que l'utilisateur n'ait effectue 
aucune entree, comme l'application Hello, et d'autres qui examinaient la chaine de requete 
pour y trouver des entrees personnalisees (le jeu de taquin). Dans cette partie, nous verrons 
comment une application peut utiliser des formulaires pour recevoir et traiter des donnees 
issues de browsers Web. 

Les formulaires utilisent des composants de saisie standard tels que les boutons, les boites de 
liste deroulantes, les cases a cocher, et autres pour obtenir des donnees de l'utilisateur, et pour 
les envoyer au serveur Web. La Figure 14.5 donne un exemple de page simple contenant un 
formulaire de saisie de numero de telephone. 

Le client prend toutes les entrees saisies dans le formulaire, les code sous un format particulier, 
puis les envoie au serveur. Le Listing 14.4 montre le code source correspondant a la page 
HTML de la Figure 14.5. 

Listing 14.4 : Code HTML pour un formulaire simple 

<html> 
<head> 

<meta http-equiv=" Content -Type" 
content="text/html; charset=iso-8859-1 "> 
<title>Jardino</title> 
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Figure 14.5 

Une page Web comportant 
unformulaire simple. 
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Page de formulaire 


Zone de saisie 

1 


II 



</head> 

<body bgcolor="#FFFFFF"> 
<h2>Tout pour le j ardinage</h2> 
<hr> 

<h4>Pour recevoir de plus amples informations sur nos services, veuillez 
entrer votre nom et votre num&eacute ; ro de télé phone :</h4> 

<f orm action="http : / /www. j ardino . com/scripts/maillist . exe" 
method="GET" name="Mailing List"> 

<div align="center"><center><table border="0"> 
<tr> 

<td>Nom : </td> 

<td><input type="text" size="20" name="Na[ne"></td> 
</tr> 
<tr> 

<td>Té lé phone :</td> 
<td><input type="text" size="20" name=" Phone" 
value= " XX - XX - XX - XX - XX 11 >< / 1 d> 

</tr> 

<tr> 

<td align="center" colspan="2"><input type="submit" 
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name="B1 " value="Envoyer"></td> 
</tr> 
</table> 
</center></div> 
</f orm> 

J <p> </p> 
</body> 
</html>» 

IllPO ^ e co ^ e cont ' ent tr °i s balises de saisie, qui correspondent aux deux bottes de saisie et au 
I L|3C bouton poussoir du formulaire . Vous pouvez vous repr'esenter les composants de saisie comme 

des variables qui se verront qffecter des valeurs lorsque le formulaire sera envoy e. Dans 
| notre exemple, Name et Phone seront envoyees au serveur, et contiendront les informations 

saisies. Ces dernieres sont transmises a V application du serveur specifiee dans la section 

action, c'est-h-dire ici a VURL suivante : 

http : / /www. j ardino . com/ script s/maillist . exe 

L'une des parties importantes du formulaire est la section method de labalise form. Cette balise 
specifie que les donnees du formulaire doivent etre, soit incluses dans l'URL de l'application 
sous forme d'une chaine de requete, soit etre passees independamment de la chaine de requete. 
La methode Get envoie les donnees dans l'URL, tandis que la methode Post les envoie sous 
forme de contenu (via l'entree standard d'une application CGI). La methode utilisee determine 
la valeur de certaines proprietes de l'objet TWebRequest. 

Pour savoir quelles sont les donnees reellement passees a l'application Web, il suffit de creer 
une application Web simple affichant la chaine de requete envoyee par un formulaire. Cette 
application n'a besoin que d'un Gestionnaire de chemin par defaut contenant le Gestionnaire 
d'evenements OnAction suivant : 

procedure TWebModulel .WebModule1WebActionItem1Action (Sender : TObject; 

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 
begin 

Response. Content := Request .Query; 
end; 

Compilez ce programme sous le nom MAILLIST. EXE et placez-le sur le serveur Web dans le 
repertoire scripts (ou dans tout autre repertoire executable). Que se passe-t-il si vous entrez 
Albert d ' Art ag nan comme nom et 01 -44-44-44-44 comme numero de telephone dans le for- 
mulaire genere par le Listing 14.4 ? Le serveur Web traite la requete et affiche la chaine 
suivante : 

Name=Albert+d%92Artagnan&Phone=01 -44-44-44-44&B1=Submit 
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On retrouve vaguement le nom et le numero de telephone, mais egalement des caracteres etran- 
ges. C'est la chaine codee envoyee par le formulaire. Le mecanisme de codage est le suivant : 

• Tous les champs (ou variables) sont separes par des &. 

• Les noms de champs sont separes des donnees associees par un signe egal (=). 

• Les espaces sont convertis en signes plus (+). 

• Les caracteres non alphanumeriques sont convertis en un signe de pourcentage suivi par la 
valeur ASCII du caractere en hexadecimal (%92 par exemple). 

Pour decoder une chaine, il suffit de suivre la procedure ci-apres. On commence par decompo- 
ser la chaine selon les & : 



s 



VARIABLE 1 : Name=Albert+d%92Artagnan 
VARIABLE 2: Phone=01 -44 -44 -44 -44 
VARIABLE 3: B1=Submit 



Ensuite, on decompose chaque variable selon le signe : 



s 



VARIABLE (Name ) : Albert+d%92Artagnan 
VARIABLE ( Phone) : 01-44-44-44-44 
VARIABLE (B1 ) : Submit 



On transforme les + en espaces : 



VARIABLE (Name ) : Albert d%92Artagnan 
VARIABLE ( Phone) : 01-44-44-44-44 
VARIABLE(B1 ) : Submit 



Et on convertit les %xx pour obtenir les caracteres correspondants 



s 



VARIABLE (Name ) : Albert d'Artagnan 
VARIABLE ( Phone) : 01-44-44-44-44 
VARIABLE (B1 ) : Submit 



En fait, vous n'avez pas besoin d'ecrire du code qui se charge d'extraire les donnees stockees 
dans la chaine de requete. 

Modifions le Gestionnaire d'evenements OnAction afin de voir comment utiliser des methodes 
pour decoder les chaines : 



procedure TWebModulel .WebModule1WebActionItem1Action (Sender : TObject; 

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean): 
begin 

Response. Content := ' <HTML>Var1 : '+Request.QueryFields.Strings[0] ; 
Response . Content := Response. Content + 1 <br>Var2 : ' + 
Request. QueryFields.Strings[1 ] ; 
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Response. Content := Response. Content + 1 <br>Var3 : ' + 
Request. QueryFields.Strings[2] ; 
Response . Content := Response. Content +'</HTML>'; 
end; 

Le resultat renvoye par l'application Web est alors le suivant : 



s 



Van : Name=Albert d'Artagnan 
Var2:Phone=01 -44-44-44-44 
Var3:B1=Submit 



Delphi s'est charge de tout le travail en decodant la chaine de requete. En effet, on a utilise ici 
les Tstrings QueryFields. Pour acceder a la chaine brute, vous devez utiliser la propriete 
Request .Query, et pour les champs decodes, la propriete Request .QueryFields. Si le formu- 
laire avait ete envoye avec une methode post plutot que get, l'application devrait utiliser les 
proprietes Request .Content et Request .ContentFields. 

Pour achever notre application, ajoutez un code qui place le nom et le numero de telephone du 
client dans un fichier puis envoie un message de confirmation. Le code definitif de l'applica- 
tion se trouve Listing 14.5. 

Listing 14.5 : Application enregistrant le nom et le numero de telephone du client 
unit unitMailList ; 
interface 
uses 

Windows, Messages, SysUtils, Classes, HTTPApp; 
type 

TWebModulel = class (TWebModule) 

procedure WebModule1WebActionItem1Action(Sender: TObject; 
Request: TWebRequest; Response: TWebResponse; 
var Handled: Boolean); 
private 

{ Declarations privees } 
public 

{ Declarations publiques } 
end; 

var 

WebModulel : TWebModulel ; 
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implementation 
{$R * . DFM} 

procedure TWebModulel .WebModule1WebActionItem1Action (Sender : TObject; 
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); 



var 
F 

Callline 



TextFile; 
string; 



Rnalijse 



begin 

AssignFile(F, 'calllist.txt' ) ; 
if FileExists( ' calllist . txt ' ) then 
Append(F) 
else 
ReWrite(F) ; 

callline := copy(Request.QueryFields.Strings[0] ,6, 

lengtn(Request.QueryFields.Strings[0] ) -5) ; 
callline := callline +' sera contacte a '+copy( 
Request. QueryFields.Strings[1 ] ,7, 
length(Request.QueryFields.Strings[1 ] ) -6) ; 
Response . Content := 1 <HTML> 1 +callline+ 1 <br> Bonne journee !'; 
Response. Content := Response. Content +'</HTML>'; 
writeln(F,callline) ; 
Close(F) ; 
end; 

end. 

Lorsque le client Web envoie le formulaire , la procedure WebModule1WebActionItem1Action 
est appelee. Elle decode ses entrees et les inscrit dans un fichier. L'appel a FileExists deter- 
mine si le fichier existe dejd. Si c'est le cas, on ajoute les informations a la fin du fichier en 
appelant Append (F) . Sinon, on cr'ee un nouveau fichier, en appelant la procedure Rewrite (F) . 
Comme les noms de fichier s ont une longueur constante, vous pouvez extraire les donnees de 
la propriete QueryString en utilisant la fonction copy et en sp'ecifiant une valeur fixe comme 
deuxieme parametre. La Figure 14.6 montre la reponse de V application Web apres envoi du 
formulaire. 
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Figure 14.6 

Le message de confirmation 
de V application. 
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Ufiliser des formuloires octifs ou niveau 
du client 

La plupart des browsers Web permettent maintenant au client d'executer du code plutot que de 
laisser la machine serveur assumer toute la charge du traitement. Les deux principales techno- 
logies qui rendent ceci possible sont Java et ActiveX. II est preferable de laisser le traitement 
au serveur si vous souhaitez atteindre la plus large audience possible. Nombreux sont les brow- 
sers qui en sont incapables, ou pour lesquels cette fonctionnalite a ete desactivee. Le traitement 
client est conseille s'il existe une interaction constante entre l'utilisateur et l'application, ou si 
vous disposez deja d'une application Windows que vous souhaitez convertir en un outil Web. 
Delphi vous permet de creer des composants ActiveX utilisables dans des scripts de formulai- 
res Web et d'utiliser des formulaires actifs. Cette derniere technique vous permet de creer un 
formulaire sous forme de composant ActiveX. Vous pouvez alors l'incorporer dans une page 
Web utilisant ActiveX. Creons ensemble un formulaire actif, puis une page Web dans laquelle 
sera incorpore ce formulaire. 

1 . Fermez tous les projets deja ouverts, puis selectionnez Fichier, Nouveau. 

2. Dans la boite de dialogue Nouveaux elements, selectionnez l'onglet ActiveX, puis choi- 
sissez Bibliotheque ActiveX. 

3. Choisissez encore Fichier, Nouveau, selectionnez l'onglet ActiveX, puis ActiveForm. 
L'Expert ActiveForm apparait alors et vous demandera d'entrer un nom pour le nouvel 
ActiveX ainsi qu'un autre pour l'unite d' implementation. Dans notre exemple, le nom de 
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1'ActiveX est MathForm et celui du fichier MathFormlmpl . pas. Vous n'avez pas besom de 
cocher les autres options de la boite. 

4. Une nouvelle application semble avoir ete creee, mais la fiche qui apparait a l'ecran cor- 
respond en fait a un composant ActiveX. Vous pouvez a present placer des composants 
et ajouter des codes sur cette fiche, comme si vous ecriviez une application Windows. 

Dans notre exemple, imaginons qu'un professeur de maths utilise le Web pour envoyer ses 
lecons et proposer quelques informations supplementaires. La lecon du jour a trait aux aires 
des cercles et des carres. II serait du plus bel effet que la page Web contienne un cercle et un 
carre, ainsi qu'une barre de curseur permettant d'ajuster leurs aires de maniere a ce qu'elles 
soient toujours egales (voir Figure 14.7). Ceci est tres difficile a realiser a l'aide d'une appli- 
cation de serveur Web, mais ne pose aucun probleme si on utilise des fiches ActiveForm. 



Figure 14.7 

La page Web de Lecon de math, 
utilisant un ActiveForm. 




Poursuivons la creation de 1' application : 

1 . Placez six composants sur la fiche : deux composants de forme, trois composants label et 
un scrollbar. 

2. Nommez un des composants de forme Circle et l'autre Square. 

3. Affectez stCircle alapropriete shape del'objet Circle, et stRectangle acelle de l'ob- 
jet Square. Affectez Area a la propriete name de ScrollBar et 100 et 500 respectivement 
aux proprietes min et max. 

4. Implementez l'evenement OnChange de la barre de curseur et l'evenement OnCreate de 
la fiche, en suivant le Listing 14.6. Ce sont les seules procedures a ajouter. Delphi genere 
automatiquement le reste du code. 

Listing 14.6 : L' application Math utilisant des ActiveForms 
unit MathFormlmpl; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, 
Dialogs, 

ActiveX, AxCtrls, MathLib_TLB, ExtCtrls, StdCtrls; 
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type 

TMathForm = class (TActiveForm , IMathForm) 
Area: TScrollBar; 
Labell : TLabel; 
Label2: TLabel; 
Label3: TLabel; 
Square: TShape; 
Circle: TShape; 

procedure FormCreate (Sender: TObject); 

procedure AreaChange (Sender : TObject); 
private 

{ Declarations privees } 

FEvents: IMathFormEvents ; 

procedure ActivateEvent(Sender: TObject); 

procedure ClickEvent (Sender : TObject); 

procedure CreateEvent(Sender: TObject); 

procedure DblClickEvent(Sender: TObject); 

procedure DeactivateEvent(Sender: TObject); 

procedure DestroyEvent (Sender : TObject); 

procedure KeyPressEvent(Sender: TObject; var Key: Char); 

procedure PaintEvent (Sender : TObject); 
protected 

{ Declarations protegees } 

procedure EventSinkChanged(const EventSink: IUnknown); override; 

procedure Initialize; override; 

function CloseQuery: WordBool; safecall; 

function Get_Active: WordBool; safecall; 

function Get_AutoScroll : WordBool; safecall; 

function Get_AxBorderStyle : TxActiveFormBorderStyle ; safecall; 

function Get_Caption: WideString; safecall; 

function Get_Color: TColor; safecall; 

function Get_Cursor: Smallint; safecall; 

function Get_DropTarget : WordBool; safecall; 

function Get_Enabled: WordBool; safecall; 

function Get_Font: Font; safecall; 

function Get_HelpFile : WideString; safecall; 

function Get_KeyPreview: WordBool; safecall; 

function Get_ModalResult : Integer; safecall; 

function Get_PixelsPerInch : Integer; safecall; 

function Get_PrintScale : TxPrintScale ; safecall; 

function Get_Scaled: WordBool; safecall; 
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function Get_Visible: WordBool; safecall; 

function Get_WindowState : TxWindowState ; safecall; 

function ShowModal: Integer; safecall; 

procedure Close; safecall; 

procedure DisableAutoRange; safecall; 

procedure EnableAutoRange; safecall; 

procedure Print; safecall; 

procedure Set_AutoScroll(Value: WordBool); safecall; 
procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle) ; 
safecall; 

procedure Set_Caption( const Value: WideString); safecall; 
procedure Set_Color (Value: TColor) ; safecall; 
procedure Set_Cursor(Value: Smallint); safecall; 
procedure Set_DropTarget (Value: WordBool); safecall; 
procedure Set_Enabled (Value : WordBool); safecall; 
procedure Set_Font (const Value: Font); safecall; 
procedure Set_HelpFile(const Value: WideString); safecall; 
procedure Set_KeyPreview( Value : WordBool); safecall; 
procedure Set_ModalResult( Value: Integer); safecall; 
procedure Set_PixelsPerInch(Value: Integer); safecall; 
procedure Set_PrintScale (Value: TxPrintScale) ; safecall; 
procedure Set_Scaled (Value : WordBool); safecall; 
procedure Set_Visible (Value : WordBool); safecall; 
procedure Set_WindowState (Value: TxWindowState); safecall; 
public 

{ Declarations publiques } 
end; 

implementation 

uses ComServ; 

{$R * . DFM} 

{ TMathForm } 



procedure TMathForm. EventSinkChanged (const EventSink: IUnknown); 
begin 

FEvents := EventSink as IMathFormEvents ; 
end; 
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procedure TMathForm. Initialize; 
begin 

OnActivate := ActivateEvent ; 
OnClick := ClickEvent; 
OnCreate := CreateEvent ; 
OnDblClick : = DblClickEvent ; 
OnDeactivate := DeactivateEvent ; 
OnDestroy := DestroyEvent ; 
OnKeyPress := KeyPressEvent ; 
OnPaint := PaintEvent; 
end; 

function TMathForm. CloseQuery: WordBool; 
begin 

end; 

function TMathForm. Get_Active: WordBool; 
begin 

Result := Active; 
end; 

function TMathForm. Get_AutoScroll: WordBool; 
begin 

Result := AutoScroll; 
end; 

function TMathForm. Get_AxBorderStyle: TxActiveFormBorderStyle 
begin 

Result := Ord (AxBorderStyle) ; 
end; 

function TMathForm. Get_Caption : WideString; 
begin 

Result := WideString(Caption) ; 
end; 



function TMathForm. Get_Color: TColor; 
begin 

Result := Color; 
end; 
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function TMathForm.Get_Cursor: Smallint; 
begin 

Result := Smallint (Cursor) ; 
end; 

function TMathForm.Get_DropTarget : WordBool; 
begin 

Result := DropTarget; 
end; 

function TMathForm.Get_Enabled : WordBool; 
begin 

Result := Enabled; 
end; 

function TMathForm.Get_Font : Font; 
begin 

Get01eFont(Font, Result); 
end; 

function TMathForm.Get_HelpFile: WideString; 
begin 

Result := WideString(HelpFile) ; 
end; 

function TMathForm.Get_KeyPreview: WordBool; 
begin 

Result := KeyPreview; 
end; 

function TMathForm.Get_ModalResult : Integer; 
begin 

Result := Integer(ModalResult) ; 
end; 



function TMathForm.Get_PixelsPerInch: Integer; 
begin 

Result := PixelsPerlnch ; 
end; 
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function TMathForm.Get_PrintScale: TxPrintScale; 
begin 

Result := Ord(PrintScale) ; 
end; 

function TMathForm.Get_Scaled: WordBool; 
begin 

Result := Scaled; 
end; 

function TMathForm.Get_Visible: WordBool; 
begin 

Result := Visible; 
end; 

function TMathForm.Get_WindowState: TxWindowState; 
begin 

Result := Ord(WindowState) ; 
end; 

function TMathForm.ShowModal: Integer; 
begin 

end; 

procedure TMathForm. Close; 
begin 

end; 

procedure TMathForm . DisableAutoRange ; 
begin 

end; 

procedure TMathForm. EnableAutoRange; 
begin 

end; 

procedure TMathForm. Print; 
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begin 
end; 

procedure TMathForm.Set_AutoScroll (Value: WordBool); 
begin 

AutoScroll := Value; 
end; 

procedure TMathForm.Set_AxBorderStyle (Value: TxActiveFormBorderStyle) ; 
begin 

AxBorderStyle := TActiveFormBorderStyle (Value) ; 
end; 

procedure TMathForm.Set_Caption(const Value: WideString); 
begin 

Caption := TCaption (Value) ; 
end; 

procedure TMathForm.Set_Color (Value: TColor); 
begin 

Color := Value; 
end; 

procedure TMathForm.Set_Cursor (Value: Smallint); 
begin 

Cursor := TCursor(Value) ; 
end; 

procedure TMathForm.Set_DropTarget(Value: WordBool); 
begin 

DropTarget := Value; 
end; 

procedure TMathForm.Set_Enabled(Value: WordBool); 
begin 

Enabled := Value; 
end; 

procedure TMathForm.Set_Font( const Value: Font); 
begin 
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Set01eFont(Font, Value); 
end; 

procedure TMathForm.Set_HelpFile(const Value: WideString); 
begin 

HelpFile := String(Value) ; 
end; 

procedure TMathForm.Set_KeyPreview(Value : WordBool) ; 
begin 

KeyPreview := Value; 
end; 

procedure TMathForm.Set_ModalResult (Value : Integer); 
begin 

ModalResult := TModalResult (Value) ; 
end; 

procedure TMathForm.Set_PixelsPerInch(Value: Integer); 
begin 

PixelsPerlnch := Value; 
end; 

procedure TMathForm.Set_PrintScale(Value: TxPrintScale) ; 
begin 

PrintScale := TPrintScale (Value) ; 
end; 

procedure TMathForm.Set_Scaled(Value: WordBool); 
begin 

Scaled := Value; 
end; 

procedure TMathForm.Set_Visible(Value: WordBool); 
begin 

Visible := Value; 
end; 



procedure TMathForm.Set_WindowState( Value: TxWindowState) : 
begin 

Window/State := TWindowState (Value) ; 
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end; 



procedure TMathForm.ActivateEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents.OnActivate; 
end; 

procedure TMathForm.ClickEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents .OnClick; 
end; 

procedure TMathForm.CreateEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents. OnCreate; 
end; 

procedure TMathForm.DblClickEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents .OnDblClick; 
end; 

procedure TMathForm.DeactivateEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents .OnDeactivate; 
end; 

procedure TMathForm.DestroyEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents .OnDestroy; 
end; 



procedure TMathForm.KeyPressEvent(Sender: TObject; var Key: Char); 
var 

TempKey: Smallint; 
begin 

TempKey := Smallint (Key) ; 

if FEvents <> nil then FEvents. OnKeyPress (TempKey ) ; 
Key := Char(TempKey) ; 
end; 
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procedure TMathForm.PaintEvent(Sender: TObject); 
begin 

if FEvents <> nil then FEvents.OnPaint; 
end; 



procedure TMathForm. FormCreate(Sender: TObject); 
begin 

Area. Position := 250; 
end; 



procedure TMathForm 
begin 

Circle. Width 
Circle. Height 
Square .Width 
Square. Height 
Labell .Caption 

Label2. Caption 



Label3. Caption 



.AreaChange(Sender: TObject); 

:=t rune (2.0 * (sqrt (Area . Posit ion 13. 1 4159) ) ) ; 
:=t rune (2.0 * (sqrt (Area. Position 13. 14159) ) ) ; 
:=trunc(sqrt(Area. Position) ) ; 
:=trunc(sqrt(Area. Position) ) ; 
:= 'Aire : 1 + 

IntToStr(Area. Position) ; 
:= 'Rayon du cercle : '+ 
FloatToStr(2.0 * 

( sqrt (Area. Posit ion 13. 14159) ) 12); 
:= 'Hauteur et longueur du carre :'+ 
FloatToStr(sqrt (Area . Position) ) ; 



end; 



initialization 

TActiveFormFactory. Create ( 
ComServer, 
TActiveFormControl, 
TMathForm, 
Class_MathForm, 
1 , 



OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL) ; 



end . 



Cette application sera compilee sous forme d' OCX ActiveX. On I'utilisera comme base de 
code pour la fiche, sous forme de composant ActiveX. Lorsqu'une application Web reference 
I' ID de classe ( CLSID) du composant que vous avez cr'ee, VActiveForm sera incorporee dans 
la page Web du client. II est important de noter que les composants ActiveX peuvent egale- 
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merit etre inseres dans des applications non liees au Web. Unefois que le client a incorpore le 
composant, ce dernier est execute comme toute autre fiche Delphi le serait dans une applica- 
tion. Lorsqu'il fait glisser le curseur, I'aire correspondante du carr'e et du cercle est calculee, 
et les dimensions des composants de forme sont modifi'ees en consequence. L 'application 
affiche egalement I'aire et les dimensions des formes a I'aide des composants label. 

Delphi propose une fonctionnalite tres puissante, du nom de "Deploiement Web ". Celle-ci 
vous permet de construire rapidement une page Web pour tester le composant, et pour placer 
l'OCX ActiveX sur votre serveur Web. Avant d'utiliser cette option, vous devez configurer les 
options de Deploiement Web en selectionnant Projet, Options de deploiement Web dans le 
menu principal. La Figure 14.8 indique les options adaptees a notre exemple. En plus du 
deploiement de l'application, cette fonction permet egalement de signer numeriquement 
1'ActiveForm. Pour plus de details sur V authenticode de Microsoft, consultez les manuels en 
ligne de Delphi. 



Les trois champs de la boite de dialogue Options de deploiement Web qu'il est necessaire de 
remplir sont Repertoire destination, URL Destination et Repertoire HTML. Le repertoire cible 
est celui dans lequel l'OCX ActiveX sera place. II correspond au repertoire d'URL qui figure 
dans le champ URL Destination. Ainsi, si sur votre serveur le repertoire D: \InetPub\WWWROOT 
correspond a http://www.jardino.com, vous specifieriez D:\InetPub\WWWROOT comme 
repertoire cible et http : / /www. j ardino . com comme URL cible. Remarquez au passage que, 
dans cet exemple, le repertoire racine virtuelle du serveur Web se trouve a 1' emplacement phy- 
sique D: \InetPub\WWWROOT. Le champ Repertoire HTML specifie l'emplacement d'un exem- 
ple de document incorporant 1'ActiveForm. Vous pouvez utiliser cet exemple de document 
comme point de depart pour votre page utilisant 1'ActiveForm. Pour que Delphi place les 
fichiers sur le serveur Web, selectionnez Projet, Deploiement Web. 

Le Listing 14.7 correspond a la page Web par defaut que Delphi construit et place dans le 
repertoire HTML. 



Figure 14.8 

La boite de dialogue Op 
Hons de deploiement 




Projet | Piquets | | ichi. 
Repertoires et URL 



Web. 
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Listing 14.7 : La page Web generee par Voption Deploiement Web de Delphi 



<HTML> 

<H1> Delphi ActiveX Test Page </m><p> 

You should see your Delphi forms or controls embedded in the 

form below. 

<HR><center><P> 

<0BJECT 

Classid= " Clsid : E1 C4AE03 - 5B32 - 1 1 D0 - 9FB3 - 444553540000 " 

codebase=" http : / /www. coolmath . com/actf orm/cmpro j . ocx#version=1 ,0,0,0" 

width=350 

height=250 

align=center 

hspace=0 

vspace=0 

> 

</0BJECT> 
</HTML> 



La balise Object generee indique qu'un objet doit etre incorpor'e dans la page HTML. Les 
attributs width, height, align, hspace et vspace definissent respectivement le placement, la 
taille et la position du composant sur la fiche. L'attribut classid definit le composant a 
inserer. Si la machine dispose deja du composant ActiveX correspondant a 1'ID de classe, elle 
se contentera d'incorporer ce composant dans la fiche. Si celui-ci n'est pas enregistre dans le 
sy steme, la balise codebase sert a le telecharger. Les informations de version garantissent 
que I'utilisateur dispose d'une version a jour de I'OCX. La Figure 14.9 montre la page Web 
cr'e'ee par Delphi. 



Figure 14.9 

Une page Web d'exemple 
cr'e'ee par Deploiement 
Web. 



Fichiei Edition Aflichage Allei a Favoris ? 
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Adresse | C:\temp\Project1 htm || Liens 



Delphi ActiveX Test Page 

You should see your Delphi forms or controls embedded in the form below. 
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Si votre browser Web refuse d' accepter le composant parce qu'il n'est pas signe numerique- 
NOl 6 ment < vous devez modifier les parametres de securite de votre browser de maniere a ce que les 
composants ActiveX non authentifi.es soient acceptes. Consultez la documentation de MSIE 
pour plus de details sur les differents niveaux de securite. 

Si vous mettez a jour la version de I'OCX et souhaitez que le browser r'einstalle le composant, 
vous devez fermer le browser puis le relancer. Vous pouvez utiliser -1,-1,-1,-1 comme 
version pour que le composant soit toujours t'el'echarg'e. Ainsi, la ligne suivante : 

codebase= 

"http : / /www. coolmath . com/ act f orm/CMPROJ . ocx#version=1 ,2,0,0" 

lancera le telechargement de la DLL et reinstallera le composant si V utilisateur ne dispose 
que de la version 1.1.0.0 ou anterieure. 

Pour que votre page Web ressemble a celle de la Figure 14.7, vous devez modifier le code 
HTML. Vous pouvez le faire manuellement, ou utiliser a cet effet un editeur HTML. Le 
Listing 14.8 montre le code HTML correspondant a la page Web de la Figure 14.7. 

Listing 14.8 : Le code HTML pour la page Web de cours de maths utilisant 
une ActiveForm 

<!D0CTYPE HTML PUBLIC "-// IETF/ /DTD HTML/ /EN" > 
<html> 

<head> 

<meta http-equiv=" Content -Type" 
content="text/html; charset=iso-8859-1 "> 
<meta name="GENERATOR" content="Microsoft FrontPage 2.0"> 
<title>Maths amusantes</title> 
</head> 

<body bgcolor="#FFFFFF"> 

<h3>Maths amusantes - Legon 5 - Aires de cercles et de carr&eacute ; s </h3> 
<hr> 

<p>L'aire de la forme decrit la quantite de surface contenue au sein de la 
forme. On peut calculer les dimensions des cercles et des carres a partir 
d'une aire donnee en utilisant les formules suivantes :</p> 
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<table border="0"> 
<tr> 

<td rowspan="3"><! - -webbot bot="HTMLMarkup" startspan --> 
<0BJECT 

classid= " Clsid : E1 C4AE03 - 5B32 - 1 1 D0 - 9FB3 - 444553540000 11 

codebase="http: //www. coolmath.com/actf orm/ 

CMPROJ .ocx#version=-1 ,-1,-1,-1" 

width=300 

height=175 

align=center 

hspace=0 

vspace=0 

> 

</OBJECT><! - -webbot 

bot="HTMLMarkup" endspan --></td> 

<td><strong>Pour un cercle :</strong> A = PI * (Rayon au carre) </td> 
</tr> 
<tr> 

<td><strong>Pour un carre :</strong> A = Longueur au carre </td> 
</tr> 
<tr> 

<td>Sur la gauche, vous pouvez voir un carre et un cercle. lis ont 
toujours la meme aire, bien que leurs formes soient differentes. Deplacez la 
barre du curseur pour modifier l'aire des formes, et les dimensions seront 
automatiquement calculees . </td> 

</tr> 
</table> 



<hr> 



<p>Fo help send mail to <a href="mailto:teachme@coolmath.com"> 

teachme@coolmath .com</a></p> 

</body> 

</html> 



Recapifulatif 

Nous avons vu lors de cette journee comment creer des applications orientees client ou serveur 
en Delphi. Delphi propose un cadre de developpement serveur Web ires puissant qui vous per- 
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met de concentrer vos efforts sur la logique principale de votre code, sans devoir vous preoc- 
cuper de tous les mecanismes lies a l'interaction avec le serveur. Nous avons vu comment creer 
une application CGI simple, puis comment utiliser le meme code pour creer une application 
ISAPI. Le jeu de taquin nous a permis d'illustrer l'utilisation de plusieurs chemins d'acces cor- 
respondant a differentes taches de 1' application. Cet exemple a egalement montre les difficultes 
inherentes au developpement d'une application cote serveur necessitant des informations sur 
les etats precedents. 

Les formulaires Web permettent de collecter des informations aupres de l'utilisateur. Nous 
avons passe en revue les fonctionnalites integrees de Delphi qui permettent de decoder et de 
lire les informations passees a un serveur via de tels formulaires. Lorsqu'il est necessaire de 
tirer vraiment parti des services systeme d'une machine, ou lorsqu'une forte interactivite est 
necessaire, une application cote serveur n'est pas adaptee. ActiveX est alors une solution sedui- 
sante, puisque cette technologie permet d'incorporer a une page Web un composant qui peut 
realiser tout ce qu'une application Win32 peut habituellement faire. 

Le moyen le plus simple pour creer des composants ActiveX complexes consiste a utiliser les 
ActiveForms de Delphi. Dans notre dernier exemple, nous avons cree un didacticiel de maths 
qui en incorporait une afin de modifier l'aire de formes geometriques a l'aide d'une barre de 
curseur. 

En resume, Delphi est l'un des outils les plus adaptes pour le developpement d' applications 
Web client et serveur. 



Hrelier 

L' atelier vous donne trois facons de verifier que vous avez correctement assimile le contenu 
de cette section. La section Questions - Reponses vous donne des questions qu'on pose cou- 
ramment, ainsi que leur reponse, la section Questionnaire vous pose des questions, dont vous 
trouverez les reponses en consultant 1' Annexe A, et les Exercices vous permettent de mettre en 
pratique ce que vous venez d'apprendre. Tentez dans la mesure du possible de vous appliquer 
a chacune des trois sections avant de passer a la suite. 

Questions - Reponses 

Q Dans le cadre du developpement serveur Web de Delphi, est-il possible d'utiliser des 
fonctionnalites ISAPI specifiques ou d'autres cibles de serveur prises en charge ? 

R Oui. Chaque cible comporte un ensemble de classes qui heritent des fonctionnalites obli- 
gatoires de la base de code generale, mais ont des fonctions specifiques. 

Q Existe-t-il un moyen simple pour enregistrer les composants ActiveX lors de la phase 
de test ? 
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R Oui. Vous pouvez utiliser les options de menu Executer, Recenser le serveur ActiveX et 
Executer, De-recenser le serveur ActiveX pour installer et desinstaller les ActiveForms 
au sein meme de l'environnement de developpement. 

Q Est-il possible de lancer une application serveur Web dans le debogueur ? 

R Oui. Vous devez lancer le debogueur sur votre serveur et deboguer le process de serveur 
Web lui-meme. Pour plus de details, consultez la documentation en ligne de Delphi. 

Questionnaire 

1. Les applications CGI s'executent-elles dans l'espace de processus du serveur Web ? Et 
les applications ISAPI ? 

2. Lorsque vous utilisez des formulaires pour recueillir des informations d'un client Web, a 
quelle propriete devez- vous acceder pour decoder automatiquement les donnees qu'il 
envoye ? 

3. Lorsqu'un utilisateur accede a une page Web contenant une fiche ActiveX qui n'a pas ete 
enregistree sur le systeme, comment fait son browser pour savoir ou recuperer le 
composant ? 

Exercices 

1. Creez une application serveur Web qui re5oit ses entrees d'un formulaire contenant des 
boutons radio, des listes deroulantes et des cases a cocher. 

2. Creez une application serveur Web utilisant les composants de generation HTML de base 
de donnees. 

3. Convertissez le jeu de taquin en une Activeform. 
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Jour 1 

1 . Le premier avantage est que vous pouvez, moyennant un minimum d'efforts, effectuer un 
prototypage rapide de votre interface pour la montrer a vos clients. Le deuxieme avantage 
est que vous n'etes pas force d'ecarter ce prototype une fois la demonstration faite, com- 
me c'est le cas avec des outils de developpement d'interface. Vous pouvez transformer 
votre prototype en un produit fini. Vous gagnez done un temps precieux. Enfin, autre 
avantage, le RAD vous offre un ensemble d' outils de haut niveau et parfaitement integre 
qui optimise votre productivite. 

2. Les composants visuels sont differents des controles ActiveX sur bien des points. Ainsi, 
par exemple, les composants visuels sont compiles directement dans votre executable car 
ils sont ecrits en code Delphi natif, alors que les controles ActiveX doivent etre fournis 
dans des fichiers separes de votre logiciel. 

3. La mise en evidence de la syntaxe est une fonctionnalite de l'EDI de Delphi, qui fait que 
l'editeur comprend le langage Delphi. Cette comprehension (limitee) lui permet a ce der- 
nier de colorer les differentes parties de votre code (les commentaires en gris, les mots 
reserves en bleu). Vous pouvez modifier les couleurs utilisees. Cette mise en evidence 
vous permet de lire le code et de reperer Ides eventuelles erreurs plus facilement. 

4. En utilisant la selection de menu Composant I Installer un composant dans le menu prin- 
cipal de Delphi. 

Jour 2 

1. Les constantes ne peuvent pas changer de valeur en cours d'execution de 1' application, 
tandis que c'est le principe meme des variables. 

2. Les applications mathematiques dans le code doivent se comporter conformement aux 
lois mathematiques. Dans le cas contraire, l'ordinateur genererait des reponses fausses. 

3. Les constantes typees sont en fait des variables pre-initialisees. L' avantage de ces cons- 
tantes typees est que la pre-initialisation permet de fournir une valeur a vos variables des 
le debut du programme. 

Jour 3 

1 . 100 fois. La boucle externe fait 10 iterations et pour chacune de ces 10 iterations, la bou- 
cle interne en effectue dix autres. Le total est done de 10 X 10 = 100. 

2. while ... do teste la condition avant 1' entree dans la boucle. 
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3. Une fonction est concue pour renvoyer une valeur unique, tandis qu'une procedure est 
concue pour renvoyer un nombre indefini de valeurs (zero ou plus). 

4. Le passage de grandes structures de donnees peut alterer les performances. II est plus ef- 
ficace pour la memoire de passer plutot un pointeur. 



1. Les objectifs sont : possibility de modification, efficacite, fiabilite et comprehension 
aisee. 

2. Elle prend en charge la dissimulation de 1' information en creant des unites. Les unites 
vous permettent de cacher les details d' implementation d'une application et d'offrir une 
interface aux donnees. 

3. Parce que, dans le monde reel, il existe des objets qui sont bases sur d'autres objets. En 
Delphi, vous pouvez creer une classe voiture puis creer des objets qui en decoulent et qui 
heritent des proprietes de la classe voiture, auxquelles peuvent s'ajouter les leurs propres. 
Le resultat pourrait etre une classe decapotable, une classe formule 7, etc. 



s 

1. .PAS, .DPR, .DOF, .DFM et .RES sont crees lors de la conception. .DCU, et .EXE sont 
crees lors de la compilation. 

2. En-tete, partie interface, partie d' implementation, partie d' initialisation et partie de fina- 
lisation. 

3. Pour ajouter une nouvelle fiche a votre projet, vous pouvez selectionner le bouton Nou- 
velle fiche dans la barre d'outils ou choisir l'option de menu Fichier I Nouvelle fiche. 
Pour supprimer une fiche du projet, vous pouvez utiliser l'interface du Gestionnaire de 
projets pour selectionner la fiche, puis cliquer sur le bouton Supprimer unite. Vous pou- 
vez egalement selectionner la fiche a supprimer et utiliser l'icone Supprimer fichier du 
projets qui se trouve sur la barre d'outils, ou encore l'option Fichier I Supprimer du projet. 

4. Lorsque vous supprimez une fiche d'un projet, les fichiers .PAS ou .DFM associes ne 
sont pas supprimes, seules leurs references sont retirees du fichier source du projet. 
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Jour 6 

1 . Les options predeterminees sont IDE classique, emulation BRIEF, et emulation epsilon. 

2. Dans l'onglet Editeur de la boite de dialogue Options d'environnement. 

3. La gouttiere sert a definir des points d' arret et a indiquer leur emplacement en affichant 
un point rouge. Elle permet egalement d'indiquer le point d'execution du programme 
(fleche verte). 

4. Pour deboguer une DLL sous Delphi 3, vous devez ecrire une application note qui appel- 
lera la DLL. Selectionnez Executer I Parametres, et saisissez le nom de l'application hote 
dans l'emplacement prevu a cet effet. Ajoutez points d'arret et de suivi a votre convenan- 
ce, puis executez l'application hote afin de lancer la DLL. Delphi s'arretera au premier 
point d'arret de votre DLL, et vous pourrez mener a bien votre session de debogage. 

5 . WinSight32 est un espion systeme, qui vous permet d'observer l'activite des process sys- 
teme, des messages, etc. 

6. Les trois fonctionnalites d'Audit de Code sont l'Expert Modeles de code, l'Expert achie- 
vement de code, et l'Expert parametres de code. Le premier affiche la syntaxe des struc- 
tures de code, l'achevement de code termine les lignes a votre place en vous proposant 
les differentes options possibles, et l'Expert parametres vous rappelles les parametres et 
leur ordre pour toute fonction ou procedure. 

7. Faux. Le compilateur suspend 1' execution avant la ligne sur laquelle est defini le point 
d'arret. 

8. Pour reprendre 1' execution, supprimez les points d'arret et appuyez sur F9. 

Jour 7 

1. Le bouton droit de la souris fait apparaitre les menus contextuels concernant l'objet sur 
lequel vous cliquez. 

2. Ces fenetres de tallies specifiques sont adaptees a differentes resolutions d'ecran. De plus, 
en les utilisant, vous assurez un caractere uniforme aux applications. 

3. De la sorte, l'utilisateur ne perd pas de temps a apprendre a naviguer dans votre barre de 
menus, et peut employer ce temps a apprendre a utiliser l'application elle-meme. 
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Jour 8 

1 . L'utilisateur peut visualiser un composant visuel en cours d'execution si la propriete vi - 
sible est definie comme true. Un composant non visuel est visible lors de la conception, 
mais pas lors de 1' execution. 

2. Les proprietes imbriquees sont des proprietes placees a l'interieur de proprietes. Vous 
pouvez savoir si une propriete recele des proprietes imbriquees si un signe plus (+) figure 
a gauche de son nom. Si vous cliquez sur ce signe plus, il se developpe pour montrer les 
proprietes imbriquees. Les proprietes peuvent etre imbriquees sur plusieurs niveaux. 

3. Une methode est une fonction ou procedure declaree dans un composant ou un objet, et 
qui peut etre appelee pour affecter le comportement ou 1' aspect de 1' objet. 

4. Les composants et les objets ont des evenements qui leurs sont associes et qui, lorsqu'ils 
sont actives, executent les gestionnaires d'evenements (des bouts de code) qui leur sont 
associes. Un clic de souris est un exemple d'evenement usuel. 

5. MaskEdit. 

6. Timer. 

Jour 9 

1 . Les fichiers types sont des fichiers formates de facon particuliere et qui stockent un type 
de donnees particulier dans des champs specifiques. 

2. Les fichiers non types sont des fichiers ne possedant nipas de format ni de type de don- 
nees particuliers. 

3. Seek(var F; N : Longint); 

4. Non, vous pouvez ouvrir le port de l'imprimante comme s'il s'agissait d'un fichier et uti- 
liser la procedure Pascal writeln pour envoyer du texte a l'imprimante. 

5. Vous devez ajouter Printers dans la clause uses. 

6. BeginDoc et EndDoc. 

7. Vrai. 

8. Vous n'avez pas a executer de code dans la boite de dialogue Proprietes. On y accede par 
l'intermediaire de la boite de dialogue Impression. 

9. CopyRect. 

10. II suffit de tracer le cercle sur le canevas de Printer, comme vous le feriez sur un canevas 
d'ecran, celui d'une fiche par exemple. 
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Begin 

{on lance la tache d 1 impression} 
Printer . BeginDoc ; 

{On definit la largeur du crayon comme etant de 5 pixels} 
Printer . Canvas . Pen .Width : =5 ; 

{On dessine une ellipse dont le coin superieur gauche se trouve a 0, et 
le coin inferieur droit a 200,200} 

Printer. Canvas. Ellipse(0, 0, 200, 200); 
{on termine et imprime la tache d 1 impression} 
Printer. EndDoc; 

end; 

Jour 10 



1. Le triangle ne s'effacerait pas de lui-meme et laisserait une trace au cours de son depla- 
cement. 

2. La facon la plus simple d'effectuer un decoupage dans une region rectangulaire consiste 
a utiliser un composant visuel PaintBox. Le composant PaintBox empeche tout dessin 
hors de la zone de dessin. 

3. Les composants visuels d'Image peuvent encapsuler un objet bitmap. Les objets bitmap 
possedent une methode LoadBitmap qui peut etre utilisee pour charger un bitmap d'un 
fichier vers l'objet bitmap qui, a son tour, charge l'image dans le composant d'image. La 
methode CopyRect peut etre utilisee pour copier une partie de n'importe quel canevas (y 
compris un canevas dans un bitmap) dans n'importe quel autre canevas (y compris celui 
d'une paintbox). 

4. PlaySound accepte un ensemble de parametres qui determinent la facon dont un son sera 
joue et ou sera situee la source du son. Un de ces parametres determine si le son est joue 
de facon synchrone ou non synchrone. Si le son est joue de fagon synchrone, l'application 
attend que le son ait ete joue. En revanche, si le son est joue de facon non synchrone, l'ap- 
plication continue de s'executer tandis que le son est joue. 

5 . Ce code definit une region d'affichage entre les pixels 50, 50 et 250, 250. Le premier en- 
semble indique la position (50, 50) et le second la largeur et la hauteur (200, 200). 

6. Si vous dessinez directement sur un canevas, vous creez un effet saccade. Pour que l'ani- 
mation soit plus fluide, il faut dessiner sur un bitmap puis copier l'image dans le canevas 
visuel. 



DELPHI 3 



Jour 11 

1. Une exception surviendra si vous tentez d'executer n'importe quelle methode d'edition 
alors qu'une table est dans un etat dsBrowse. 

2. On peut acceder a des champs comme a des composants. Le composant TField a une pro- 
priete DataType qui indique le type de donnees contenu dans un champ particulier. 

3. La propriete I ndexName d'un TTable peut etre defini comme un index secondaire pour or- 
donner les enregistrements par 1' index specifie. 

4. Les bases de donnees en partage de fichier et client/serveur prennent toutes deux en char- 
ge l'acces simultane a la base de donnees. Certaines bases de donnees independantes 
n'autorisent l'acces qu'a une seule application a la fois. 

5 . II est impossible de mettre a jour les champs non calcules lorsque l'ensemble de donnees 
est dans l'etat dsCalculate. Seuls les champs calcules peuvent etre modifies. Cependant, 
tous les champs peuvent etre consultes. 

6. Un champ indiquant une cle dans une table differente est qualifie de cle etrangere. 

Jour 12 

1 . QuickReport est un generateur d'etats par bandes. 

2. Les bandes sont utilisees pour afficher des donnees, des images, et servent de conteneur 
pout d'autres composants QuickReport afin de construire visuellement l'etat. 

3. Non. Les composants QuickReport sont destines a concevoir et a creer l'etat, pas a etre 
vus de l'utilisateur. 

4. Un TTable se connecte la a la base de donnees, et le composant TQuickRep relie les ban- 
des et composants QuickReport a la table. 

Jour 13 

1 . Lorsque l'utilisateur d'un composant definit une propriete, cela peut declencher une pro- 
cedure qui traite tous les mecanismes en jeu. 

2. Les proprietes disponibles lors de la conception peuvent etre definies en utilisant l'lns- 
pecteur d'objets. Les proprietes disponibles lors de l'execution ne peuvent etre definies 
que par le biais de code Pascal. 
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3. Une propriete publique est disponible a tout code lors de l'execution. En specifiant 
qu'une propriete est publiee, vous la faites apparaitre dans l'lnspecteur d'objet et la ren- 
dez ainsi disponible lors de la conception. 

4. Proprietes et evenements sont declares de facon identique, mais les evenements sont de- 
finis comme des types de proprietes speciales qui font que l'lnspecteur les fait figurer 
dans la page Evenements. 

5 . Un ID de classe est l'identifiant unique qui permet de distinguer une classe donnee de tou- 
tes les autres. Une application peut instancier une classe en utilsant son ID de classe. Une 
bibliotheque de types definit 1' ensemble des fonctions d' interface. Une application peut 
utiliser une bibliotheque de types pour acceder aux fonctions d'un objet COM avant com- 
pilation ou execution. 

6. Oui, les composants ActiveX peuvent etre utilises dans toute application ou langage sa- 
chant creer une instance d'un composant ActiveX. Internet Explorer, Visual Basic, Visual 
C++ et Microsoft Word sont des exemples d' applications pouvant utiliser des composants 
ActiveX. 



Jour 14 

1 . Les applications CGI tournent dans leur propre espace memoire. Des lors, une application 
CGI erronee ne peut pas faire planter le serveur Web. D'un autre cote, il est cofiteux en 
ressources systeme de relancer un process pour chaque nouvelle requete. Une application 
IS API tourne dans le meme espace memoire que le serveur Web, ce qui accroit les per- 
formances et les risques d'instabilite. 

2. La propriete TWebRequest .QueryString permet de lire les informations decodees trans- 
mises par le client. Vous gagnez ainsi du temps, puisque vous n'avez pas a ecrire vous- 
meme les routines de decodage. 

3. La balise codebase sert a indiquer au client Web l'emplacement du controle ActiveX s'il 
n'est pas deja installe sur la machine de l'utilisateur. On peut ajouter des informations de 
version pour s'assurer que l'utilisateur dispose de la bonne version du controle 
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A propos..., menu Aide 39 
Abstraction 132 
Acceder 

a une base de donnees 426 

a une table de base 
de donnees 422 

aux champs d'une base de 
donnees 428 
AccesBD, composants 244 
Access 446 
ActiveForm 5 

ActiveX 149,496,505,531,541 
ajouter une methode 503 
Assistant controle 497 
authentification 542 
bibliotheques de type 502 
composants 244 
controles 4 

conversion d'un composant 

visuel 497 
incorpore dans une page Web 

531,547 
pages Web 504 
Affichage d'arborescence 

(controle) 223 
Aide 

associer de l'aide a une 
application 164 
Aide, menu 215 
Ajouter a l'interface, 

menu Edition 26 
Ajouter au projet, menu Fichier 21 
Ajouter au projet, menu Projet 32 
Ajouter au referentiel, 

menu Projet 32 
Ajouter point d'arret, 

menu Executer 35 
Ajouter point de suivi, menu 

Executer 35 
Ajouter Project 1 au controle de 

version, menu Groupes 39 
Ajouter un index 434 
Alias 419 

Aligner des elements d'une GUI 23 1 
Aligner sur la grille, 
menu Edition 24 



Aligner, menu Edition 24 
Aller a ligne, menu Chercher 28 
AND, table de verite 293 
Animate, composant 269 
Animations 372 
Apostrophes 64 
Applications 

composition de 142, 150 

MDI 207 

SDI 207 
Architecture, multiliaison 4 
Arreter un programme 98 
ASCII 54, 302, 312 
Assign 335 

procedure 302 
AssignFile, procedure 302, 313 
AssignPrn, procedure 

d'impression 335 
Assistant Controle ActiveX 497 
Associer de l'aide a 

une application 164 
Attribut, combinaison 295 
Auditeur de code 185, 186 
Authentification 448 

B 



Balises HTML 510 
Bandes, etats 458 
Barres 

d'icones 15 

d'icones, menu Voir 31 

d'outils 225 

de progression 225 

de litre 209- 211 
Basculer Fiche/Unite, menu Voir 31 
Base de donnees 

acceder a une table 422 

acceder avec un code 426 

acces aux champs 428 

ajouter un index 434 

alias 419 

champs calcules 43 1 

Client/Serveur417 

composant 

DBGrid 424 
DBNavigator 426 
TDataSource 424 



TField 442 

TTable 423,442 
controles orientes donnees 424 
creation d'une table 419 
DataSet 427 

erreurs de conception 448 

etendue d'enregistrements 438 

exceptions 444 

Expert fiche base 
de donnees 413 

index 421, 433 

secondaires 437 

locales 427 

maitre/detail 451 

masques de saisie 439 

methode Cancel 441 

Microsoft Access 446 

modele relationnel 412 

modifier les champs 
d'une table 429 

mot de passe 447 

multiliaison 4, 418 

ODBC 444 

partagees 417 

rechercher des 

enregistrements 435 

trier des enregistrements 435 
BatchMove, composant 273 
BeginDoc, methode de TPrinter 338 
Bevel, composant 258 
Bibliotheque de composants visuels 

VoirVCL 
Bibliotheque de types ActiveX 502 
Bibliotheque de types, menu Voir 3 1 
Binaire, fichier 312 
BitBtn, composant 257 
Bitmaps 379 

chargement en cours 
d'execution 381 

creer 381 

de pinceau 375 

redimensionnement 380 

TBitmap 381 

TImage 380 
BlockRead, procedure 322 
BlockWrite, procedure 322 
BoTtes 

d'edition 223 
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Chart, composant 258 


ClientDataset 273 


a onglets 231 , 232 


ChartFX, composant 282 


ClientSocket 271 


modales 232 


CheckBox, composant 246 


ColorDialog 278 


de liste 222 


CheckListBox, composant 258 


ColorGrid 281 


Boolean 52 


Chemin d'acces, module Web 524 


ComboBox 246 


Bouton 


Chercher dans les fichiers, menu 


creation 470 


barre de titre 211 


Chercher 27 


Database 273 


de commande 219 


Chercher, menu 27 


DataSetTableProducer 272 


pointeur 16 


Classes 


DataSource 272 


radio 220 


definition 135 


DatePicker 269 


Branchements 94 


partie privee 136 


DBCheckBox 274 


Break 95,97 


partie protegee 136 


DBComboBox 274 


BRIEF 180 


Cle etrangere 449 


DBEdit 274 


Brush 373 


ClientDataset, composant 273 


DBGrid 274, 424 


proprietes 373 


ClientSocket, composant 271 


DBImage 274 


Button, composant 246 


CloseFile 


DBListBox 274 




procedure 314 


DBLookupCombo 279 


P 

L 


d'impression 335 


DBLookupComboBox 274 




CLSID 496,541 


DBLookupCtrlGrid 275 




Codage 


DBLookupList 279 
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dans une chaine de requete 


DBLookupListBox 274 
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Lll 1V.I Cll * \sVJ 1 1 1 l_/Wk>Lll 1 I j— O 1 


HTTP 528 


DBMemo 274 


Canvas 


Code de base de donnees 426 


DBNavigator 274, 426 


definition 364 


Cohesion 133 


DBRadioGroup 274 


propriete de TPrinter 338 


Coller, menu Edition 23 


DBRichEdit 275 


CanvasTextout 13 


ColorDialog, composant 278 


DBText 274 


Capacite de modification 130 


ColorGrid, composant 281 


DDEClientConv 270 


Caption, propriete 241 


COM 496 


DDEClientltem 270 


Caracteres 54 


Combinaison des attributs 


DDEServerConv 270 


Case. ..of 88 


de fichier 295 


DDEServerltem 270 


regies d'utilisation 89 


ComboBox, composant 246 


DecisionCube 275, 462 


Cases a cocher 221 


Compilateur, Options de pro jet 165 


DecisionGraph 276, 462 


Cercles, tracer 376 


Compilation, composants 


DecisionGrid 276, 462 


CGI 513 


visuels 472 


DecisionPivot 275, 462 


codage des chaines 


Compiler, menu Projet 32 


DecisionQuery 275, 462 


de requete 528 


Completude 133 


DecisionSource 275, 462 


conversion en IS API 516 


Complexite du logiciel 124 


DirectoryListBox 280 


entree standard 513 


Composant 


DirectoryOutline 281 


exemple d'application 515 


ActiveX 496-505 


DrawGrid 258 


Get 527 


Animate 269 


DriveComboBox 280 


Post 527 


BatchMove 273 


Edit 246 


sortie standard 513 


Bevel 258 


FileListBox 280 


Chaines 


BitBtn 257 


FilterComboBox 280 


de caracteres 56 


Button 246 


FindDialog 279 


de requete HTTP 524, 528 


Calendar 281 


FontDialog 278 


Champ 


Chart 258 


FTP 271 


calcule 43 1 


ChartFX 282 


Gauge 281 


lie 452 


CheckBox 246 


GraphicsServer 282 


Char 54 


CheckListBox 258 


GroupBox 246 
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Header 268, 280 
HotKey 269 
HTML 271 
HTTP 271 
IBEventAlerter281 
Image 258 
ImageList 268 
Label 246 
ListBox 246 
ListView 268 
MainMenu 245 
MaskEdit 258 
MediaPlayerr 270 
Memo 246 
natifs 5 

non visuel 244 
Notebook 280 
OLEContainer 270 
OpenDialog 278 
OpenPictureDialog 278 
ORGroup 276 
Outline 280 
PageControl 268 
PageProducer 272 
PaintBox 270 
palette 

AccesBD 244 

ActiveX 244 

ControleBD 244 

Decision Cube 244 

Dialogues 244 

Exemples 244 

Internet 244 

Qreport 244 

standard 244, 245 

Supplement 244, 257 

Systeme 244 

Win31 244 

Win32 244 
Panel 247 

Placer un composant sur une 

fiche 16 
POP 271 
PopupMenu 246 
PrintDialog 278 
PrinterSetupDialog 279 
ProgressBar 269 
Proprietes 12, 239 
Provider 273 



QRBand 276, 458 
QRChart 278 
QRChildBand 276,458 
QRCompositeReport 277 
QRDBRichText 276 
QRDBText 276 
QRExpr 276 
QRGroup 458 
QRLabel 276 
QRMemo 276 
QRPreview 277 
QRRichText 276 
QRSubDetail 276, 458 
QRSysData 276 
Query 272 

QueryTableProducer 272 
QuickReport 276 
RadioButton 246 
RadioGroup 247 
RemoteServer 273 
ReplaceDialog 279 
RichEdit 268 
SaveDialog 278 
SavePictureDialog 278 
ScrollBar 246 
ScrollBox 258 
ServerSocket271 
Session 273 
Shape 258 
SpeedButton 257 
SpinButton 281 
SpinEdit 281 
Splitter 258 
StaticText 258 
StatusBar 268 
StoredProc 273 
StringGrid 258 
TabbedNoteBook 280 
TabControl 268 
Table 272 
TabSet 279 
TCP 271 

TDataSource 424 
TField 442 
Timer 270 
ToolBar 269 
TQuickRep 458 
TrackBar 269 
Tree View 268 



TTable 423,442 
UDP 271 
UpdateSQL 273 
UpDown 269 
VCFirstlmpression 282 
VCFormulaOne 282 
VCSpeller 282 
visuel 244 

ajouter des methodes 478 
ajouter des proprietes 476 
compilation 472 
compiler et installer a 

partir du source 472 
constructeur 477 
construction 475 
conversion en composant 

ActiveX 497 
creation d'un 

evenement 490 
creation d'une 

methode 478 
derives 484 
distribution 466 
ecriture473,474 
enlever 473 
presentation 466, 467 
squelette de code 47 1 
suppression 473 
test 479-484 
WebDispatcher271 
visuel 

creation d'un 

evenement 479 
creation des 
proprietes 483 
Composition d'une application 
Delphi 142-150 
fiches 144,145 
projet 142-144 
Comprehensibilite 131 
Configurer les outils, 

menu Outils 38 
Configurer palette, menu 

Composant 37 
Confirmabilite 132 
const 45 
Constantes 

definition 45 
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presentation 6 

typees 75 
Constructeur477,487 

d'un composant 477 
Contenu Web 

dynamique 512, 547 

statique 512 
Continue 96 

ControleBD, composants 244 
Controles 

ActiveX 4 

affichage d'arborescence 223 

des versions 174 

orientes donnees 424 
Coordonnees 364 
Copier, menu Edition 23 
Couleurs 228 

de crayon 371 

Editeur 181 

fenetres 212 
Couper, menu Edition 23 
Crayon, mode (propriete) 371 
Currency 5 1 
Curseurs 224 

Cycle de vie du logiciel 126 

D 



Database, composant 273 
DataSet 427 
DataSetTableProducer, 

composant 272 
DataSource, composant 272 
DatePicker, composant 269 
DBCheckBox, composant 274 
DBComboBox, composant 274 
DBEdit, composant 274 
DBGrid 424 
DBGrid, composant 274 
DBImage, composant 274 
DBListBox, composant 274 
DBLookupCombo, composant 279 
DB LookupComboB ox , 

composant 274 
DBLookupCtrlGrid, composant 275 
DBLookupList, composant 279 
DBLookupListBox, composant 274 
DBMemo, composant 274 



DBNavigator 426 
DBNavigator, composant 274 
DBRadioGroup, composant 274 
DBRichEdit, composant 275 
DBText, composant 274 
DDEClientConv, composant 270 
DDEClientltem, composant 270 
DDEServerConv, composant 270 
DDEServerltem, composant 270 
Debogage 186-198 

de DLL 195, 198 

WinSight32 198 
Debogueur 187-195 

Evaluateur d'expressions 195 

gouttiere 191 

indicateur de statut 195 

options 187 

points d'arret 189 

points de suivi 193 
DecisionCube 

composant 244, 275, 462 

presentation 462 
DecisionGraph, composant 276, 462 
DecisionGrid, composant 276, 462 
DecisionPivot, composant 275, 462 
DecisionQuery, composant 275, 462 
DecisionSource, composant 275, 

462 
Declarations 

privees 474 

protegees 474 

publiees 474 

publiques 474 
Defaire/Recuperer, menu Edition 23 
Definir repertoire de donnees, menu 

Groupes 39 
Definition 

fonction 10 

procedure 8 
Delphi Client/Serveur 5 
Deploiement Web, menu Projet 33 
De-rencenser le serveur ActiveX, 

menu Executer 34 
Deriver un composant visuel 484 
Destructeurs 488 
Dialogues, composant 244 
DirectoryListBox, composant 280 
DirectoryOutline, composant 281 
Dissimulation de l'information 132 



Distribution 116 

du logiciel 466 
DLL 143, 144,467,469 

creation 467 

debogage 195-198 

serveurs Web 513 
Donnees, module 450 
Draw 382 

DrawGrid, composant 258 
DriveComboBox, composant 280 

E 



Echelle, menu Edition 25 
EDI 3, 14 

Edit, composant 246 
Editeurs 178-185 

options 179 

d'affichage 180 
Couleurs 181 

touches de raccourci 199 
Edition, menu 22 
Efficacite 130 
Ellipses, tracer 376 
EndDoc, methode de TPrinter 338 
Enlever un composant visuel 473 
Enregistrements 

d'enregistrements 67 

definition 63 
Enregistrer projet sous, menu 

Fichier 21 
Enregistrer sous, menu Fichier 20 
Enregistrer tout, menu Fichier 21 
Enregistrer, menu Fichier 20 
Ensembles 74 
Eof, fonction 314 
Erase, procedure 333 
Erreur d'execution, 

menu Chercher 28 
Erreurs 99 

Etats, par bandes 458 
Etendue, d'enregistrements 

d'une BD 438 
Etrangere, cle 449 
Evaluateur d'expression 195 
Evaluer/Modifier, 

menu Executer 35 
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Evenements 

ajouter a un composant 

visuel 489 
creation 490 

creation dans un composant 

visuel 479 
OnPaint 377 
Presentation 242 
Exceptions dans une base de 

donnees 444 
Executables 143 
Executer, menu Executer 34 
Execution conditionnelle 86 
Exemples 

composants 244 
didacticiel sur le Web 532 
formulaire de saisie Web 525, 
531 

jeu de taquet 518, 525 
TButClock 484 
TFuncGraph 493 
TMult 475 
TMult a 484 
Exit 97 

Expert, composant 470 
Experts 172 

fiches base de donnees 413 
Experts fiche, menu Base 

de donnees 37 
Explorer, menu Base de donnees 37 



F 



Fenetres 

composants d'une fenetre 208- 
228 

couleurs 212 

d'edition 17 

fermer 212 

ouvrir 212 
Fermer tout, menu Fichier 21 
Fermer une fenetre 212 
Fermer, menu Fichier 21 
Fiabilite 130 
Fiches 12 

modale 12, 144-145 

non modale 12 



options de projet 162 

placer 16 
Fiches..., menu Voir 31 
Fichier, menu principal 19 
Fichiers 

.dcu 143 

.dfo 143 

.dll 143 

.dpm 143 

.dpr 143 

.drf 143 

.exe 143 

.hip 143 

.pas 143 

.res 143 

binaires 312 

composant une application 
142-150 

de projet 143 

de sauvegarde 143 

filtres 307 

graphiques 143 

handle 333 

noms longs 334 

non types 321 

projet de 142 

tampons 322 

texte 301 

types 312 
FileCreate, fonction 332 
FileGetAttr291 
FileListBox, composant 280 
FilePos, procedure 322 
FileSetAttr291,292 
FileSize, procedure 333 
FillRect 375 

FilterComboBox, composant 280 
Filtres, de fichier 307 
Finalization 148 
FindDialog, composant 279 
Fonctions, presentation 10 
FontDialog, composant 278 
For.. .do 92 
For...downto 93 
Form Voir Fiche 



Formulaires 

actifs Voir Active forms 

Web 525,531 
FTP, composant 271 

G 



Gauge, composant 281 

Genie logiciel 129 

Gerer repertoires d'archive, menu 

Groupes 39 
Gestionnaire 

d'evenements 145 
de paquets 470, 472 
de projet 160-162 
ajouter unite 161 
mise a jour 161 
options 161 
supprimer unite 161 
Voir Fiche et Unites 
Gestionnaire de projet, 

menu Voir 29 
Get (methode HTTP) 527 
GetDir, procedure 333 
Goto 94 
Gouttiere 191 
Grahiques 150 

impression 352 
GraphicsServer, composant 282 
GroupBox, composant 246 
GUI Voir Interfaces graphiques 

H 



Halt 98 

Handle, fichier 333 
Header, composant 268, 280 
Heritage, definition 137 
HotKey, composant 269 
HTML 510, 511 

balises 510 

de saisie 527 
HTML, composant 271 
HTTP 510, 511 

chaine de requete 524 
HTTP, composant 271 
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IBEventAlerter, composant 281 
Image, composant 258 
ImageList, composant 268 
Imbriquee, propriete 240 
Implementation 

section d'unite 113, 146, 148 
Importer un controle ActiveX, menu 

Composant 36 
Impression 

bases 335 

graphiques 352 

polices 344 

TPrinter 338 

writeln 335 
Imprimer, menu Fichier 22 
Incorporer un ActiveX a une page 

Web 531, 547 
Index 421, 433 

secondaires 437 
Indicateur 

de statut du debogueur 195 

insertion 17 

refrappe 17 
Info-bulles 225 
Information..., menu Projet 33 
Insertion 

indicateur 17 

mode 17 
Inspecteur d'objets 17 

Onglet 18 

Onglet Evenements 1 8 

Onglet Proprietes 18 
Inspecteur d'objets, menu Voir 29 
Installer 

des composants visuels 472 

des paquets, menu Composant 
36 

Installer, menu Composant 36 
Integer 48 

Interfaces, section 147 

Interfaces graphiques 235 
aligner des elements 231 
barre de progression 225 
barrede titre 209, 210, 21 1 
barres d'outils 225 
boites a onglet 23 1 



boites d'edition 223 

boites de liste 222 

boutons de commande 219 

boutons de la barre de titre 211 

boutons radio 220 

cases a cocher 221 

controle 219 

controle affichage 
d'arborescence 223 

couleurs 228 

couleurs des fenetres 212 

curseurs 224 

fenetres 208, 228 

info-bulles 225 

nouveaux documents 210 

organisation 228 

organisation de 226 

pages a onglets 224 

presentation 202 

principes 204, 207 

raccourci clavier 217 

regrouper des elements 230 

sous-menus 217 

touches de raccourci 218 

unites de mesure 229 
Interfaces graphiques 201 

menu Affichage 215 

menu Aide 215 

menu Edition 214 

menu Fenetre 215 

menu Fichier 214 

menus contextuels 213, 216 
Internet 509, 547 

composants 244 

URL 511 

Voir Web 
Intervalles, definition 72 
Intialization 148 
Invalidation 377 
ISAPI513 

convertir un CGI 516 

threads 515 

J 



Jusqu'a la prochaine ligne, menu 

Executer 35 
Jusqu'au curseur, menu Executer 35 



L 



Label, composant 246 
Langage fortement type 47 
Liaison 

champs 452 

options de projet 166 
Libelles 223 
Lie, champ 452 
Lignes 367 
LineTo 367 

ListBox, composant 246 

Liste de composants, menu Voir 30 

Liste de fenetres, menu Voir 30 

ListView, composant 268 

Localisation 132 

Longs, noms de fichiers 334 

M 



MainMenu, composant 245 
Maintenance 128 
Maitre/detail, implementation 451 
MaskEdit, composant 258 
Masques de saisie 439 
MasterField, propriete 451 
MasterSource, propriete 451 
MDI 207 

MediaPlayer, composant 270 
Memo, composant 246 
Memoire 48 
Menu 213 

contextuel 216 

raccourci clavier 217 

sous-menus 217 

touches de raccourci 218 
Menu Affichage 215 
Menu Aide 215 

a propos... (commande) 39 

rubriques d'aide 
(commande) 39 
Menu Base de donnees 

expert fiche (commande) 37 

explorer (commande) 37 

moniteur SQL (commande) 37 
Menu Chercher 

Aller a ligne (commande) 28 
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Chercher (commande) 27 
Chercher dans les fichiers 

(commande) 27 
Erreur d'execution 

(commande) 28 
Occurrence suivante 

(commande) 27 
Recherche incrementale 

(commande) 28 
Remplacer (commande) 27 
Scruter symbole 

(commande) 28 
Menu Composant 

Configurer palette 

(commande) 37 
Creer un modele de composant 

(commande) 36 
Importer un controle ActiveX 

(commande) 36 
Installer (commande) 36 
Installer des paquets 

(commande) 36 
Nouveau (commande) 36 
Menu Edition 22,214 
Ajouter a l'interface 

(commande) 26 
Aligner (commande) 24 
Aligner sur la grille 

(commande) 24 
Coller (commande) 23 
Copier (commande) 23 
Couper (commande) 23 
Defaire/Recuperer 

(commande) 23 
Echelle (commande) 25 
Mettre en arriere-plan 

(commande) 24 
Mettre en avant-plan 

(commande) 24 
Ordre de creation 

(commande) 26 
Ordre de tabulation 

(commande) 25 
Refaire (commande) 23 
Selectionner tout 

(commande) 24 
Supprimer (commande) 24 
Taille (commande) 25 



Verrouiller controles 

(commande) 26 
Menu Executer 

Ajouter point d'arret 

(commande) 35 
Ajouter point de suivi 

(commande) 35 
De-recenser le serveur ActiveX 

(commande) 34 
E valuer/ modifier 

(commande) 35 
Executer (commande) 34 
Jusqu'a la prochaine ligne 

(commande) 35 
Jusqu'au curseur 

(commande) 35 
Montrer le point d'execution 

(commande) 35 
Parametres... (commande) 34 
Pas a pas (commande) 34 
Pas a pas approfondi 

(commande) 34 
Recenser le serveur ActiveX 

(commande) 34 
Reinitialiser le programme 

(commande) 35 
Suspendre (commande) 35 
Menu Fenetre 215 
MenuFichier 19,214 
Ajouter au projet 

(commande) 21 
Enregistrer (commande) 20 
Enregistrer projet sous 

(commande) 21 
Enregistrer sous 

(commande) 20 
Enregistrer tout 

(commande) 21 
Fermer (commande) 21 
Fermer tout (commande) 21 
Imprimer (commande) 22 
Nouveau (commande) 19 
Nouveau module de donnees 

(commande) 20 
Nouvelle application 

(commande) 20 
Nouvelle fiche (commande) 20 
Ouvrir (commande) 20 
Quitter (commande) 22 



Rouvrir (commande) 20 
Supprimer du projet 

(commande) 21 
Utiliser unite (commande) 21 
Menu Groupes 

Ajouter Projectl au controle de 

version (commande) 39 
Definir repertoire de donnees 

(commande) 39 
Gerer repertoire d'archive 

(commande) 39 
Parcourir projet PVCS 

(commande) 38 
Menu Outils 

Configurer les outils 

(commande) 38 
Options d'environnement 

(commande) 38 
Referentiel (commande) 38 
Menu Projet 

Ajouter au projet 

(commande) 32 
Ajouter au referentiel 

(commande) 32 
Compiler (commande) 32 
Deploiement Web 

(commande) 33 
Information ... (commande) 33 
Options (commande) 33 
Supprimer du projet 

(commande) 32 
Tout construire 

(commande) 33 
Verifier la syntaxe 

(commande) 33 
Menu Voir 

Barre d'icones (commande) 31 
Basculer Fiche/Unite 

(commande) 3 1 
Bibliotheque de types 

(commande) 31 
Fiches... (commande) 31 
Gestionnaire de projet 

(commande) 29 
Inspecteur d'objets 

(commande) 29 
Liste de composants 

(commande) 30 
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Liste de fenetres 

(commande) 30 
Modules (commande) 30 
Nouvelle fenetre d'edition 

(commande) 31 
Palette d'alignement 

(commande) 29 
Palette des composants 

(commande) 31 
Pile d'appels (commande) 29 
Points d'arret (commande) 29 
Points de suivi (commande) 30 
Scruteur (commande) 29 
Source du projet 

(commande) 29 
Threads (commande) 30 
Unites ... (commande) 31 
Metafichiers 380 
Methodes 

ajouter a un composant 

visuel 478 
ajouter dans un controle 

ActiveX 503 
Cancel 441 
createForm 158 
creation 478 
HTTP 

Get 527 
Post 527 
initialize 158 
presentation 243 
Mettre en arriere-plan, 

menu Edition 24 
Mettre en avant-plan, 

menu Edition 24 
MkDir, procedure 333 
Mode 

insertion 17 
refrappe 17 
Modele de composant, 
menu Composant 
creer 36 
Modeles 173 

de bases de donnees 416 
Modifier les champs dans une table 

de BD 429 
Modularite 132 
Module de donnees 450 
Modules, menu Voir 30 



Moniteur SQL, menu Base de 

donnees 37 
Montrer le point d'execution, menu 

Executer 35 
Mots de passe de base 

de donnees 447 
Multiliaison, architecture 4 
base de donnees 418 

N 



Negation, d'expressions 92 
Niveaux de securite dans 

une BD 447 
n-n, relation 449 
Nommage 151 
Noms de fichiers 152 

longs 334 
Non types, fichiers 321 
Non visuel, composant 244 
Notebook, composant 280 
Nouveau 

document dans 

une application 210 

element 169 

module de donnees, menu 
Fichier 20 
Nouveau projet 

creer 155-160 
Nouveau, menu Composant 36 
Nouveau, menu Fichier 19 
Nouvelle application, 

menu Fichier 20 
Nouvelle fenetre d'edition, menu 
Voir 31 

Nouvelle fiche, menu Fichier 20 

NSPAI513 

null 57 

0 



Objets 

implementation 135 
partie privee d'une classe 136 
partie protegee d'une classe 136 
partie publique 136 
proprietes 137 



TWebRequest 518 
Occurrence suivante, menu 

Chercher 27 
OCX 41, 239, 496 
ODBC 444 

ajouter un pilote 445 
OLE 496 

OLEContainer, composant 270 
Onglet Evenements, inspecteur 

d'objets 18 
OnPaint 377 

OpenDialog, composant 278 
OpenPictureDialog, composant 278 
Operateurs 

arithmetiques 79 

logiques 80 

precedence 82 

relationnels 8 1 
Options 

Editeur 179, 180 

Outils 38 
Options de projet 33, 143, 162-167 

Application 163 

Compilateur 165 

Fiches 162 

Lieur 166 

Paquets 168 

Repertoire/Conditions 166 

version 167 
OR, table de verite 293 
Ordre de creation, menu Edition 26 
Ordre de tabulation, 

menu Edition 25 
Organiser un projet Delphi 150, 155 
ORGroup, composant 276 
Ou exclusif 372 
Outline, composant 280 
Ouvrir une fenetre 212 
Ouvrir, menu Fichier 20 

P 



PageControl, composant 268 
PageHeight, propriete de 

TPrinter 338 
PageNumber, propriete de 

TPrinter 338 
PageProducer, composant 272 
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Pages a onglet 224 
PaintBox, composant 270 
Palette d'alignement, menu Voir 29 
Palette des composants 15 
Palette des composants, 

menu Voir 3 1 
Panel, composant 247 
Paquets 143,470,472 

Gestionnaire de paquets 470 

options de projet 168 
Parametres, menu Executer 34 
Parcourir projet PVCS, menu 

Groupes 38 
Pas a pas approfondi, 

menu Executer 34 
Pas a pas, menu Executer 34 
Pascal Objet 3 
Passage par parametres 103 
Pen, attributs 371 
Personnalisation, de l'interface 40 
Pile d'appels, menu Voir 29 
Pilote, ODBC 445 
Pixels 

definition 364 

propriete 365 
Point, fonction 369 
Pointeurs 118 
Points 

d'arret 189 

de suivi 193 
Points d'arret, menu Voir 29 
Points de suivi, menu Voir 30 
Polices 344 
Polygones 369 
PolyLine 369 
POP, composant 271 
PopupMenu, composant 246 
Portee des variables 106 
Post (methode HTTP) 527 
PowerBuilder 41 
Precedence des operateurs 82 
Preview, methode QuickReport 460 
Print, methode QuickReport 460 
PrintDialog, composant 278 
PrinterSetupDialog, composant 279 
Private 147,474 
Procedure 

definition 8 

parametres 103 



Programme, structure 100 
ProgressBar, composant 269 
Projets 

creation 142-144, 155-160, 
168-171 

Gestionnaire de projet 160-162 

options 162-167 

organisation 150-154 
Proprietes 

Caption 241 

d'un composant 239 

d'un objet 18 

ecriture d'un composant 
visuel 483 

imbriquee 240 

MasterField 451 

MasterSource 45 1 

onglet Inspecteur d'objets 18 
Protected 147,474 
Prototypage 203 
Provider, composant 273 
Pseudo-code 7 
Public 147, 474 
Published 147, 474 
PVCS 174 

0 



QRBand, composant 276, 458 
QRChart, composant 278 
QRChildBand, composant 276, 458 
QRCompositeReport, 

composant 277 
QRDBRichText, composant 276 
QRDBText, composant 276 
Qreport, composants 244 
QRExpr, composant 276 
QRGroup, composant 458 
QRLabel, composant 276 
QRMemo, composant 276 
QRPreview, composant 277 
QRRichText, composant 276 
QRSubDetail, composant 276, 458 
QRSysData, composant 276 
Query, composant 272 
QueryFields 529 
QueryTableProducer, 

composant 272 



QuickReport 
bandes 458 
creation d'un etat 458 
methode Preview 460 
methode Print 460 
modeles 457 
presentation 456 
QuickReport, composant 276 
Quitter, menu Fichier 22 

R 



Raccourcis clavier 217 
RAD 2, 203 

RadioButton, composant 246 
RadioGroup, composant 247 
Read, procedure 314 
Real 49 

Recenser le serveur ActiveX, menu 

Executer 34 
Recherche incrementale, menu 

Chercher 28 
Rechercher des enregistrements de 

BD 435 
Rectangles 375 

procedure Rectangle 375 
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Refaire, menu Edition 23 
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Referentiel, menu Outils 38 
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d'une GUI 230 
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1-1 449 
1-n 449 
n-n 449 
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ReplaceDialog, composant 279 
Reset, procedure 313 
Reutilisation du code 466 
Rewrite, procedure 313 
Rewrite, procedure 
d'impression 335 
RichEdit, composant 268 
RmDir, procedure 333 
Rouvrir, menu Fichier 20 
Rubriques d'aide, menu Aide 39 
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SaveDialog, composant 278 
SavePictureDialog, composant 278 
Scripts 504 

ScrollBar, composant 246 

ScrollBox, composant 258 
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Scruteur, menu Voir 29 
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Securite 
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ServerSocket, composant 271 
Serveurs Web 
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Session, composant 273 
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Shape, composant 258 
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SpeedButton, composant 257 
SpinButton, composant 281 
SpinEdit, composant 281 
Splitter, composant 258 
Standard, composant 244, 245 
StaticText, composant 258 
StatusBar, composant 268 
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StoredProc, composant 273 
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TabbedNoteBook, composant 280 
TabControl, composant 268 
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Table, composant 272 
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Tables, composant 
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Taille, menu Edition 25 
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TCP, composant 271 
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TextOut, methode de TPrinter 338 
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definition 47 
enumere 76 
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Types, fichiers 312 

u 



UDP, composant 271 
Unicode 55 
Uniformite 133 



P R m)G R A M M 



EUR 
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Versions 174 

Visibilite des variables 106 



Visual Basic 2 
Visuel, composant 244 

w 



Web 

contenu dynamique 512, 547 
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ActiveX 504 

WebDispatcher, composant 271 

While... do 91 
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